如何实现“光标始终在视图正中”地滚动？

hzhbest

（不知道应该放VBA区还是这区，既然不清楚是否有VBA实现的可能，还是先放这里了）

效果就是，按方向键的话，例如按下键，如果是在表格视图中较高的行的话视图就不动，如果光标到达视图中部的行的话，就开始滚动视图，反正就是按下键之后光标向下移动一行，同时尽量维持光标仍在视图正中。

我知道 ScrollLock，可以只滚动视图不移动光标。
我希望的就是按方向键时，如果是靠左／上的单元格则只移动光标，否则就既滚动视图又移动光标。

谁都知道，望着屏幕正中的注意力最高，如果在滚动的时候视线不用移动而且不妨碍操作（录入／修改／通过聚光灯查看同行同列等）就最好了。

刀羊

貌似要用VBA的

hzhbest

最终用VBA实现了，整个模块的代码是：

1. Public v As Boolean
   
2. Sub 居中视图()
   
3.     If v = False Then
   
4.     Application.OnKey "{UP}", "上"
   
5.     Application.OnKey "{DOWN}", "下"
   
6.     Application.OnKey "{LEFT}", "左"
   
7.     Application.OnKey "{RIGHT}", "右"
   
8.     v = True
   
9.     Else
   
10.     Application.OnKey "{UP}"
    
11.     Application.OnKey "{DOWN}"
    
12.     Application.OnKey "{LEFT}"
    
13.     Application.OnKey "{RIGHT}"
    
14.     v = False
    
15.     End If
    
16. End Sub
    
17. 
    
18. Sub 上()
    
19.     If ActiveCell.Row = 1 Then End
    
20.     Selection.Offset(-1, 0).Select
    
21.     ActiveWindow.SmallScroll up:=1
    
22. End Sub
    
23. Sub 下()
    
24.     Selection.Offset(1, 0).Select
    
25.     ActiveWindow.SmallScroll down:=1
    
26. End Sub
    
27. Sub 左()
    
28.     If ActiveCell.Column = 1 Then End
    
29.     Selection.Offset(0, -1).Select
    
30.     ActiveWindow.SmallScroll ToLeft:=1
    
31. End Sub
    
32. Sub 右()
    
33.     Selection.Offset(0, 1).Select
    
34.     ActiveWindow.SmallScroll toRight:=1
    
35. End Sub

复制代码

运行宏会切换滚动方式，但还是比较毛坯，还未完全实现顶楼的效果，不过已经不错了。

lanseshuibei

我也在想这个问题哈哈哈没有人回复，就是输入的时候 光标在A10 ，切换下一个A10的时候希望视图还在10的位置，这样比较舒服，不然过会视图就会在表格底部了