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

Автор ForumOOo (бот), 20 февраля 2014, 08:31

0 Пользователи и 1 гость просматривают эту тему.

ForumOOo (бот)

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

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

--
Подпись: elk

JohnSUN

#1
Для выполнения этого действия в стандартной библиотеке Tools есть специальная функция GetLastUsedRow. Её единственный параметр - лист книги, для которого нужно получить последнюю заполненную строку.
К сожалению, после увеличения длины листа книги до более чем миллиона строк текст макроса не изменили (см. Bug#50846) и это приводит к ошибке, если на листе заполнено более 32768 строк.
Вызов этой функции из макроса можно оформить, например, так:
GlobalScope.BasicLibraries.isLibraryLoaded("Tools") // Загрузить библиотеку "Tools"
lR = GetLastUsedRow(ThisComponent.getCurrentController().getActiveSheet()) // Для текущего, активного листа
// или
lR = GetLastUsedRow(ThisComponent.getSheets().getByIndex(0)) // Для первого листа (как в вопросе)

Принцип действия функции GetLastUsedRow: для указанного листа книги создаётся курсор, с его помощью вычисляется последняя ячейка на листе (та, которая становится активной при нажатии Ctrl+End) и берётся её адрес. Адрес ячейки - это структура, которая содержит номер листа, номер строки и номер колонки. Данная функция возвращает именно номер строки, но с помощью незначительного изменения её можно переделать для вычисления последнего заполненного столбца.
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне