不懂VBA也编程

jordanh

太过于强悍了。。。才发现自己的渺小啊

qqqrerere

这个必须要收藏

fengjy1976

学习，收藏

changkun

太棒啦
非常感谢

431688848

通俗易懂，学习了。

ya.zhu

在单位我是一个会操作电脑的“高级人才”，在这里我是一个菜鸟，学习/学习/再学习

diyuzhishi

阅完  证实确实很强大

山菊花

11、滚动条乖乖
存在的就是合理的。系统允许使用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

复制代码

滚动条乖乖.rar (133.48 KB, 下载次数: 804)

2012-2-16 21:56 上传

点击文件名下载附件

ifernicer

相当有价值的一篇基础帖，学习了

Albert128

山菊花 发表于 2012-2-8 11:08
11、滚动条乖乖
存在的就是合理的。系统允许使用VBA控制窗口滚动条的位置，也许它正是你需要的功能。
要求 ...

请问大师，按照你的步骤操作，为什么不能达到你所说的效果呢？