文档分类
请大家先把这些复制到A1,得到下图的结果,
Sub产量合计()
DimItemAsInteger,合计AsLong
ForItem=2To11
合计=合计+Cells(Item,2)
Next
EndSub
然后在模块中粘贴上面的代码,然后单击:调试---添加监视,,
,
在窗口中输入合计,单击确定,然后按F8键逐句执行刚才的代码,你可以看到监视窗口中变量的值在一直变化,