Libre:050 ブック中の全セルに対して処理を行う

sheet全体を選択する適当なコマンドがみつからなったので、

地道に、選択しました。ちなみにメニューから”全てを選択”を

選ぶとA1:AMJ1048576が名前のところに表示されますので、

この値を使うことにしました。

下記のコードでは、バックカラーを黒にしています。

 

sub ksAllSheetColored

dim activeSheet as object

dim selectedRange as object

activeSheet = ThisComponent.CurrentController.ActiveSheet

selectedRange =activeSheet.getCellRangeByName(“A1:AMJ1048576”)
selectedRange.CellBackColor = 1

end sub