抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

zxueq

谢谢楼主分享

lnykwrz

谢谢楼主

humengqiang

下载了，正在学习中，谢谢楼主分享

humengqiang

学着使用了下，很好，谢谢，很适合我们这种水平不好的人学习使用。不过正如前面一位前辈说的，好像简单了些，另外，下面是我测试的一段代码：
Private Sub CommandButton2_Click()    '私有的子程序 CommandButton2_<点击>()
    Dim x As Long    '定义变量 x 为 长整型值
    Dim y As Long    '定义变量 y 为 长整型值
    Dim i, j    '定义变量 i,j
    y = ListBox1.ListCount    ' y= ListBox1的ListCount
    x = Sheets("sheet2").Range("a65536").End(xlUp).Row    'x=<工作表>("sheet2" )的<单元格>区域("a65536" )的<末端>(方向向上 )的行标
    For i = 1 To y - 1    '设定变量范围为i=1到y-1
      For j = 1 To 6    '设定变量范围为j=1到6
        Sheets("sheet2").Cells(x + i, j) = ListBox1.List(i, j - 1)    '<工作表>("sheet2" )的<单元格>坐标(x+i,j)= ListBox1的List(i,j-1)
        ListBox1.List(i, j - 1) = ""    ' ListBox1的List(i,j-1)=空值
      Next j    '下一个j
    Next i        '下一个i
End Sub    '子程序结束
我有个小小的想法，如这句：
x = Sheets("sheet2").Range("a65536").End(xlUp).Row    'x=<工作表>("sheet2" )的<单元格>区域("a65536" )的<末端>(方向向上 )的行标
如果注释成“求表sheet2的a列最后一个空行的行号”，后面循环的那段如能解释成“将列表框1的内容填入工作表2”是不是对我们这种水平很低的人要容易理解些？
这是我个人的想法，说的不对请原谅！

lbl016

原帖由 humengqiang 于 2010-5-1 22:38 发表
学着使用了下，很好，谢谢，很适合我们这种水平不好的人学习使用。不过正如前面一位前辈说的，好像简单了些，另外，下面是我测试的一段代码：
Private Sub CommandButton2_Click()    '私有的子程序 CommandButton2 ...

我也有同感哟

ZLG5496

谢谢，我等菜鸟正需要

hpeipei

支持楼主。学习了。呵呵。。多谢。

fanmin

下来试试好不好用，谢谢兄弟的分享

lnykwrz

谢谢，支持一下楼主的共享精神。

bzmbq

很好的学习资料,全下了，谢谢分享.