作者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