[已解决]求助：excel朋友们帮解释一段VBA代码？

007feiren

听了兰老师的VBA循环语句的教程，事后自己看还是有点不理解，主要是不明白，每个语句的意思，请各位高手帮助解释一下每句话，尤其像dim、do单词，弄不懂在语句的意思？
sub test()
  dim k , mn
   do while mn<=100000
      k=k+1
      mn=mn+cells(k,1)
   loop
  msgbox cells(k-1,1).address
end sub
请各位朋友多多帮助，刚学VBA理解起来，很困难，请高手详细地解释一下，让大家见笑了。
不好意思，少输了一个语句。已补上。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-9-7 11:32

Sub test()
  Dim k, mn '声明两个变量 K 和MN
  Do While k < 20 '进入循环 当K小于20 继续循环，（大于等于20时，就结束）
      k = k + 1 'K 每次循环累计加1
      mn = mn + Cells(k, 1) '把单元格的值累加到变量 MN, (循环后就是单元格A1至A20求和)
   Loop
  MsgBox Cells(k - 1, 1).Address '弹出提示窗口，显示K-1行 ，也就倒数第二个 单元格（A19)！
End Sub

跳转到最佳答案楼层

mxg825

dim 声明 定义变量！
DIM 变量  AS 变量类型
DO和LOOP是配对使用的循环语句！ （选取代码 按F1 查看帮助信息)

007feiren

回复 mxg825 的帖子

刚学VBA麻烦朋友，把每一句都给解释一下，为盼！

mxg825

你的代码有误 ，
第一，没有DO 开头，，，
第二，没有结束循环条件语句！

L0VEEP

你的代码不全吧
没有do  只有一个loop

mxg825

Sub test()
  Dim k, mn '声明两个变量 K 和MN
  Do While k < 20 '进入循环 当K小于20 继续循环，（大于等于20时，就结束）
      k = k + 1 'K 每次循环累计加1
      mn = mn + Cells(k, 1) '把单元格的值累加到变量 MN, (循环后就是单元格A1至A20求和)
   Loop
  MsgBox Cells(k - 1, 1).Address '弹出提示窗口，显示K-1行 ，也就倒数第二个 单元格（A19)！
End Sub