所以我有一个宏来清除一些单元格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
答案 0 :(得分:0)
要移至单元格,请选择它:
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)