VBA 使用用户定义的连接字符串的宏中的应用程序定义或对象定义错误 function

Question

我正在尝试使用用户定义的函数（此处的 setChartAxis()： https://exceloffthegrid.com/chart-axis-min-mix/ ）来动态更新许多绘图的轴。 它是一个大宏的一部分，但我在下面的简单代码中复制了相关部分，但无法让它工作。 我想要一些像 SUM function 这样工作的东西，这样图表轴就会在我工作时更新。 我可以让 SUM function 正常工作，我觉得另一行的语法基本相同，但每次运行时都会出现以下错误：

运行时错误“1004”：

应用程序定义或对象定义的错误

我觉得这应该是一个简单的解决方案，但我在任何其他问题中都找不到解决方案。

Sub Test()

    Range("A2").Value = "=SUM(B" & 1 & ":B" & 2 & ")"

    Range("A3").Value = "=setChartAxis('Sheet1','Chart 1','Max','Category','Primary'," & A2 & ")"

End Sub

Answer 1

要将引号 ( " ) 从字符串插入单元格，引号需要加倍 ( "" ) 以防止 Excel 认为它正在标记该字符串的结尾。

你会想要这样的东西：

Range("A3").Formula = "=setChartAxis(""Sheet1"",""Chart 1"",""Max"",""Category"",""Primary""," & "A2" & ")"