Question

excel vba编程 运行错误1004

代码如下
Sub demoRGB()
Dim r As Range, arr
For Each r In Range("A1:CR128")
arr = Split(r, "；")
r.Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
r.Font.Color = RGB(255 - CInt(arr(0)), 255 - CInt(arr(1)), 255 - CInt(arr(2)))
Next
End Sub
作用是把单元格'a;b;c'填充为RGB 为a,b,c的颜色。
每次运行都报错 不知道为什么
如果设成 For Each r In Range("A1:Z128")就没问题？！ 如果设到CR128就报错。。。是为什么 ？？？

Answer 1

excel vba编程提示：运行时错误1004。如下图所示：运行时错误1004。

以下代码是测试当前VBA版本的：

Sub 获取VBA版本()
  MsgBox Application.VBE.Version
End Sub

当按F5键，就报：运行时错误1004。

解决方法：

单击文件——选项——信任中心——打开“信任中心”对话框，宏设置——勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。

Answer 2

猜测是后边列中的数据，不全是规则的：1;2;3格式，
建议检查出错单元格中的数据内容。
比如说不全是数字，或只有两个数字等

Answer 3

嗯