作者irga (努力不需言语)
看板Visual_Basic
标题[VBA ] 可以帮忙debug吗?
时间Sun Mar 27 13:15:40 2011
不是我偷懒
而是我已经卡再这个地方一个早上
而且也一个一个值带进去验算了
可是却还是不了解到底哪边出了错
希望有人可以帮忙
Sub summary()
For x = 1 To 11
If x Mod 4 = 2 Or x Mod 4 = 3 Then
For y = 1 To 14
If 0 < Worksheets(x & "号").Cells(3 * y + 96, 18).Value And IsNumeric(Worksheets(x & "号").Cells(3 * y + 96, 19).Value) Then
Worksheets("统计").Cells(z + 2, 7).Value = "3月" & x & "日"
Worksheets("统计").Cells(z + 2, 8).Value = Worksheets(x & "号").Cells(3 * y + 96, 3).Value
Worksheets("统计").Cells(z + 2, 9).Value = Worksheets(x & "号").Cells(3 * y + 96, 18).Value
z = z + 1
End If
Next y
End If
Next x
z = 0
End Sub
黄色的部份就是我不解的地方
当我回圈结束地方改到15的时候
他就会说
执行阶段错误'13':
型态不符合
可是我实际上去看它停住的那个储存格的位置的值
也没有异常状况啊
到底是什麽原因会造成错误啊?
--
你喜欢的人，会一直离你远去
我想离你而去
你讨厌的人，会一直在你附近。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.237.89
1F：→ necsa:y=15带进去的那个储存格有鬼? 03/27 23:15
2F：→ irga:後来朋友有帮我de出来~那一格的值是ref 03/28 21:41
3F：→ yabuki:y parameter(参数)你只设定1~14而已 03/28 23:16
4F：→ irga:那忘了改回来~因为15会出错~我就试着把15拿掉 03/30 09:36