LibreOfficeマクロ:セルに値入れる(Range,Cells)

スポンサーリンク

snap_160922_141335

セルに値を入れる-Cells(1,1) = getCellByPosition(0,0)

参考サイト(1):

(1)VBAのままでは、上図のようにエラーになります。

Cells(1,1).Value = "123456"

(2)次のように、おまじないがたくさん必要です。

Sub Main
  Dim oSheet as object
  oSheet=ThisComponent.CurrentController.ActiveSheet
  osheet.getCellByPosition(1,1).value="123456"
End Sub

getCellByPosition(1,1)

VBAの(1,1)は LibreOfficeでは(0,0)

(5,7)は(6,4)   右左逆にし、-1

 


セルに値を入れる-Range(“name”) = getCellRangeByName(“name”)

Sub Main
  Dim oSheet as object
  oSheet=ThisComponent.CurrentController.ActiveSheet
  osheet.getCellByPosition(1,1).value="123456"
  osheet.getCellRangeByName("c5").value="78900"  
End Sub

getCellRangeByName(“c5”)

“”の中にRangeの名前を入れます。

range

 

コメント

タイトルとURLをコピーしました