如何在Excel 2003 VBA中使用复杂函数？
我正在尝试使用分析工具Pak VBA加载项中的复数函数在Excel VBA中创建自定义函数。如果我分配如何在Excel 2003 VBA中使用复杂函数？,vba,excel,Vba,Excel,我正在尝试使用分析工具Pak VBA加载项中的复数函数在Excel VBA中创建自定义函数。如果我分配c=imSum（a，b）我会得到一个弹出错误“编译错误：未定义子函数或函数”。如果我将其更改为c=WorksheetFunction.imSum（a，b）（因为我在这方面发现的很少，所以我尝试了一下），我没有得到弹出错误，但我在单元格中得到了一个#值错误。将方法名称更改为伪造的名称会产生相同的结果。我在Excel中检查了“AnalysisToolPak”和“AnalysisToolPak-VBA
c=imSum（a，b）c=WorksheetFunction.imSum（a，b）在参考窗口中选中“atvbaen.xls”之后，我使用了简单的格式
c=imSum（a，b）AddIns.Add（“atvbaen.xls”）.Installed=True[imSum（a，b）]应用程序.WorksheetFunction.imSum（a，b）imSum（）IMSUB（）Sub HelpMePlease()
Dim s1 As String, s2 As String
Dim s3 As String
s1 = "1+1i"
s2 = "2+2i"
s3 = Application.WorksheetFunction.ImSum(s1, s2)
MsgBox s3
End Sub
在工作表中，
IMSUM（）IMSUB（）Sub HelpMePlease()
Dim s1 As String, s2 As String
Dim s3 As String
s1 = "1+1i"
s2 = "2+2i"
s3 = Application.WorksheetFunction.ImSum(s1, s2)
MsgBox s3
End Sub
另一种选择是对其进行评估：
o = [IMSUM(A1,B1)]
另一种选择是对其进行评估：
o = [IMSUM(A1,B1)]
这有点遥不可及，但您使用的是Excel 2003吗？如果没有，您就不必担心安装了Analysis ToolPak/VBA ToolPak，因为这些功能都是内置的（事实上，如果您有这些功能，我会卸载它们）
如果您使用的是Excel 2003，您需要安装VBA ATP，还需要查看VBA项目的参考资料并选中“atpvbaen.xls”。这有点遥不可及，但您使用的是Excel 2003吗？如果没有，您就不必担心安装了Analysis ToolPak/VBA ToolPak，因为这些功能都是内置的（事实上，如果您有这些功能，我会卸载它们）
如果您使用的是Excel 2003，您需要安装VBA ATP，还需要查看VBA项目的参考资料并选中“atpvbaen.xls”。您可以发布更多代码吗？就这样。函数ctest（a，b）ctest=WorksheetFunction.imSumx（a，b）End函数有一个“x”太多：将
imSumximSumimSumximSumIMSUMIMSUMimSumximSumimSumximSumIMSUMIMSUMs3s1Hello 12-23i WorldIMSUMIMSUBc=imSum（s1，s2）c=Application.WorksheetFunction.imSum（s1，s2）c=[imSum（s1，s2）]s3s1Hello 12-23i WorldIMSUMIMSUBc=imSum（s1，s2）c=Application.WorksheetFunction.imSum（s1，s2）c=[imSum（s1，s2）]