[VBA ] 出現執行階段錯誤 '1004' ??
我寫了一個VBA程式來比對並且做紀錄~~
"
但是卻發生了執行階段錯誤'1004'
應用程式或物件定義上的錯誤
"
而偵錯所標示的地方是在下面程式中的那句:
Sheet3.Cells.Item(i, k) = 1
但是我卻不知道該如何才能使此程式成功執行?
可否請各位高手指點迷津*.* 謝謝~~~
以下是我的VBA程式內容:
-----------------------------------
Sub 比對並記數()
Dim k As Integer
For i = 1 To 129
k = 0
For j = 1 To 2582
If Sheet1.Cells.Item(i, 1) = 9999 Then
k = k + 1
ElseIf Sheet1.Cells.Item(i, 1) >= Sheet2.Cells.Item(j, 1) Then
If Sheet1.Cells.Item(i, 1) <= Sheet2.Cells.Item(j, 2) Then
Sheet3.Cells.Item(i, k) = 1 '這句就是偵錯後所標示出的地方
End If
End If
NEXT
NEXT
End Sub
-----------------------------------------------------------------------
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.124.50.174
推
03/17 21:31, , 1F
03/17 21:31, 1F
→
03/17 21:32, , 2F
03/17 21:32, 2F
→
03/17 21:33, , 3F
03/17 21:33, 3F
→
03/17 21:35, , 4F
03/17 21:35, 4F
→
03/17 21:36, , 5F
03/17 21:36, 5F
→
03/17 21:38, , 6F
03/17 21:38, 6F
推
03/18 16:46, , 7F
03/18 16:46, 7F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
