带你入门VBA，第二讲

teigi

赞同68楼的观点

兰色幻想

以下是引用ZPX在2004-10-18 18:34:00的发言：

给“兰色幻想 ”提个建议

对新内容应象第一讲那样拥逐句讲解，照顾一下没基础的人。不要讲得太快，否则就有违初终了，不会的人还是学不会。

比如：

Sub 矩形4_单击() For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 2) > 106 Then K = K + 1 End If Next MsgBox "大于106数值个数有" & K & "个", 1 + 64, "统计信息" End Sub

最好在每条语句后面注明。

接受建议

For i = 1 To Range("B65536").End(xlUp).Row

让i从1到B列最后一行的行号进行循环

If Cells(i, 2) > 106 Then

如果单元格Cells(i, 2)的值大于106 然后

K = K + 1

让K在原来基础上加1

End If Next MsgBox "大于106数值个数有" & K & "个", 1 + 64, "统计信息"

用MSGBOX 显示结果 End Sub

先锋

以下是引用ZPX在2004-10-18 18:26:00的发言：

请问“先锋 ”

你学得好快呀？

有啥好办法？

我第一讲还行。

第二讲学起来很困难。

其实我和你一样，学起来也很吃力。好的办法还没找到，慢慢来，一天学不会就两天……坚持！有很多都不懂，平时也没接触过，现在只有找了些相关书，边看边琢磨每一节课程。

playgirl

private sub worksheet_change(byval target as range)

i=inputbox("请输入数字")

cells(1,1)=i

end if

请问上面的代码错在哪？为什么输入数字后点确定，对话框一直退不出去？谢谢。

兰色幻想

以下是引用playgirl在2004-10-20 11:28:00的发言：

private sub worksheet_change(byval target as range)

i=inputbox("请输入数字")

cells(1,1)=i

end if

请问上面的代码错在哪？为什么输入数字后点确定，对话框一直退不出去？谢谢。

是因为你把代码放入了事件程序worksheet_change中，表中的单元格只要改变，就会重复运行一次。关于事件程序，在第四讲涉及的比较多

yasen

B列为空,但Range("B65536").End(xlUp).Row

的值为1,为什么不是0

兰色幻想

以下是引用yasen在2004-10-20 17:39:00的发言：

B列为空,但Range("B65536").End(xlUp).Row

的值为1,为什么不是0

因为ROW的最小值为1

hpw

[em02][em02][em02]

兰老师真是太伟大乐!

apolloh

看完了，学习完毕！

netcrystal

我先全部打包成word, 再打印出来. 慢慢看. 第二讲看来难多了.