excel滚动条-Excel VBA 控制窗口滚动条的位置，你也许会有新发现

存在的就是合理的。系统允许使用VBA控制窗口滚动条的位置，也许它正是你需要的功能。

要求：关闭文件时，所有工作表窗口的滚动条自动回复到最上、最左位置。

按Alt+F11打开VBE窗口，双击“ThisWorkbook”模块，将下面的代码粘贴到代码窗口：

1. 
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
3. Dim nSh%
4. Application.ScreenUpdating = False
5. nSh = Worksheets.Count
6. For i = nSh To 1 Step -1 '循环所有工作表
7. Sheets(i).Activate
8. ActiveWindow.ScrollRow = 1 '设置当前工作表最上面显示的行号
9. ActiveWindow.ScrollColumn = 1 '设置当前工作表最左边显示的列号
10. Next
11. ThisWorkbook.Save
12. Application.ScreenUpdating = True
13. End Sub

小伙伴，大家一起学习Excel VBA知识，一起进步。同时欢迎大家帮忙转发并关注，谢谢大家的支持！