Libre:073　すべてのセルデータをクリアする

Libre Basic

選択範囲はgetCellRangeByPositionで取得しています。

そのあとは、clearContents(511)です。

 

Sub ksClearRanges
Dim objSheet as Object
Dim objCellRange as Object

objSheet=ThisComponent.sheets(0)
objCellRange=objSheet.getCellRangeByPosition(0,0,4,4)
objCellRange.clearContents(511)
end sub