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

9a128

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

jiminyanyan

原帖由 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

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

zhqang

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

zhqang

原帖由 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

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

expressionli

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

moon2778

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

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

学习受教，谢谢。

ggsmart

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


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

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

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

复制代码

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

1. 
   
2. Application.ScreenUpdating = False
   

复制代码

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

1. 
   
2. Application.ScreenUpdating = True
   

复制代码

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

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

ddsir

楼主加油啊！