[VBA ] 可以幫忙debug嗎?

看板Visual_Basic作者irga (努力不需言語)時間13年前 (2011/03/27 13:15)推噓0(0推 0噓 4→)

留言4則, 3人參與討論串1/1

不是我偷懶而是我已經卡再這個地方一個早上而且也一個一個值帶進去驗算了可是卻還是不了解到底哪邊出了錯希望有人可以幫忙 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

→

necsa

03/27 23:15, , 1^F

03/27 23:15, 1^F

→

irga

03/28 21:41, , 2^F

03/28 21:41, 2^F

→

yabuki

03/28 23:16, , 3^F

03/28 23:16, 3^F