在LibreOffice Calc中选择一个单元格

Question

所以我有一个宏来清除一些单元格A2-A250但是我想在完成后返回单元格A1

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

要移至单元格，请选择它：

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)