2011年4月24日日曜日

セルに関数を設定する

Sub ExampleSetCellFunction()
       Dim objSheet As Object
       Dim objCell As Object
       objSheet = ThisComponent.CurrentController.Activesheet
       objCell = objSheet.getCellRangeByName("B5")
       objCell.Formula = "TODAY()"

End Sub

  
セルに関数 (数式) を設定するには Formula プロパティを用いて下記
のように設定する :
  
セルオブジェクト.Formula = "関数"
  
上記サンプルコードは、TODAY 関数を設定した例である。

0 件のコメント:

コメントを投稿