月別アーカイブ: 2014年4月

Libre:060 セル範囲の行数、列数を数える

選択範囲のアドレスを取得します。 

selectCells = ThisComponent.CurrentController.getSelection()

そこから、はじめと終わりのセルのアドレスを取得し、

引き算して、列数を得ます。

+1をしないとずれます。

 

 

 

sub ksCountRC

dim selectCells As Object
dim cCount as integer

selectCells = ThisComponent.CurrentController.getSelection()

With selectCells.RangeAddress
cCount = .EndColumn – .StartColumn +1
MsgBox “StartColumn: ” & .StartColumn & Chr(10) & _
“StartRow:” & .StartRow & Chr(10) & _
“EndColumn: ” & .EndColumn & Chr(10) & _
“EndRow: ” & .EndRow & chr(10) &_
“Columns:” & cCount
End With


end sub

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

Libre:057 行全体を選択する

DispatchHelperを使用する方法も有りますが、

個人的には、getCellRangeByNameを使った方が好きです。

 

sub ksSelectColumns

dim activeSheet as object
dim selectedRange as object

activeSheet = ThisComponent.CurrentController.ActiveSheet

selectedRange =activeSheet.getCellRangeByName(“B1:B1048576”)
selectedRange.CellBackColor = 3


end sub