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
列となる。
0 件のコメント:
コメントを投稿