MacroCalc
Материал из Forumooo wiki
(Различия между версиями)
Текущая версия на 08:15, 4 февраля 2017
Функция для получения номера последней строки используемого диапазона данных:
Function GetLastUsedRow(oSheet As Object) As Long Dim oCell As Object Dim oCursor As Object Dim aAddress As Variant oCell=oSheet.GetCellbyPosition(0, 0) oCursor=oSheet.createCursorByRange(oCell) oCursor.GotoEndOfUsedArea(True) aAddress=oCursor.RangeAddress GetLastUsedRow=aAddress.EndRow End Function