セルをアクティブにする

アクティブシートの B5 セルをアクティブにするサンプルコードを下記に記す :
  
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