带你入门VBA（2004第一期）

weisen191

两次死循环，狂晕，继续跟进！

yinxidu

哈哈,大家好,正在看兰老师的课

okmhy

以下是引用[I]兰色幻想[/I]在2006-3-28 8:25:00的发言：[BR]Dim X, iz, ii As Integer For ii = 3 To 14 X = 0 初始化X值 For iz = 1 To 11 If iz Mod 3 = 0 Then X = X + Cells(iz + 1, ii) End If Next iz Cells(11, ii) = X Next ii

兰老师，我没话说了，这个真的精彩绝伦啊 我本想把这个文件一起传上来，但不知道该怎么传上来，等一下我把代码传上来供大家研究一下

okmhy

数据大致如725楼

我的代码如下：

Sub 统计数据()
Dim sum1, sum2, sum3, sum4, ix, iy, xy As Integer
sum1 = Sheets(ActiveSheet.Name).[a1].CurrentRegion.Rows.Count
'上面一行可以自动获取当前表格的行数
sum2 = Sheets(ActiveSheet.Name).[a1].CurrentRegion.Columns.Count
'上面一行可以自动获取当前表格的列数
For sum3 = 1 To Int(sum1 / 3)
For sum4 = 3 To sum2
Cells(3 * sum3 + 1, sum4) = Cells(3 * sum3 - 1, sum4) * Cells(3 * sum3, sum4)
Next
Next '前面几行循环求出每三行的合计
xy = Int(sum1 / 3)
For ix = 3 To sum2
k = 0
For iy = 1 To sum1
If iy Mod 3 = 0 Then
k = k + Cells(iy + 1, ix)
Cells(sum1, ix) = k
End If
Next
Next '这里几行循环求出月销售总额
End Sub
'整个代码可以自动计算出月销售总额和各商品的合计。
'数据有增加这几行就够了。加多少都可以自动计算出来

okmhy

8d1ZxqCq.rar (12.7 KB, 下载次数: 16)

2006-3-29 12:21 上传

点击文件名下载附件
这是原文件

[此贴子已经被作者于2006-3-29 12:21:26编辑过]

lhy01

好啊，我来一个

okmhy

Dim X, iz, ii As Integer For ii = 3 To 14 X = 0 ' 初始化X值 For iz = 1 To 11 If iz Mod 3 = 0 Then X = X + Cells(iz + 1, ii) End If Next iz Cells(11, ii) = X Next ii 今天我看了一下Excel VBA帮助文件，如果这样改会更简便 Dim X, iz, ii As Integer For ii = 3 To 14 X = 0 初始化X值 For iz = 1 To 11 Step 3 '后面Step 是设置循环间隔数3这样就可以不用加判断词句了 X = X + Cells(iz + 1, ii) Next iz Cells(11, ii) = X Next ii 兰老师和各位大侠： 谢谢你们，如果没有你们，我都不敢去学VBA~！

pmkpmk

好,这种学习方法好

pmkpmk

就是时间长了,眼不舒服

pmkpmk

兰老师如果能出一本VBA的书就好了

偶铁定要一本