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

江南布衣ooo

在课堂上，没赶上个寓教于乐的teacher，遗憾
不想铁杆叶在EH给大家上了一堂那么有意思的课，受教受教。。
支持！！

好康

这vba不就是vb吗 很担心vb那么多集成语句不能熟练的记下来 到头来还是不会编程。。。。

tcl6303

请各位老师帮忙看一看
我编写的程序功能在附件里
问题是：当工作表不全时，点击按钮一次只建立工作表，再点击一次才能导出数据。
        为什么点击一次不能既建齐工作表、又导出数据？
请各位老师诊断一下原因，找出解决的方法。谢谢大家！

tcl6303

请各位老师帮忙看一看
我编写的程序功能在附件里
问题是：当工作表不全时，点击按钮一次只建立工作表，再点击一次才能导出数据。
        为什么点击一次不能既建齐工作表、又导出数据？
请各位老师诊断一下原因，找出解决的方法。谢谢大家

伸手摘星

先来留个脚印，看看能否看的明白，如果能大致看的懂再去报个班系统的学习一下！

ggsmart

If Cells(i, 8) = "清镇" Then
    aa = Cells(i, 9)
     If Worksheets(aa) Is Nothing Then
        Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = aa
     End If
     Worksheets("外在本就读花名册").[a1].Resize(2, 12).Copy Worksheets(aa).[a1]
     Worksheets(aa).[a3:l65536].Clear
  Else

问题出在红色的这两句，或者说是出在cells(i,9)这里
新建一张工作表后，新建的工作表会成为活动工作表，这个你应该知道吧？
那请问：cells(i,9)指的是什么呢？
指的是活动工作表中的第9列的第i行千元格的值。那当你新那家工作表后，结果变成什么了？

[ 本帖最后由 ggsmart 于 2010-8-9 14:32 编辑 ]

dandyzhangpma

真是谢谢楼主这么快就回复了！

第一个问题已经解决了，我在网上发现了一个语句，也能解决这个问题：
amount = Sheets("Scorecard").Range("A65536").End(xlUp).Row
从A65536开始向上检查这一列，如果遇到单元各有内容，就结束，输出所在数据的行数，我已经验证这个是正确的。

第二个问题，我上传了需要制作的表格。
总的要求，在图表中，每个编号对应两个状态，target, actual，希望对所有的编号做出如下的表格。
如表中所示，有些单元格的数据类型不是日期，或者就完全没有数据，希望能在这样的条件下输出“ NA "
编号会随时间做出调整，比如添加第31号，或者把不需要的删除，图表能够自动转化成现在的状态。

多谢多谢楼主！

dandyzhangpma

另外忘记问了：

我在把制图区域扩展到15个零件的时候，在运行宏的时候就会跳出：
enable to set the xvalues property to the series class

为什么会这样呢？我直接制图就可以做得出来，但是一运行vb的语句就出现这句话了。。

ggsmart

你要做什么我还是没明白

steelfulcrum

感谢老师辛勤工作，学习中