【mac】LibreOfficeでセルに数字を入力する方法

メモ的にエントリー。

LibreOfficeでセルに数字入力するbasic（エクセルでいうところのVBA）どうやって書くんだ？が意外と調べるの大変だったので、簡単にメモ
basicのコードをかける画面を立ち上げます。



以下のようにコードを書きます。

rem セルA1に「１」を入力する
Sub Main

Dim oDoc As Object
Dim oSheet As Object
Dim oCell As Object

oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
oCell = oSheet.getCellByPosition(0, 0)
ocell.string = 1

End Sub

解説

Dim oDoc As Object

oDocという変数をオブジェクトとして宣言します。
ドキュメント（文章・表計算など）を操作するために使います。

同様にシートや、セルについてもオブジェクト変数を宣言します。

Dim oSheet As Object
Dim oCell As Object

oDoc = ThisComponent

これで現在扱っているドキュメントがoDocに格納されます。
例では、表計算。

oSheet = oDoc.Sheets(0)

これで、sheet1がoSheetに格納されます。

oCell = oSheet.getCellByPosition(0, 0)

これで、セルA1がoCellに格納されます。

注意：エクセルのVBAに慣れている方は、番号の振り方が、１からではなく０からになっていることに注意してください。

ocell.string = 1

これで、セルA1に「１」という数字が挿入されます。

以上。メモ的エントリーでした。