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

trustwxq

谢谢夸奖，只是作业而已，实在不值一提啊！在这里最应该感谢的还是ggsmart ，谢谢ggsmart 的细心指点！

ggsmart

嘿嘿，我的国庆长假也结束了。
今天第一天上班，来看到大家还是那么热情，嘿嘿。。。。心里面暖暖的。
新的生活又开始了，希望大家开心工作，快乐生活。还有，让我们一起高高兴兴地学习！

伊普西龙

哈哈，楼主辛苦了～～

zznjcs

假期结束,第一次报道.

wjm0318

感谢楼主 写出这样易读的教材

yyasong

真的很谢谢分享！

trustwxq

楼主好，前面的SelectionChange事件还没留作业呢，同学们经过了一个长假都玩的调皮、不好管了！

wangbt0728

学习了，楼主辛苦了，为我们制作了这么好的教程。

阿龙168

赫赫（喘个大气先），虽然不是一口气读完，但也只用了几口气而已，
由于初次接触VB一下子赶不上来，加上时间的关系没能一一的仔细研究、做作业。
做个标记，顺便问几个笨笨的问题：
1，对于For—Next语句的理解：
Sub mysum()
Dim Lsum As Long, i As Long（在这里Lsum和i只是一个名字而已，不一定非得用这两个词可以用其他的如AA，BB之类的表示，这样理解对吗？）For i = 1 To 1000
    Lsum = Lsum（这个Lsum是不是可以理解成原值是0的意思，即第一次循环的结果是0+1＝1，这样对吗？） + i
Next
MsgBox "1到1000的自然数和为：" & Lsum
End Sub
2，关于数组：
Sub ggsmart()
　　  Dim arr(1 To 100) As Integer '声明数组名称及数据类型（arr也只是一个名字而已，数组名称不一定非得用arr表示　对吧？）　　  For i = 1 To 100 '循环，为数组的元素赋值
　　    arr(i) = i
　　  Next
　　End Sub
单单就上面这段代码按F5后是没看到什么结果显示出来的，可否解释一下为什么？
因为没有结果显示，所以我在Next后面加了一段：[a1].Resize(100, 1) = arr变成如下：
Sub ggsmart()
      Dim arr(1 To 100) As Integer '声明数组名称及数据类型
      For i = 1 To 100 '循环，为数组的元素赋值
        arr(i) = i
      Next
      [a1].Resize(100, 1) = arr
    End Sub
运行后结果是A1到A100的单元格都是1，这里我就不明白了， arr不是表示1到100的意思吗？那运行后A1到A100的单元格不应该是1，2，3，4，......100的意思吗？而怎么A1到A100都是1呢？
如果要执行A1至A100的单元格依次为1,2,3......100该怎么修改？
刚刚接触VB两三天，而且是看着你这贴子学的，所以麻烦老师解释一下上面几个愚笨的问题，非常感谢！

[ 本帖最后由 阿龙168 于 2009-10-10 09:52 编辑 ]

snow000123

感谢楼主大人的无私奉献的伟大精神~~~
楼主大人的幽默风趣也是让我有兴趣学下去的理由之一哦，哈哈哈~~