Question

EXCEL2010宏运行提示错误1104，应用程序定义或对象定义错误，怎么调试公式

Do If Mid(Cells(i + 1, 2), 1, 19) = "Selections Include:" Then DeptNum = Mid(Cells(i + 1, 2), 20, Len(Cells(i + 1, 2))) NumDept = Mid(Cells(i + 1, 2), 20, 2) Else DeptNum = "Dept Nbr or Vndr Name" End If i = i + 1 Loop Until Mid(Cells(i, 2), 1, 19) = "Selections Include:" i = 0 ' Date1 = "1/30/05" TimeFrame = "2006 Fiscal Year" ' Date1 = "05/29/99" ' temp ' Date2 = "08/27/99" ' temp ' TimeFrame = "June 1999" ' temp ' CountryName = "US" ' DeptNum = "Food"

Answer 1

可以如下方式解决：
1、当按F5键，就报：运行时错误1004。可以这样操作，单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。

2、再在搜索引擎查询，才知道运行时错误1004不只是在上面这种情况才会有提示。比如通过使用
Visual
Basic
对应用程序的宏创建一个数组公式时您也可能会收到运行时错误1004提示提示信息。造成excel
vba输入公式出现运行时错误1004的原因：当试图将传递一个包含超过
255
个字符的公式时，会发生此问题，并为应用程序中
Visual
Basic
中使用
FormulaArray
属性。