[已解决]求大师帮忙，求单击任意单元格，都能使激活的单元格定位在特定行列上的代码。

一片薄云

比如单击任意单元格，都能使激活的单元格定位在Excel窗口的第4行、第2列。

我用代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveWindow.ScrollRow = Target(-2).Row
    ActiveWindow.ScrollColumn = Target(-1).Column
End Sub
被激活的单元格总是在第1列，第3行代码中的“（-1）”怎么修改都不显效果，请问原因，怎样才能使激活单元格定位在其他列？

最佳答案

月排行榜 / 总排行榜

dsmch

2016-5-21 09:08

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. ActiveWindow.ScrollRow = Target.Offset(-3, 0).Row
   
4. ActiveWindow.ScrollColumn = Target.Offset(0, -1).Column
   
5. End Sub

复制代码

跳转到最佳答案楼层

02761752696

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.         Cells(4, 2).Activate
   
4. End Sub

复制代码

dsmch

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. ActiveWindow.ScrollRow = Target.Offset(-3, 0).Row
   
4. ActiveWindow.ScrollColumn = Target.Offset(0, -1).Column
   
5. End Sub

复制代码

一片薄云

dsmch 发表于 2016-5-21 09:08

谢谢大师指点，效果很满意！

一片薄云

02761752696 发表于 2016-5-21 08:55
我刚接触VBA，第一次试了下效果，活动单元格出现在了左上角。

刚才又试了一次，单元格只能定位在b4，但很高兴您的帮忙！