Релиб / Программирование / VBA / Вертикальный ScrollBar рабочего листа / Latest Posts

RE: Вертикальный ScrollBar рабочего листа

Excel — Sat, 28 Apr 2007 17:20:11 GMT

Ну наконец-то.
[quote][b]Knight (28.04.2007)[/b][hr]ActiveSheet.UsedRange.Select [/quote]Прекрасно работает.

To [b]Knight[/b] и всем неравнодушным большущее СПАСИБО !

RE: Вертикальный ScrollBar рабочего листа

Knight — Sat, 28 Apr 2007 11:58:20 GMT

Честно говоря не совсем понял проблему.
Мне обычно помогало выражение
[code]
On Error Resume Next
With ActiveSheet
.UsedRange.Select
.Cells(.UsedRange.Rows.Count + .UsedRange.Row, 1).Select
End With
[/code]
при этом scrollbar автоматом масштабировался

RE: Вертикальный ScrollBar рабочего листа

vkodor — Sat, 28 Apr 2007 09:32:16 GMT

Может стоит попробовать прикрутить к листу свою полосу прокрутки, а стандартную спрятать.

RE: Вертикальный ScrollBar рабочего листа

Excel — Sat, 28 Apr 2007 03:36:45 GMT

[quote][b]Yuric (28.04.2007)[/b][hr]А если, допустим, скрыть неиспользуемые строки...[/quote]
Пробовал. При этом Ползунок увеличивается почти на весь скроллбар, но перемещаться с помощью него по 100-строковой таблице невозможно (шаг прокрутки остаётся тем же, приблизительно 20 строк на одно движение мышью).
Не выход.:(

RE: Вертикальный ScrollBar рабочего листа

Yuric — Sat, 28 Apr 2007 00:42:49 GMT

Приветствую.

А если, допустим, скрыть неиспользуемые строки (отображать по мере добавления записей):

Rows("101:65536").EntireRow.Hidden = True

RE: Вертикальный ScrollBar рабочего листа

Excel — Fri, 27 Apr 2007 22:55:21 GMT

[quote]...что то типа
ss = ActiveSheet.Name
i= ActiveCell.Row
While Workbooks("1.xls").Sheets(ss).Cells(i, 1) <> " "
i =i + 1
Wend[/quote]
Кстати найти последнюю строчку можно рациональнее:

LastRow = Cells(10001, 1).End(xlUp).Row

RE: Вертикальный ScrollBar рабочего листа

Excel — Fri, 27 Apr 2007 13:10:24 GMT

[quote][b]Hitry (27.04.2007)[/b][hr]а потом с скролбаром
With ScrollBarRows
[/quote]

Дык в том-то как раз и проблема. Нет объекта ScrollBarRows у Рабочего листа.
Вернее на экране он есть, а обратиться к нему невозможно.
По крайней мере я не смог.

RE: Вертикальный ScrollBar рабочего листа

Hitry — Fri, 27 Apr 2007 12:08:06 GMT

Если правильно понял...

может заделать сначала цикл высчитывающий строчки до первой пустой.

ну что то типа

ss = ActiveSheet.Name

i = ActiveCell.Row

While Workbooks("1.xls").Sheets(ss).Cells(i, 1) <> " "
i = i + 1
Wend

а потом с скролбаром

With ScrollBarRows
.Min = 1
.Max = i
End With

RE: Вертикальный ScrollBar рабочего листа

Excel — Sun, 22 Apr 2007 04:33:19 GMT

1. Заполните ячейки 'A1:A10 000' чем угодно.
2. Выделите диапазон 'A101:A10 000' и выполните
Правка->Очистить->Всё
3. А вот теперь добейтесь чтобы в крайнем нижнем положении ползунка скроллбара - самой нижней строкой на экране была строка 100. (Не сохраняя книгу)

Вот собственно задача.

PS: В идеале, конечно, пункт 2 хотелось бы исключить

RE: Вертикальный ScrollBar рабочего листа

R1001 — Sat, 21 Apr 2007 20:03:48 GMT

2 Excel
Все таки объясните пожалуйста, какая цель должна быть достигнута в задаче?
Пока только я понимаю, что надо, что бы последняя строка видна была. Но это ведь реализуется через Select. Для чего такие сложности ?