不懂VBA也编程

pool1 · 发表于 2012-11-19 23:09

学习学习了

hasayaki · 发表于 2012-11-20 17:46

初来乍到看着挺深奥的 FIGHTING{:soso_e130:}

kidvip · 发表于 2012-11-20 21:02

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub
Dim nSh%
Application.ScreenUpdating = False
nSh = Worksheets.Count
For i = nSh To 1 Step -1 '循环所有工作表
Sheets(i).Activate
ActiveWindow.ScrollRow = 1 '设置当前工作表最上面显示的行号
ActiveWindow.ScrollColumn = 1 '设置当前工作表最左边显示的列号
Next
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub

水晶梦888 · 发表于 2012-11-23 00:00

太感谢楼主了，学习啦~~{:soso_e163:}

kaixin456 · 发表于 2012-11-23 08:49

很不错的构思，学习了，感谢分享。

whaih111 · 发表于 2012-11-27 01:20

学习学习再学习，好东西一定要看一下。

zy乐天 · 发表于 2012-12-20 19:26

有个问题，就是安装上面的执行后，单元格不能添加背景色了！

zy乐天 · 发表于 2012-12-26 11:17

山菊花发表于 2008-11-18 15:42
用条件格式设置高亮显示当前行，难的是如何确定当前行。用VBA就很简单，鼠标右击工作表标签，选择“查看代码 ...

楼主，当前编辑格子里的高亮是显示了，但是原来表格里面的未编辑表格里的背景色没了！怎么办呢

zzss35 · 发表于 2013-1-4 13:54

8、为工作簿创建目录(127楼)
里面要是工作表的名字是数字，比如121201，就会出现错误，求解决。

bbdll · 发表于 2013-1-16 15:52

认真学习中。。。

		自动登录	找回密码
密码			免费注册

不懂VBA也编程

点评