当然ながら、マクロでデータの入っているセルの範囲を指定することは多い。 そこで、以下はデータの入っているセルの範囲を得るマクロ。
|
1 2 3 4 5 6 7 8 9 10 |
Sub GetLastCellPosition() Dim objSheet As Object Dim objRange As Object Dim objCursor As Object objSheet = ThisComponent.CurrentController.Activesheet objRange = objSheet.getCellRangeByName("A1") objCursor = objSheet.createCursorByRange(objRange) objCursor.gotoEndOfUsedArea(True) Msgbox(objCursor.Rows.Count & " : " & objcursor.Columns.Count, 0, "データのある最終の行:列") End Sub |
実行すると、以下のように