Libre:070 セルの書式をコピーする

結構難しそう。

スマートな方法はなさそうだ。

 

 

リンク先に丁寧な説明があります。

また、独自の関数も有ります。

便利そうです。

 

こういう方法もあります。

これは、ここから持ってきました。

Sub CopyPaste
Dim oFrame as object
Dim dispatcher as object

oFrame = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)

dispatcher.executeDispatch(oFrame, “.uno:Copy”, “”, 0, Array())

Dim oArgs2(0) as new com.sun.star.beans.PropertyValue
oArgs2(0).Name = “ToPoint”
oArgs2(0).Value = “$B$5”
dispatcher.executeDispatch(oFrame, “.uno:GoToCell”, “”, 0, oArgs2())

Dim oArgs3(5) as new com.sun.star.beans.PropertyValue
oArgs3(0).Name = “Flags”
oArgs3(0).Value = “SDFNT” ‘ ← 下記” Flag Value “参照
oArgs3(1).Name = “FormulaCommand”
oArgs3(1).Value = 0
oArgs3(2).Name = “SkipEmptyCells”
oArgs3(2).Value = false
oArgs3(3).Name = “Transpose”
oArgs3(3).Value = false
oArgs3(4).Name = “AsLink”
oArgs3(4).Value = false
oArgs3(5).Name = “MoveMode”
oArgs3(5).Value = 4
dispatcher.executeDispatch(oFrame, “.uno:InsertContents”, “”, 0, oArgs3())

msgbox “Success”
End Sub

‘ [ Flag Value ]
‘ S : String ( テキスト )
‘ V : Value ( 値 )
‘ D : Date ( 日付 )
‘ F : Formula ( 式 )
‘ N : Note ( コメント )
‘ T : Format ( 書式 )
‘ 空白 : Object ( オブジェクト )
‘ A : 全て

Libre:069 セルデータの数値のみコピーする

これは、数値かどうかを判定するところ新しく、

それ以外は今までのコードを組み合わせて実現できそうです。

 

sub ksIsNumeric

dim sheet as object
dim cell as object

Sheet =ThisComponent.sheets (0)
cell = Sheet.getCellByPosition(0,0)

if (isNumeric(cell.value)) then
msgbox “YES”
end if

end sub

 

上のコードは何時でもYESを返します。

msgboxを以下のように変更してみると

理由は簡単です。

msgbox “YES” & cell.value &” :” & cell.string

 

YES0:a ・・・・(0,0)にaを代入してある場合

 

というわけで、何時でもYESであるらしい。

こういうところが面倒くさいと思うんだけど、

Cell.Typeを使用すれば、解決できそうです。

 

sub ksIsNumeric

dim sheet as object
dim cell as object

Sheet =ThisComponent.sheets (0)
cell = Sheet.getCellByPosition(0,0)

Select Case cell.Type
Case com.sun.star.table.CellContentType.EMPTY
MsgBox “Content: Empty”
Case com.sun.star.table.CellContentType.VALUE
MsgBox “Content: Value”
Case com.sun.star.table.CellContentType.TEXT
MsgBox “Content: Text”
Case com.sun.star.table.CellContentType.FORMULA
MsgBox “Content: Formula”
End Select

end sub

Libre:068 選択範囲を切り取る

067との違いは、最後のcopyRangeをmoveRangeに変えるだけです。

 

Sub ksCopyRange

Dim Sheet As Object
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress

Sheet =ThisComponent.sheets (0)

CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn = 1
CellRangeAddress.StartRow = 1
CellRangeAddress.EndColumn = 2
CellRangeAddress.EndRow = 2

CellAddress.Sheet = 0
CellAddress.Column = 0
CellAddress.Row = 5

Sheet.moveRange(CellAddress, CellRangeAddress)

End SUb

Libre:067 選択範囲をコピーする

以下の例では、B2:C3の範囲のセルをA6を先頭とする位置にコピーします。

 

Sub ksCopyRange

Dim Sheet As Object
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress

Sheet =ThisComponent.sheets (0)

CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn = 1
CellRangeAddress.StartRow = 1
CellRangeAddress.EndColumn = 2
CellRangeAddress.EndRow = 2

CellAddress.Sheet = 0
CellAddress.Column = 0
CellAddress.Row = 5

Sheet.copyRange(CellAddress, CellRangeAddress)

End SUb

Libre:064 行列を再表示する

063と同じようにRowsプロジェクトを取得し、

isVisibleをTrueに設定します。

 

Sub HideOrShowRow()
Dim objSheet As Object
Dim objCell As Object
Dim objRow As Object

objSheet = ThisComponent.CurrentController.ActiveSheet
objCell = objSheet.getCellRangeByName(“A3”)
objRow = objCell.Rows
objRow.IsVisible = True


End Sub

Libre:063 行列の非表示

Rowオブジェクトを取得し、

isVisibleプロパティをFalseにする。

 

Sub HideOrShowRow()
Dim objSheet As Object
Dim objCell As Object
Dim objRow As Object

objSheet = ThisComponent.CurrentController.ActiveSheet
objCell = objSheet.getCellRangeByName(“A3”)
objRow = objCell.Rows
objRow.IsVisible = False


End Sub