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

eileen919

很好很实用哦

阿龙168

原帖由 ggsmart 于 2009-10-10 11:51 发表
1、Dim Lsum As Long, i As Long（在这里Lsum和i只是一个名字而已，不一定非得用这两个词可以用其他的如AA，BB之类的表示，这样理解对吗？）————是的，变量的名字可以根据自己的需要使用不同的名字，只要起的变量 ...

嗯，老师解释得非常清楚，而且回复得也很快，我会继续努力，谢谢！

bajie123

好，very 好！

阿龙168

笨啊，看了你的解释后研究了一个下午，还是有个问题没弄明白。
ub ggsmart2()
      Dim arr(1 To 100) As Integer '声明数组名称及数据类型
      For i = 1 To 100  '循环，为数组的元素赋值
         arr(i) = i
      Next
      [a1].Resize(100, 1) = WorksheetFunction.Transpose(arr)
  End Sub
这个现在会做了，道理也明白了，但是我想把它改成从A1开始给予赋值1-100的奇数，即1，3，5，7，9......99.
我的理解是只要把步长改成2就行了,于是就For i = 1 To 100后面加了Step 2其他地方没变,但是出来的结果却是：1，0，3，0，5，0，7，0。。。。。99，0。（可否解释一下中间为什么会有0，如何把0去掉达到1，3，5，7这种结果）
搞不懂为什么中间会跑出0来。于是照着你的例子来修改成下面的这样子也不行，中间还是有0。
Sub ggsmart5()
      Dim j As Integer
      Dim arr(1 To 100) As Integer
        j = 1
        For i = 1 To 100 Step 2
            arr(i) = i  '奇数赋值
            j = j + 1
    Next

    [F3].Resize(100, 1) = WorksheetFunction.Transpose(arr)
    End Sub
  “j = 1       '数组1 to 50的索引号  j = j + 1 '索引号加1”这两行起什么作用？是不是所有二维以上的数组一定要有这种格式？

zhangdaren

太感谢了，真精彩

arccosx

好文收藏下来认真学习，感谢楼主。

ggsmart

1、可否解释一下中间为什么会有0，如何把0去掉达到1，3，5，7这种结果？ ————————根据你的描述，你是把程序代码修改为：

Sub ggsmart2()
      Dim arr(1 To 100) As Integer
      For i = 1 To 100 Step 2
         arr(i) = i
      Next
      [a1].Resize(100, 1) = WorksheetFunction.Transpose(arr)
End Sub

你把步长改为2，这样，在执行循环时，循环变量i的值在循环一次时增加2，即分别为1,3,5,7.......99.这样。这样，for—next循环部分的语句实际上执行了以下操作：
         arr(1) = 1
         arr(3) = 3
         arr(5) = 5
         arr(7) = 7
         .........
         arr(99) = 99

这样，arr(2),arr(4),arr(6).......arr(100)实际上并没有赋值，没有赋值就默认为0。
所以[a1].Resize(100, 1) = WorksheetFunction.Transpose(arr)语句执行后，当然会有0存在。
至于怎样才能把0去掉？那给arr赋值的时候，索引号别用我们循环的循环变量i就可以了。另外，数组只需要50个元素即可，所以定义数组或把数组写入单元格时，不用再用100了。

2、 “j = 1       '数组1 to 50的索引号  j = j + 1 '索引号加1”这两行起什么作用？是不是所有二维以上的数组一定要有这种格式？————————还是看你的原种代码：

Sub ggsmart5()
      Dim j As Integer
      Dim arr(1 To 100) As Integer
        j = 1
        For i = 1 To 100 Step 2
            arr(i) = i '奇数赋值
            j = j + 1
        Next
    [F3].Resize(100, 1) = WorksheetFunction.Transpose(arr)
End Sub

首先纠正一下，你的这个程序生成的结果并不是一个二维数组。至于中间的变量j，应该是用来作数组arr的索引号的，用它的目的是为了避免你在上面问到的会出现0的情况。但是既然定义了变量j，为什么在数组arr(i)=i这一句不使用呢？还有一个问题，1至100的奇数只有50个，定义数组时，定义50个元素就可以了。所以，上面你的代码应该修改为：

1. 
   
2. Sub ggsmart5()
   
3.       Dim j As Integer
   
4.       Dim arr(1 To 50) As Integer
   
5.         j = 1
   
6.         For i = 1 To 100 Step 2
   
7.             arr(j) = i  '奇数赋值
   
8.             j = j + 1
   
9.         Next
   
10.     [F3].Resize(50, 1) = WorksheetFunction.Transpose(arr)
    
11. End Sub
    

复制代码

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

welky

本人后知后觉，好长时间没回家了！
附上作业！

zzhsh

以前找过好几份VBA的教程，但是总有不尽如人意的地方，有的太理论了，例子少，有的适合有一定VB基础的人看，看了LZ的几篇大作，感觉LZ的教程写得浅显易懂，深入浅出，希望LZ再接再厉，特别是多添加一些实例，让我们这些基础薄弱的能够更好的理解理论内容，废话少说，继续拜读学习LZ的大作中~~~~~

BOBBY1218

，好好看看楼主的心得