作者wawalinda (請把你的膚淺藏好)
看板Visual_Basic
標題[VBA ] 出現執行階段錯誤 '1004' ??
時間Fri Mar 17 14:22:38 2006
我寫了一個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
1F：推 sueadolph:愕~~~是比較什麼"資料"？...如果只是比對甲乙二個是否不 03/17 21:31
2F：→ sueadolph:同....應該不需要用 item的屬性吧？ 03/17 21:32
3F：→ sueadolph:Sheet3.Cells.Item(i, k) = 1 ←介於二者值中間的=1 03/17 21:33
4F：→ sueadolph:你的意思是那樣子嗎？~~~如果是的話~~使用↓↓↓ 03/17 21:35
5F：→ sueadolph:Sheet3.Cells(i,j)=1 的方式即可... 03/17 21:36
6F：→ sueadolph:item那屬性...我是沒那麼用過..希望我沒猜錯你想要的 03/17 21:38
7F：推 abliou:兩個座標值不能為0 03/18 16:46