セルの位置を取得

Sub ExampleGetCellPosition()
       Dim objSheet As Object
       Dim objCell As Object
       objSheet = ThisComponent.CurrentController.Activesheet
       objCell = objSheet.getCellRangeByName("B5")
       Msgbox("B5の行番号 = " & objCell.CellAddress.Row & _
                      Chr$(13) & _
                      "B5の列番号 = " & objCell.CellAddress.Column)
End Sub
  
セルの行番号、列番号を取得する為には、それぞれ
  
セルオブジェクト.CellAddress.Row
セルオブジェクト.CellAddress.Column
  

で求めることができる。取得した行番号が、0 ならば 1 行目、1 ならば

2 行目であることに注意。列番号も同様に、0 ならば A 列、1 ならば B

列となる。