带你入门VBA（2004第一期）

okmhy

兰老师和各位大侠请帮我看一下，下面这个错误在哪里：

Sub 连续相加()
Dim iz As Integer
For iz = 1 To 20
Cells(iz, 1) = iz
If iz Mod 3 = 0 Then
With Application.WorksheetFunction
Cells(21, 1) = .Sum(Range(Cells(1, 1), Cells(iz, 1)))
End With
End If
Next

End Sub

我的目的是：最后一行求和，求的是第隔三行单元格的和

急啊~！

[em06]

兰色幻想

Dim X
Dim iz As Integer
For iz = 1 To 20
Cells(iz, 1) = iz
If iz Mod 3 = 0 Then
X = X + Cells(iz, 1)
End If
Next
Range("A21") = X

兰色幻想

以下是引用[I]okmhy[/I]在2006-3-26 15:10:00的发言：[BR]

兰老师和各位大侠请帮我看一下，下面这个错误在哪里：

Sub 连续相加()
Dim iz As Integer
For iz = 1 To 20
Cells(iz, 1) = iz
If iz Mod 3 = 0 Then
With Application.WorksheetFunction
Cells(21, 1) = .Sum(Range(Cells(1, 1), Cells(iz, 1)))
End With
End If
Next

End Sub

我的目的是：最后一行求和，求的是第隔三行单元格的和

急啊~！

[em06]

Cells(21, 1) = .Sum(Range(Cells(1, 1), Cells(iz, 1)))：你最后得到的结果是最后一个符合条件行数的单元格它以前区域的和，当然和你的要求不符

okmhy

[fly][fly]

以下是引用[I]兰色幻想[/I]在2006-3-26 17:06:00的发言：[BR]Dim X
Dim iz As Integer
For iz = 1 To 20
Cells(iz, 1) = iz
If iz Mod 3 = 0 Then
X = X + Cells(iz, 1)
End If
Next
Range("A21") = X

兰老师，太谢谢你了，这个问题我想两天都想不通。 [/fly][/fly]

okmhy

以下是引用[I]兰色幻想[/I]在2006-3-26 17:10:00的发言：[BR]

以下是引用[I]okmhy[/I]在2006-3-26 15:10:00的发言：[BR]

兰老师和各位大侠请帮我看一下，下面这个错误在哪里：

Sub 连续相加()
Dim iz As Integer
For iz = 1 To 20
Cells(iz, 1) = iz
If iz Mod 3 = 0 Then
With Application.WorksheetFunction
Cells(21, 1) = .Sum(Range(Cells(1, 1), Cells(iz, 1)))
End With
End If
Next

End Sub

我的目的是：最后一行求和，求的是第隔三行单元格的和

急啊~！

[em06]

Cells(21, 1) = .Sum(Range(Cells(1, 1), Cells(iz, 1)))：你最后得到的结果是最后一个符合条件行数的单元格它以前区域的和，当然和你的要求不符

兰老师，谢谢你了！现在在哪儿啊，改天请你喝茶！ [em12][em12][em12][glow=255,red,2]文字[/glow]

okmhy

兰老师和各位大侠，请帮我看一下，错在哪里呀

头大啊，急啊！

[em06]

Sub ix()
Dim X, iz, ii As Integer
For ii = 3 To 14
For iz = 1 To 11
If iz Mod 3 = 0 Then
X = X + Cells(iz + 1, ii)
End If
Cells(11, ii) = X
Next iz
Next ii
End Sub

为什么后面的会把前面的结果也加进去？

[em06][em06]

caiqing

从头学习

兰色幻想

以下是引用[I]okmhy[/I]在2006-3-27 12:59:00的发言：[BR]

兰老师和各位大侠，请帮我看一下，错在哪里呀

头大啊，急啊！

[em06]

Sub ix()
Dim X, iz, ii As Integer
For ii = 3 To 14
For iz = 1 To 11
If iz Mod 3 = 0 Then
X = X + Cells(iz + 1, ii)
End If
Cells(11, ii) = X
Next iz
Next ii
End Sub

为什么后面的会把前面的结果也加进去？

[em06][em06]

程序中的Xg一直处于X=X+....的累加状态

兰色幻想

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

[此贴子已经被作者于2006-3-28 8:25:35编辑过]

weisen191

我也来试一下，不知道自己行不行！