[已解决]求助：如何将当前活动单元格变更成A1

1top_yp1

利用代码如何将工作表中的活动单元格变更到A1

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-9-19 15:23

这样？

1. Sub test()
   
2.     Range("a1").Activate
   
3. End Sub

复制代码

跳转到最佳答案楼层

ws278106483

没有明白你的意思啊？   

hrpotter

这样？

1. Sub test()
   
2.     Range("a1").Activate
   
3. End Sub

复制代码

1top_yp1

ws278106483 发表于 2012-9-19 15:18
没有明白你的意思啊？

就是工作表中用鼠标随便点一个单元格，这个单元格就叫做活动单元格，现在比如我点了B13，现在当前活动单元格就是B13，我想利用代码把B13变成A1作为当前活动单元格

ws278106483

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Range("a1").Select
   
3. 
   
4. End Sub
   

复制代码

windimi007

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     Cells(1, 1).Select
   
3. End Sub

复制代码

把代码放到ThisWorkbook下即可。

1top_yp1

windimi007 发表于 2012-9-19 15:30
把代码放到ThisWorkbook下即可。

受教了，谢谢{:091:}

1top_yp1

ws278106483 发表于 2012-9-19 15:28

受教了，谢谢{:091:}