2011年4月23日土曜日

セルに値を設定する

Sub ExampleSetCellValue()
       Dim objSheet As Object
       Dim objCell As Object
       objSheet = ThisComponent.CurrentController.Activesheet
       '
       objCell = objSheet.getCellRangeByName("B5")
       objCell.Value = 1234567
       '
       objCell = objSheet.getCellRangeByName("C5")
       objCell.String = "abcdefgh"
       '
       objCell = objSheet.getCellRangeByName("D5")
       objCell.Value = "wxyzuvq"
       '
       objCell = objSheet.getCellRangeByName("E5")
       objCell.String = 9876543
End Sub
  
実行結果は下記の通り :
  
  
セル値の取得の場合と同様に、セルに数値を設定する場合は Value
プロパティを使用し、セルに文字列を値として設定する場合は String
プロパティを用いる。
上図の通り、文字列を Value プロパティを用いてセルに設定すると 0
になり、String プロパティを用いてセルに数値を設定すると左寄せに
なってしまうようである。

0 件のコメント:

コメントを投稿