菜鸟谈VBA最最基础入门《原创》

9a128 · 发表于 2009-8-25 22:46

图文并丰，很有冲击性，不看都不行呢！

jiminyanyan · 发表于 2009-8-26 00:15

原帖由 moon2778 于 2009-8-25 20:25 发表

啊哈，做完了。不过只能点按钮一次。。。。再点一下就不对了。不晓得如何克服。暂时不想了。

工作表重名，笨办法，可以先将工作表删除再建立
Application.ScreenUpdating = False
Application.DisplayAlerts = False '删除工作表警告提示去消
Dim sht As Worksheet
Dim th As Workbook
Set th = ThisWorkbook
For Each sht In th.Sheets '在工作表里循环
                  If sht.Name <> Sheet1.Name Then
                  sht.Delete
                  End If
                  Next
Application.DisplayAlerts = True
结尾加上 Application.ScreenUpdating = True

usercoolboy · 发表于 2009-8-26 01:05

不错，呵呵非常幽默也很形象，通俗易懂，真的可以算是入门级精品文章了

zhqang · 发表于 2009-8-26 07:59

讲的很精彩，楼主应该是个教师，而且是个受学生欢迎的教师。

zhqang · 发表于 2009-8-26 08:02

原帖由 artemis_xu 于 2009-8-18 12:19 发表
请问老师，这一段：
Sub 求1到10000之间奇数和2()
Dim I&, J&
For I = 10000 To 1 Step -2
J = J + I
Next
MsgBox "1到10000之间奇数和为" & J
End Sub
是不是应该9999 to 1啊？
...

楼主很善于思考。是有问题,应该是9999。

[ 本帖最后由 zhqang 于 2009-8-26 08:04 编辑 ]

expressionli · 发表于 2009-8-26 08:47

已经坚持学习一个多月了，出差了也在学
我学学学
我赞赞赞

expressionli · 发表于 2009-8-26 08:54

一步一步的接近高效办公体验！
支持作者

moon2778 · 发表于 2009-8-26 09:04

原帖由 jiminyanyan 于 2009-8-26 00:15 发表

工作表重名，笨办法，可以先将工作表删除再建立
Application.ScreenUpdating = False
Application.DisplayAlerts = False '删除工作表警告提示去消
Dim sht As Worksheet
Dim th As Workbook
...

学习受教，谢谢。

ggsmart · 发表于 2009-8-26 09:46

原帖由 moon2778 于 2009-8-25 20:25 发表

啊哈，做完了。不过只能点按钮一次。。。。再点一下就不对了。不晓得如何克服。暂时不想了。

呵呵，moon果然历害。
你的按钮在点第二次出错的地点是：重命名工作表时。（工作薄中已经存在相应的工作表了，就无法重命名。）前面的朋友已经提供了一种解决的办法，在这里，我提供另外一种，就是在新建工作表时，先判断工作薄中是否存在需要建立的工作表，如果已经有了，就不用新建了。
比如，现在我们想新建一个名叫“花名册”的工作表，则代码为：

Sub ggsmart()
On Error Resume Next '如果出现错误，继续运行下一句代码
If Sheets("花名册") Is Nothing Then '判断是否存在“花名册”工作表
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "花名册"
End If
End Sub

复制代码

同时，在程序运行时，建议关闭屏幕更新，即在程序开始时写上代码：

Application.ScreenUpdating = False

复制代码

但是在程序运行完后，一定要记得把它改回来，因为Excel不会为我们改它，代码为：

Application.ScreenUpdating = True

复制代码

关闭它后，可以让程序在后台执行而不用显示出其中的每一个步骤，不但让人感觉舒服，还可以提高程序的运行速度哦！

[ 本帖最后由 ggsmart 于 2009-8-26 11:46 编辑 ]

ddsir · 发表于 2009-8-26 10:44

楼主加油啊！

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

菜鸟谈VBA最最基础入门《原创》

回复 100楼 ggsmart 的帖子

回复 18楼 ggsmart 的帖子

回复 1楼 ggsmart 的帖子

评分