[VBA ] 請教 執行階段錯誤'1004'
我的程式碼如下:
Dim i, j, n, m As Integer
Dim V5, V10, V20, V60, V120, V240 As Double
Dim R5, R10, R20, R60, R120, R240 As Range
n = Sheets("成交量").Cells(Rows.Count, 3).End(xlUp).Row
m = Sheets("成交量").Cells(11, Columns.Count).End(xlToLeft).Column
For i = 12 To n
Sheets("得分").Cells(i, 1) = Sheets("成交量").Cells(i, 1)
Sheets("得分").Cells(i, 2) = Sheets("成交量").Cells(i, 2)
Sheets("得分").Cells(i, 3) = Sheets("成交量").Cells(i, 3)
V = Sheets("成交量").Cells(i, m)
Set R5 = Sheets("成交量").Range(Cells(i, m - 4), Cells(i, m))
Sheets("得分").Range("B1") = WorksheetFunction.Max(R5)
If V = WorksheetFunction.Max(Sheets("成交量").Range(Cells(i, m - 4), _
Cells(i, m))) Then
Sheets("得分").Cells(i, 6) = 1
End If
Next
執行後出現
執行階段錯誤'1004':
應用程式或物件定義上的錯誤
有問題的是 "Set R5 = Sheets("成交量").Range(Cells(i, m - 4), Cells(i, m))"
這一列,我不知道這一列程式碼有什麼問題,請教大家幫我解惑,謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.227.132.77 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1689854722.A.AED.html
推
07/21 18:42,
1年前
, 1F
07/21 18:42, 1F
→
07/21 18:42,
1年前
, 2F
07/21 18:42, 2F
→
07/21 18:43,
1年前
, 3F
07/21 18:43, 3F
→
07/21 22:00,
1年前
, 4F
07/21 22:00, 4F
→
07/21 22:02,
1年前
, 5F
07/21 22:02, 5F
→
07/21 22:03,
1年前
, 6F
07/21 22:03, 6F
→
07/22 00:01,
1年前
, 7F
07/22 00:01, 7F
推
07/22 22:13,
1年前
, 8F
07/22 22:13, 8F
→
07/23 15:55,
1年前
, 9F
07/23 15:55, 9F
→
07/23 15:56,
1年前
, 10F
07/23 15:56, 10F
推
07/29 11:42, , 11F
07/29 11:42, 11F
推
07/29 15:23, , 12F
07/29 15:23, 12F
→
07/30 08:56, , 13F
07/30 08:56, 13F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章