[已解决]请教VBA代码问题，问题见附件。谢谢！

hxgfkfb

uC0LGVNg.rar (6 KB, 下载次数: 4)

2011-4-4 13:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mn860429

2011-4-4 13:53

1. Sub 按钮1_单击()
   
2.     x = 1
   
3.     Do While Application.Sum(Cells(x, 7).Offset(, -6).Resize(1, 6))
   
4. Cells(x, 7).Value = Application.Sum(Cells(x, 7).Offset(, -6).Resize(1, 6))
   
5. x = x + 1
   
6.     Loop
   
7. End Sub

复制代码

[em04]

跳转到最佳答案楼层

mn860429

1. Sub 按钮1_单击()
   
2.     x = 1
   
3.     Do While Application.Sum(Cells(x, 7).Offset(, -6).Resize(1, 6))
   
4. Cells(x, 7).Value = Application.Sum(Cells(x, 7).Offset(, -6).Resize(1, 6))
   
5. x = x + 1
   
6.     Loop
   
7. End Sub

复制代码

[em04]

hxgfkfb

回复 mn860429 的帖子

刚才的回答很好，但是还有个问题再请教您，见附件，由于是新手，初次接触VBA，我有些地方不能举一反三，希望不吝赐教！谢谢！ 退货台帐.rar (25.31 KB, 下载次数: 1)

2011-4-4 14:24 上传

点击文件名下载附件