|
|
楼主 |
发表于 2011-5-25 23:26
|
显示全部楼层
老师，可否把你给我写的这段代码注解一下？我是昨天看了您的帖子才开始学vb，不懂的很多，很需要帮助！谢谢!
sub aa()
application.screenupdating false
(关闭屏幕自动刷新)
sheet1.range("b6:g47")=""
(sheet1的b6到g47区域单元格，=""是什么意思)
arr=sheet1.range("a6:g47")
(确定数组取傎范围是sheet1的 "a6:g47"区域)
for i=2 to sheets.count-1
(i变量从2循环到工作表个数减1？是这个意思否)
with active workbook.sheets(worksheets(i).name).activate
(激活名称为i的所有工作表？是这个意思否)
x=range("a56565").end(3).row
(变量x=从表中最的一个空单元格遍历所有单元格的行？不懂，end(3)是什么意思)
for k=1 to ubound(arr)
(变量k从1循环到数组下标？这什么意思啊)
for ii=6 to x
if arr(k,1)=cells(ii,1) then arr(k,i)=arr(k,i)+cells(ii,6)
if arr(k,1)=cells(ii,1) then arr(k,6)=arr(k,6)+cells(ii,7)
next ii
next k
end with
后面的纯粹看不懂了请给详细解释解释。谢谢!
还有sheet1.[a6].resize(ubound(arr),6)=arr是什么意思，也给解释一下啊！
拜托！ |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2011-5-24 03:05
