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

Alex2009W

看了你的帖子，长了不少知识；好贴呀！ 说声感谢！感谢叶枫老师

qlinshun

刚开始学感觉很好，先做个标记。
慢慢学。

hadlym

感谢楼主，我也是菜鸟，正在努力学习中，

ggsmart

原帖由 宝贝有酒窝 于 2009-8-26 22:04 发表
嘿嘿 ……总算是按照题目做出来了

不过呢 我的一些细节不够完美
比如：问题3 我的办法有些死板 冗长 不知道怎么简化
其次就是 内容分置到别的工作表之后的序列号我想排列好，但是没有想到好的办法
然后就是我想 ...

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

想一想解决的办法！

ggsmart

原帖由 alex1437 于 2009-8-27 03:26 发表
才看到，这是我的作业。
欢迎指点！！

已经很不错了。但还是有一个不足的地方，即当后面的分表中已经有数据了，且数据的记录超过分类进去的记录数的时候，返回的结果就不是我们要的结果了。
比如我们原有的附件，需要分到“卫城”工作表的有两条记录，如果在点按钮之前，“卫城”工作表中已经有了两条以上的记录时，点按钮后，“卫城”工作表中第二条以后的记录将不会清除，而这不是我们想要得到的数据！

但然，这个在我们原有的附件中是没有的，但还是希望alex1437朋友能完善一下。！

谢谢参与！

[ 本帖最后由 ggsmart 于 2009-10-2 15:06 编辑 ]

sunnielu08

谢谢

Alex2009W

谢谢

ggsmart

汇总多工作表花名册

　　上一贴中，“花名册分类”的题目主要是检验大家对循环语句、判断语句及一些单元格数据处理的方法。因为目标工作表和源工作表的格式都是一样的，所以处理起来也相对比较简单，无非就是给数据搬了个家。所以可以用我们前面贴子里说的Copy的方法，当然，也可以直接等于源区域的Value属性，即：目标区域.value=源区域.value。比如我们想把Sheet1里的第一行数据复制到Sheet2的第一行，可以用以下两句代码中的任意一句：
　　

1. 
   
2. 　　Sheets("sheet1").Rows(1).Copy Sheets("sheet2").Rows(1)
   
3. 　　

复制代码

　　

1. 
   
2. 　　Sheets("sheet2").Rows(1).Value = Sheets("sheet1").Rows(1).Value
   
3. 　　

复制代码

　　这一点，在“宝贝”的作业里已经用到了。
　　上次的作业是对名册进行分类，进行原样的搬家。这一次的作业还是搬家，和上次不一样的是，这次是将名册汇总到一个工作表，而且只汇总相应的内容，不再是那种原封不动的搬家了。当然，原理还是一样，如果你会了前一题，这一题对你来说，就显得很小儿科了。
　　设计一个程序，能否实现目的很重要，实现目的的同时，高效率的程序也是我们追求的。但是我们现在才开始，大家不必太过于考虑效率的问题，管他什么代码，只要能实现目的即可。在附件里，我加了计算程序执行时间的代码，你不用去管它，之所以加上这段代码，是因为在下面的帖子里我可能会用到。　　

1. 
   
2. 　　Sub mysub()
   
3. 　　  Dim start As Double
   
4. 　　  start = Timer
   
5. 　　  
   
6. 　　    '在这里添加你的代码
   
7. 　　  
   
8. 　　  MsgBox "程序共执行了" & Timer - start & "秒!"
   
9. 　　End Sub
   
10. 　　

复制代码

　　
　　作业见附件， 学生花名册汇总.rar (21.53 KB, 下载次数: 10870)

2009-8-27 12:53 上传

点击文件名下载附件

此贴到此为止，咱们不见不散，楼下见！
　　

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

HBCZH2008

练习过了,很好!
    感谢楼主!
         但要熟练运用,还要时间,现要急用这么一个东西,请师傅们帮忙!       先感谢了在这里!               思路如下:
      我们的产品要做测试,得到常用的五个数据,(每一款测试都不同)然后再用这五个数据经过相同的计算公式,得到产品的性能,这里面,计算后的结果数据还得要用CAD作出图形,EXCEL里面的公式我已做好,结果很准确!(用的是函数)                                 我的问题是:    有没有办法,让CAD自动用这些结果数据作为参数(包括CAD里面的文本自动修改和直线或曲线的点的坐标值自动生成,   特别说明:CAD中的图形格式是一样的,只是绘出几个不同的直线或曲线,文本也要相应的作出修改)  
         请楼主和各位不要笑话我哈,我真的做不出这个东东,求救了!

[ 本帖最后由 HBCZH2008 于 2009-8-27 19:27 编辑 ]

沧海一滴

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


没完全明白你的意思，你是要同时新建三个或四个的新工作表吗？

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