在LibreOffice中選擇一個小區計算器

Question

所以我有一個宏來清除某些細胞A2-A250但我想，一旦我已經完成

Sub reset 
Dim oActiveSheet As Variant 
Dim oCellRangeByName As Variant 

oActiveSheet = ThisComponent.getCurrentController().getActiveSheet() 

oCellRangeByName = oActiveSheet.getCellRangeByName("A1:A250") 

oCellRangeByName.clearContents(7) 
End Sub 

Answer 1

要移至細胞恢復到細胞A1，選擇它：

oRange = oActiveSheet.getCellRangeByName("A1") 
ThisComponent.getCurrentController().Select(oRange) 

Andrew Pitonyak's macro document的第6.5.3節討論瞭如何選擇帶或不帶輪廓的單元。添加此代碼以突出顯示單元格：

oRanges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges") 
ThisComponent.getCurrentController().Select(oRanges)