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