Calcシートのサイズを確認するマクロを作成しました。

Sub ma0010_Sheets_EndRow_EndColumn With ThisComponent.Sheets(0).RangeAddress 　MsgBox _ 　" StartRow = " + .StartRow + " StartColumn = " + .StartColumn + chr(13) + _ 　" EndRow = " + .EndRow + " EndColumn = " + .EndColumn, 64, "シートの最大行数・最大列数" End With End Sub

(Calcの添字は０から始まります)




Excelでは、次のようになります。

Sub X0010_Sheets_EndRow_EndColumn()
With ThisWorkbook.Worksheets(1)
　MsgBox _
　" StartRow = " & .Cells(1, 1).Row & " StartColumn = " & .Cells(1, 1).Column & Chr(13) & _
　" EndRow = " & .Cells(Rows.Count, 1).Row & " EndColumn = " & .Cells(1, Columns.Count).Column _
　, 64, "シートの最大行数・最大列数"
End With
End Sub

となり、With ThisWorkbook.Worksheets(1)　を省略して

Sub X0011_Sheets_EndRow_EndColumn()
MsgBox _
　" StartRow = " & Cells(1, 1).Row & " StartColumn = " & Cells(1, 1).Column & Chr(13) & _
　" EndRow = " & Cells(Rows.Count, 1).Row & " EndColumn = " & Cells(1, Columns.Count).Column _
　, 64, "シートの最大行数・最大列数"
End Sub

とすることができますが、Calc では、

With Sheets(0).RangeAddress 又は、With RangeAddress のように省略することはできません。

With ThisComponent.Sheets(0).RangeAddress は、
With ThisComponent.CurrentController.ActiveSheet.RangeAddress
With ThisComponent.Sheets.getByIndex(0).RangeAddress
とすることができます。


サンプルマクロ(Calc)

「ファイルのダウンロード」について 一旦ファイルを保存して
「ma0010_sheets_endrow_endcolumn.zip」を「ma0010_sheets_endrow_endcolumn.sxc」に変更後、実行して下さい。