Доброе время суток, не могли бы Вы подсказать как в Calc р...

[ForumOOo (бот)]

Компонент: Calc
Версия продукта: 4.0.x
Сборка:
ОС:

Доброе время суток, не могли бы Вы подсказать как в Calc реализовать ф-ию из excel Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row для поиска последней заполненной ячейки

--
Подпись: elk

[JohnSUN]

Для выполнения этого действия в стандартной библиотеке Tools есть специальная функция GetLastUsedRow. Её единственный параметр - лист книги, для которого нужно получить последнюю заполненную строку.
К сожалению, после увеличения длины листа книги до более чем миллиона строк текст макроса не изменили (см. Bug#50846) и это приводит к ошибке, если на листе заполнено более 32768 строк.
Вызов этой функции из макроса можно оформить, например, так:

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

GlobalScope.BasicLibraries.isLibraryLoaded("Tools") // Загрузить библиотеку "Tools"
lR = GetLastUsedRow(ThisComponent.getCurrentController().getActiveSheet()) // Для текущего, активного листа
// или
lR = GetLastUsedRow(ThisComponent.getSheets().getByIndex(0)) // Для первого листа (как в вопросе)
Принцип действия функции GetLastUsedRow: для указанного листа книги создаётся курсор, с его помощью вычисляется последняя ячейка на листе (та, которая становится активной при нажатии Ctrl+End) и берётся её адрес. Адрес ячейки - это структура, которая содержит номер листа, номер строки и номер колонки. Данная функция возвращает именно номер строки, но с помощью незначительного изменения её можно переделать для вычисления последнего заполненного столбца.