Sub ExampleActivateCell()
Dim objController As Object
Dim objSheet As Object
Dim objCell As Object
objController = ThisComponent.getCurrentController()
objSheet = objController.getActiveSheet()
objCell = objSheet.getCellRangeByName("B5")
objController.Select(objCell)
End Sub
CurrentController が何かは正確にはわからないが、その CurrentController
の Select メソッドの引数にセルオブジェクトを指定することによって、セルが
アクティブになるようである。セルオブジェクトを取得する為に、列・行番号を
指定しても、全く問題はない。
また、CurrentController や アクティブシートを取得するのに get~ メソッドを
用いてるが、代わりにプロパティを用いて下記コードのように記述することも
可能 :
Sub ExampleActivateCell2()
Dim objController As Object
Dim objSheet As Object
Dim objCell As Object
'
'次の2 行を、プロパティを用いる方式に書き換えると。。。
objController = ThisComponent.CurrentController
objSheet = objController.ActiveSheet
'
objCell = objSheet.getCellRangeByName("B5")
objController.Select(objCell)
End Sub
0 件のコメント:
コメントを投稿