月別アーカイブ: 2016年6月

ここまでの感想

2016年6月26日未分類kazu4basic

Excel VBAとくらべて使いにくいというのが、

印象である。

記述が冗長になってしまうことが大変不満である。

今後は、具体的なアプリを作りながら、

ラッパーや機能拡張などできる範囲で

整理整頓していきたいと思う・・・のだが。

Libre:090 オートフィルタでデータを抽出する

2016年6月26日Libre Basickazu4basic

Sub ksAutofilter

Dim objController as Object
Dim objFrame as Object

objController = ThisComponent.CurrentController
objFrame = objController.getFrame()
oDispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)

activeSheet = objController.ActiveSheet
selectedCell = activeSheet.getCellRangeByPosition(0,0,3,4)
ThisComponent.CurrentController.select(selectedCell)

oDispatcher.executeDispatch(objFrame, “.uno:DataFilterAutoFilter”, “”, 0, Array())

End Sub

Libre:089 データエリアから項目行を除く

2016年6月26日Libre Basickazu4basic

ExcelにはResizeなる便利なメソッドがありますが、

Libreの場合は、選択範囲を取得し、もう一度選択し直すという手順を

踏むことになりそうです。

Libre:088 データエリアに外枠をつける

2016年6月26日Libre Basickazu4basic

Excelなら２行で実装できますが、Libreではそうもいきませんね。

ポイントはIs_xxx_LineValidメソッドを全てTruenにすることらしい。

Sub ksTableBorder()
Dim objSheet As Object
Dim objRange As Object
Dim objTableBorder As New com.sun.star.table.TableBorder
Dim objBorderLineBlack As New com.sun.star.table.BorderLine

objSheet = ThisComponent.CurrentController.ActiveSheet
objRange = ThisComponent.CurrentController.getSelection()

‘黒の単線の設定
With objBorderLineBlack
.Color = RGB(0, 0, 0)
.OuterLineWidth = 20
End With
With objTableBorder
‘
‘表の外枠の設定
.LeftLine = objBorderLineBlack
.RightLine = objBorderLineBlack
.TopLine = objBorderLineBlack
.BottomLine = objBorderLineBlack
.IsLeftLineValid = True
.IsRightLineValid = True
.IsTopLineValid = True
.IsBottomLineValid = True
‘
End With
‘
objRange.TableBorder = objTableBorder
End Sub

Libre:086 レコード件数を数える

2016年6月26日Libre Basickazu4basic

選択範囲のRowをカウントするということです。

「060:セルの選択範囲の行列数を数える」

と同じです。

Libre:085　アクティブセル領域のアドレスを取得する

2016年6月26日Libre Basickazu4basic

エレガントじゃないけど、これで目的は果たせる

Sub ksSelection()

dim objRange as Object

objRange=ThisComponent.CurrentSelection.RangeAddress
sRow=objRange.StartRow ‘選択範囲の始めの行番号
eRow=objRange.EndRow ‘選択範囲の終わりの行番号

sColumn=objRange.StartColumn ‘選択範囲の始めの列番号
eColumn=objRange.EndColumn ‘選択範囲の終わりの列番号

msgbox sRow & chr(10) & eRow & chr(10) & sColumn & chr(10) & eColumn

End Sub

Libre:084　セル内の文字列を操作する

2016年6月26日Libre Basickazu4basic

全く同じことはできませんが、（できるかもしれないが面倒くさい）

以下のコードが最も近いでしょうか。

その他にleft, right, midを使う方法が

あるかもしれません。

Sub ksCalcCharColor()
Dim objDoc as Object, objSheet as Object
Dim objCell as Object
Dim oTextCursor as Object

objDoc=ThisComponent
objSheet=objDoc.getSheets().getByName(“sheet1”)
objCell=objSheet.getCellByPosition(0,0)
oTextCursor = objCell.createTextCursor()
With oTextCursor
.gotoStart( False )
.goRight( 3, True )
.setPropertyValue( “CharColor”, RGB(255,0,0) )
.gotoEnd( False )
End With
msgbox “Success”
End Sub