VBA调整表格视图，上仙帮帮我

shibaideren

详见附件，谢谢上仙。

xjl565135022

1. <span style="background-color: white;"><font color="#000000">Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     ActiveWindow.ScrollColumn = Target.Column '设置窗口最左边列号
   
3.     ActiveWindow.ScrollRow = Target.Row '设置窗口最上边行号
   
4. End Sub</font></span>

复制代码

songshihai

跟你点需求有点差别,直接跳到最左上角去了

剑指E

这个需要具体文件，仅仅粗略示例其中变数太大，没有参考性。

xjl565135022

不知道你是不是想要这种效果，需要用VBA

wtg321

试试：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Interior.Color = 255 Then ActiveWindow.ScrollColumn = 10
   
3. If Target.Interior.Color = 5287936 Then ActiveWindow.ScrollColumn = 17
   
4. If Target.Interior.Color = 0 Then ActiveWindow.ScrollColumn = 26
   
5. 'If Target.Interior.Color = 16777215 Then ActiveWindow.ScrollColumn = 1
   
6. End Sub

复制代码

shibaideren

xjl565135022 发表于 2024-9-6 14:31

确实是这种效果，代码在我这不能用，是版本的问题吗？上仙

xjl565135022

shibaideren 发表于 2024-9-8 22:38
确实是这种效果，代码在我这不能用，是版本的问题吗？上仙

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveWindow.ScrollColumn = Target.Column '设置窗口最左边列号
    ActiveWindow.ScrollRow = Target.Row '设置窗口最上边行号
End Sub

工作表事件要写在工作表里面，双击Sheet1那里，把代码粘贴进去