Libre:058 列全体を選択する

これも、DispatcherHelperを使うよりは

泥臭いコードの方が短いので好きです。

 

sub ksSelectColumns

dim activeSheet as object
dim selectedRange as object

activeSheet = ThisComponent.CurrentController.ActiveSheet

selectedRange =activeSheet.getCellRangeByName(“A1:AMJ1″)
selectedRange.CellBackColor = 3


end sub