作者foreverkn (时间是最好的疗剂)
看板Visual_Basic
标题[VBA ] 请教 执行阶段错误'1004'
时间Thu Jul 20 20:05:20 2023
我的程式码如下:
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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1689854722.A.AED.html
1F：推 LPH66: Range 里的 Cells 不能单独呼叫, 仍然要用原来的语法串 07/21 18:42
2F：→ LPH66: 同一张资料表 (同一个 Sheets) 的话可以在前面加 . 简写 07/21 18:42
3F：→ LPH66: 就是变成 ###.Range(.Cells(###), .Cells(###)) 07/21 18:43
4F：→ foreverkn: 请问###是指 Sheets("成交量")这样吗? 07/21 22:00
5F：→ foreverkn: 再请问所谓用原来的语法串是什麽意思?我上面的写法的问 07/21 22:02
6F：→ foreverkn: 题在哪里? 07/21 22:03
7F：→ foreverkn: 刚想了一下，我懂你的意思了 07/22 00:01
8F：推 ideo: 非常感谢楼上的回答 07/22 22:13
9F：→ MOONRAKER: 是叙述(statement)，不是语法(syntax) 07/23 15:55
10F：→ MOONRAKER: 全世界应该只有台湾人用後者蒙混前者 还觉得很高级 07/23 15:56
11F：推 diabolica: 推楼上 07/29 11:42
12F：推 LPH66: 大概是我积非成是了吧 (用习惯了就这样一直用了) 07/29 15:23
13F：→ MOONRAKER: 永不嫌迟 有发现就可改 :) 07/30 08:56