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

宝贝有酒窝

原帖由 ggsmart 于 2009-8-27 11:05 发表

呵呵。。。。。不错，但是有些不足：
1、如果总花名册中超过107条记录或者新增加了记录的话，分类时就不能全分完了。
2、如果点击按钮两次或两次以上，分表中的记录会重复。

想一想解决的办法！

这两个问题 已经修改上传了，可是我知道还有别的问题 但是更想做新作业……

datafield

我徘徊在编程大门之外几十年了，很来没有踏进去过……现在知道了，我可以从这个叫VBA的大门进去。谢谢！

宝贝有酒窝

小月的作业时重新按照地区重建一个新的工作表 这点我想学……(*^__^*) 嘻嘻……

kevindy

终于把第二页的内容学完了。休息一下。谢谢老师，我一定会赶上来的。

kevindy

终于把第二页的内容学完了，休息一下。感谢老师和这么多的热心的同学。我一定会赶上来的。

magic0427

真是入门的好帖子，非常感谢

aa7701914

得一真传者，莫为我也。。
ggsmart 老师，传千人不如传一人，传一人等于传千人。。
学生有礼了，下跪拜师.收个徒弟吧，我需要一个关心偶的师傅，方言道：师傅领进门，修行靠个人"学生定将努力学习您的精髓,不会枉会你收我这个徒弟的.....也不枉费你写出这么好的入门手册.
期待....
一直期待...

ggsmart

新建工作表
---------------------

        在“花名册分类”的作业里，moon2778加入了为不同地区建立工作表代码，让“沧海一滴”和“宝贝有酒窝”两个朋友都跟贴问了新建工作表的相关问题。有需要就有市场，呵呵......那我再在这里简单讲一讲我对新建工作表的认识，希望对大家学习有帮助。

        新建一个工作表（Worksheet)，要调用工作表(Worksheet对象）的Add方法（可以建制一个新建工作表的宏来查看相关的代码）。
        如果我们想在当前工作表中新建一个工作表，代码可以写为：

1. 
   
2.            Worksheets.Add '新建的工作表的位置在当前活动工作表的前面
   
3.         

复制代码

此时，新建的工作表Excel默认把它放在活动工作表的前面，如果我们需要改变它的位置也是可以的。例如：

1. 
   
2.           Worksheets.Add before:=Worksheets("sheet2")  '在工作表sheet2之前添加一个工作表
   
3.           Worksheets.Add before:=Worksheets(1)   '在最前面添加一个工作表
   
4.           Worksheets.Add after:=Worksheets("sheet2") '在工作表sheet2之后添加一个工作表"
   
5.           Worksheets.Add after:=Worksheets(Worksheets.Count) '在最后面添加一个工作表
   
6.       

复制代码

试了以上的代码，我们会发现，新添加的工作表都是采用“老大、老二、老三.....”的命名方式，如果你需要为新添加的工作表改一个名字，也是可以的，只需要再添加一句代码即可：

1. 
   
2.         Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表
   
3.         ActiveSheet.Name = "abc"  '将新建的工作表更名为“abc”
   
4.       

复制代码

如果想更简单点，这句代码还可以合二为一：

1. 
   
2.          Worksheets.Add(before:=Worksheets(1)).Name = "abc" '在最前面添加一个名称为“abc”的工作表
   
3.       

复制代码

有时，也许需要一步就添加多个工作表，那可用下面的代码：

1. 
   
2.         Worksheets.Add Count:=3   '添加三个工作
   
3.      

复制代码

    但是一次性添加多个工作表时，好像就无法同时对其重新命名了。
---------------------------------------------------------------------------------------------------------
     关于247楼朋友的提问
   

原帖由 沧海一滴 于 2009-8-27 19:13 发表
    楼主你好！
    我可能没有表达完整，现再重新解释如下：
    1、“花名册”中有固定的工作表三个或四个，而“花名册”只是其中之一工作表；
    2、用“moon2778”作业为例子，当没有建立子工作表情况下，建立时，如何在固定工作表后重新建立分配后的工作表。

        moon2778的例子里，在新建工作表之前，先执行了一个删除工作表的操作，把工作薄中所有不是当前工作表的所有工作表全部删除。如果你的工作薄里原有子工作表的话，建议你用我在213楼（http://club.excelhome.net/viewthread.php?tid=470603&page=22#pid3110867）的回复里的方法。我们可以在新建工作表的时候，先在工作表集合里看一下是否有我们需要添加的工作表，如果没有，则执行添加操作。这样，就不用去删除所有的工作表了。
       还是拿“花名册汇总”例子的工作表来说吧，如果我们需要自己新建相应的工作表，并命名，可用以下代码：

1. 
   
2. Sub shtadd()
   
3.   On Error Resume Next '出现错误继续执行下一句
   
4.     Dim xrow As Integer
   
5.     xrow = Worksheets("外在本就读花名册").[b65536].End(xlUp).Row
   
6.     For i = 3 To xrow
   
7.        If Worksheets("外在本就读花名册").Cells(i, 8).Value = "清镇" Then
   
8.           If Worksheets(Worksheets("外在本就读花名册").Cells(i, 9).Value) Is Nothing Then '     '判断是否存在该地区的子工作表
   
9.               Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = Worksheets("外在本就读花名册").Cells(i, 9).Value '新建表并命名
   
10.          End If
    
11.      nd If
    
12.   Next
    
13. If Worksheets("清镇市外") Is Nothing Then            '判断是否存在“清镇市外”工作表
    
14.     Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "清镇市外"
    
15. End If
    
16. End Sub
    

复制代码

以上代码是按moon2278的思路更改，但只是添加表格并给表格命名，并没有对表格进行设置，所以如果需要对表格进行格式设置（比如添加表头），可再自行添加相应的代码。
表头都是一样的，大家有没有想过用复制来代替新建？复制后，将第三行以下的值全部删除，再对工作表重新命名，也是可以的！

    PS：我休息两天，周一见！

[ 本帖最后由 ggsmart 于 2009-8-28 17:30 编辑 ]

moon2778

原帖由 ggsmart 于 2009-8-27 12:53 发表
汇总多工作表花名册

　　上一贴中，“花名册分类”的题目主要是检验大家对循环语句、判断语句及一些单元格数据处理的方法。因为目标工作表和源工作表的格式都是一样的，所以处理起来也相对比较简单，无非就是给数 ...

楼主加油，让暴风雨来的更猛烈些吧。

（ps：自己想代码，自己理思路，自己努力，自己进步）

[ 本帖最后由 moon2778 于 2009-8-28 17:30 编辑 ]

ggsmart

原帖由 moon2778 于 2009-8-28 17:18 发表


楼主加油，让暴风雨来的更猛烈些吧。

（ps：自己想代码，自己理思路，自己努力，自己进步）

恩，棒！你好凶！！！！历害。
赞赏你的智慧的同时，提个小建议：
建议不要用for-next循环（你的程序中用的是for =2 to 8)，改用for each循环。
至于为什么，你可以把“外在本就读花名册”这个工作表换一下位置，比如放在第二个，第三个，或最后看一看就知道了。

[ 本帖最后由 ggsmart 于 2009-8-28 17:40 编辑 ]