Программно прокрутить лист в начало

[Alex16]

Собсно вопрос в теме. Как программно прокрутить лист на первую строку.
Т.е. если сохранили файл в момент когда курсор был на 357(например) строке.
А вот при открытии файла нужно чтоб была первая строка видна

[JohnSUN]

Обычно как-то так

Код Выделить Развернуть

Sub gotoCell(Optional cellAddr As String)
If IsMissing(cellAddr) Then cellAddr = "A1"
With ThisComponent.getCurrentController()
.select(.getActiveSheet().getCellRangeByName(cellAddr))
.Select(ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges"))
End With
End SubНо, насколько я научился понимать подтекст твоих вопросов, тебе нужен Вид-Фиксировать ячейки

[rami]

На текущем листе:

Код Выделить Развернуть

Sub Main
ThisComponent.CurrentController.FirstVisibleRow=0   'или если нужно FirstVisibleColumn
End Sub

[Alex16]

ThisComponent.CurrentController.FirstVisibleRow=0

Спасибо - это снова то, что доктор прописал)

Но, насколько я научился понимать подтекст твоих вопросов, тебе нужен Вид-Фиксировать ячейки

Не, не это. Хотя лично мне - это было бы удобно. Но те, для кого это делаю, у них мониторы "широкие но узкие" (19' широкоформатные). Поэтому если закрепить область сверху, то для работы остается полоска - неудобно.
Но процедурку возьму на вооружение.

[economist]

Если вспомнить, что очень лаконичный VBA, то можно и так:

Код Выделить Развернуть


Option VBASupport 1

Sub GotoA1()
[A1].Activate
End sub