Question

excel vba编程 运行错误1004

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

Answer 1

excel
vba编程提示：运行时错误1004。如下图所示：运行时错误1004。
以下代码是测试当前VBA版本的：
Sub
获取VBA版本()
 
MsgBox
Application.VBE.Version
End
Sub
当按F5键，就报：运行时错误1004。
解决方法：
单击文件——选项——信任中心——打开“信任中心”对话框，宏设置——勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。