回顾一下：
Sub 建立工作表() Sheets.Add End Sub
可以利用工作表的Add属性增加工作表，如果想添加更多，只要设置一个循环就可以了。还记得教程一中的那种话吗？“编程有什么了不起？不就是判断和循环吗”，我们来验证一下。
Sub 建立工作表() Dim i As Integer For i = 1 To 5 Sheets.Add Next i End Sub
这段代码一运行，一下子就可以插入5张表，如果你把5改成50，则一下子可以产生50张表，如果是手工插入，你要花多长时间啊！
其中的 for…next…就是表达循环关系的一种方式，还有其它种类，暂且不表。值得提醒的是，循环变化i在使用前，你一定要先和dim声明一下。
你发现，所生成的工作表的名称，是自动加上去的，要是在生成的时候，就给个名字，是不是会更好呢？试试下面的代码吧。
Sub creatsheet1() Dim i As Integer For i = 1 To 10 Sheets.Add
ActiveSheet.Name = i Next i End Sub
一下子生成了10张表，表名从1到10，难道用它来表示一班到十班，不是非常好吗？我想到了我们的《成绩分析系统》。如果名字不是一个系列的数字，你可以使用数组来表达，比如知个学科表。
Sub creatsheet() Dim i As Integer Dim sheetName
sheetName = Array(\语\数\英\物\化\ For i = 0 To 4
Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = sheetName(i) Next i End Sub
到目前，你的工作簿中已经有很多工作表了，如果你实验的次数足够多，你还会收到一些错误的警告，那是因为你插入的工作表重名了。
如果你要删掉一张工作表，那有点麻烦，因为你必须具体而明确地指明是哪一张工作表，否则，程序不知你对谁的工作不满意了，要删除谁，你得先指明。这完全不象某些的领导，要表扬，就会表扬一大堆，尽管有时是某名其妙的张冠李戴，而批评，也是一本糊涂账。
怎么删呢？看下例： Sub deleteSheets()
Sheets(“sheet1”).Delete End Sub
如果你想删掉一些工作表，你想手动还是用代码自动化呢？当然是后者，看看下例。
Sub deletesheet3() Dim i As Integer For i = 1 To 5
Sheets(CStr(i)).Delete Next i End Sub
千万注意不要写成Sheets(i)，一定要加上CStr()，我就是吃了这个亏，浪费几个小时，气晕了头才发现的，计算机是多么机械的一个东西，不能越雷池一步，有点象某些死板的领导。
要是删那种不是数据系列的工作表，就得用下面的代码了。 Sub deleteSheets() Dim className
className = Array(\语\数\英\物\化\ For i = 0 To 4
Sheets(className(i)).Delete Next i End Sub
你插入的那些有名字的工作表，将逐一被删除！每删一张，都会给一句警告，能否让它不出现呢？
再加两句代码，就可以了。 Sub Deletesheet() Dim className
className = Array(\语\数\英\物\化\ Application.DisplayAlerts = False For i = 0 To 4
Sheets(className(i)).Delete Next i
Application.DisplayAlerts = True End Sub
以上代码将用到《成绩分绩系统》统计分析按钮和退出系统按钮中，点一下统计分析，就会产生各班级和各学科分数表，只是暂时还没有数据，会有的，你得有点儿耐心。再点一下退出按钮，将把这些表给删了，会让我们的软件体积更小。
好啦，到这里，你已经可以添加你想要的任意数量的工作表，也可以把它删了，都只是弹指之间的事情，以后，你要是有什么不顺心的事，可以到这里反复添加和删除，相当于到健身房去打拳。好象，人们越来越脆弱了，据说这样可以发泄自己，让自己很快平静下来。常听到两句时髦的话：“要调整好心态”、“你
不能改变世界，那你可以改变自己的心情”，我感觉人类真是越来越渺小，越来越脆弱了，这种对命运的逃避、妥协、呻吟和哀叹，真让人看不起，更有许多人，心态其实很差，往往张口避口对别人谈心态，仿佛自己人心态很好似的，不过是个掩耳盗铃的小丑！或许是虚张声势地掩盖自己的自卑而已。还有一种“心态好”，那是一种赤裸裸缺乏基本的羞耻感。扯远了，打住。
本期的作业：你得看一看数组这个东西，还要看一眼变量的声明，看帮助就可以了。
我们下期见！
相关推荐：
loading