|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub Main Dim objController As Object Dim objSheet As Object Dim objCell As Object Dim objRow as integer Dim objCol as integer objController = ThisComponent.getCurrentController() objSheet = objController.Activesheet objCell = ThisComponent.CurrentSelection objRow = objCell.CellAddress.Row objCol = objCell.CellAddress.Column Msgbox("アクティブなセルの行番号 = " & objRow & _ Chr$(13) & _ "アクティブなセルの列番号 = " & objCol) objController.select(objSheet.getCellByPosition(objCol+1, objRow+1)) End Sub |
現在アクティブなセルを１セル分右下へ移動させる。
アクティブなセルの位置を得てそれをメッセージボックスに表示する。
これは「LibreOffice Calc アクティブなセルの位置を得る」と同じ。
行と列の値に１加えて、アクティブなセルの右下のセルをアクティブにする。
