作者irga (努力不需言语)
看板Visual_Basic
标题[VBA ] 关於阵列索引超出范围
时间Wed Mar 30 09:09:11 2011
小弟的语法共分四个部份
Sub summary()
part1
For x = 1 To 15
If x Mod 4 = 2 Or x Mod 4 = 3 Then
For y = 1 To 15
If 0 < Worksheets(x & "号").Cells(3 * y + 7, 19).Value And IsNumeric(Worksheets(x & "号").Cells(3 * y + 7, 20).Value) Then
Worksheets("统计").Cells(z + 2, 2).Value = "3月" & x & "日"
Worksheets("统计").Cells(z + 2, 3).Value = Worksheets(x & "号").Cells(3 * y + 7, 3).Value
Worksheets("统计").Cells(z + 2, 4).Value = Worksheets(x & "号").Cells(3 * y + 7, 19).Value
z = z + 1
End If
Next y
End If
Next x
z = 0
part2
For x = 1 To 15
If x Mod 4 = 2 Or x Mod 4 = 3 Then
For y = 1 To 15
If 0 < Worksheets(x & "号").Cells(3 * y + 69, 19).Value And IsNumeric(Worksheets(x & "号").Cells(3 * y + 69, 20).Value) Then
Worksheets("统计").Cells(z + 2, 7).Value = "3月" & x & "日"
Worksheets("统计").Cells(z + 2, 8).Value = Worksheets(x & "号").Cells(3 * y + 69, 3).Value
Worksheets("统计").Cells(z + 2, 9).Value = Worksheets(x & "号").Cells(3 * y + 69, 19).Value
z = z + 1
End If
Next y
End If
Next x
z = 0
part3
For x = 1 To 15
If x Mod 4 = 1 Or x Mod 4 = 0 Then
For y = 1 To 14
If 0 < Worksheets(x & "号").Cells(3 * y + 7, 19).Value And IsNumeric(Worksheets(x & "号").Cells(3 * y + 7, 20).Value) Then
Worksheets("统计").Cells(z + 2, 12).Value = "3月" & x & "日"
Worksheets("统计").Cells(z + 2, 13).Value = Worksheets(x & "号").Cells(3 * y + 7, 3).Value
Worksheets("统计").Cells(z + 2, 14).Value = Worksheets(x & "号").Cells(3 * y + 7, 19).Value
z = z + 1
End If
Next y
End If
Next x
z = 0
part4
For x = 1 To 15
If x Mod 4 = 1 Or x Mod 4 = 0 Then
For y = 1 To 15
If 0 < Worksheets(x & "号").Cells(3 * y + 69, 19).Value And IsNumeric(Worksheets(x & "号").Cells(3 * y + 69, 20).Value) Then
Worksheets("统计").Cells(z + 2, 17).Value = "3月" & x & "日"
Worksheets("统计").Cells(z + 2, 18).Value = Worksheets(x & "号").Cells(3 * y + 69, 3).Value
Worksheets("统计").Cells(z + 2, 19).Value = Worksheets(x & "号").Cells(3 * y + 69, 19).Value
z = z + 1
End If
Next y
End If
Next x
End Sub
当我part1~part4全部一起执行时
就会出现
执行阶段错误'9'
阵列索引超出范围
的字样
可是当我让part1~part2及part3~part4两段分开执行时
就可以跑
而且再回去执行一次之後却又可以了
是哪边出了什麽错吗?
要怎样更改好呢?
--
你喜欢的人，会一直离你远去
我想离你而去
你讨厌的人，会一直在你附近。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.237.89
1F：→ kimutaka:说真的,没看到你的Excel档. 你这样叙述很难有人能帮你 03/30 23:00