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

Libre Basic

以下の例では、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