Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如果加载为外接程序作为个人工作簿的一部分失败,则宏将运行_Excel_Vba_Macos - Fatal编程技术网

Excel 如果加载为外接程序作为个人工作簿的一部分失败,则宏将运行

Excel 如果加载为外接程序作为个人工作簿的一部分失败,则宏将运行,excel,vba,macos,Excel,Vba,Macos,我有一个三角分布函数,它从外接程序运行,但当我尝试从个人工作簿中的模块运行它时,会出现#Name错误。我更改了宏的名称以确保这不是问题。这是代码 Public Function TriangD2(mn As Double, md As Double, mx As Double) Application.Volatile rr = Rnd() Calculate ' Triangular If rr = ((md - mn) / (mx - mn))

我有一个三角分布函数,它从外接程序运行,但当我尝试从个人工作簿中的模块运行它时,会出现#Name错误。我更改了宏的名称以确保这不是问题。这是代码

Public Function TriangD2(mn As Double, md As Double, mx As Double)

    Application.Volatile
     rr = Rnd()
    Calculate
    ' Triangular
     If rr = ((md - mn) / (mx - mn)) Then
        TriangD = md
        Else
           If rr < ((md - mn) / (mx - mn)) Then
           TriangD = mn + Sqr(rr * (mx - mn) * (md - mn))
           Else
           TriangD = mx - Sqr((1 - rr) * (mx - mn) * (mx - md))
           End If
     End If
End Function
公共函数2(mn为双精度,md为双精度,mx为双精度)
应用程序。挥发性
rr=Rnd()
算计
“三角形
如果rr=((md-mn)/(mx-mn)),则
三角形D=md
其他的
如果rr<((md-mn)/(mx-mn)),则
三角形D=mn+Sqr(rr*(mx-mn)*(md-mn))
其他的
三角形D=mx-Sqr((1-rr)*(mx-mn)*(mx-md))
如果结束
如果结束
端函数

我正在使用Excel 2011 for Mac。我尝试从外接程序更改的原因是,如果我尝试重命名工作表,则广告处于打开状态,Excel崩溃。如果禁用外接程序,则不会禁用。

它是否位于名为
2
的工作簿模块中?另外,尝试将其添加到一个全新的工作簿中,看看是否也会出现错误。最后,您从未设置过
trianged2
,您只是在使用
trianged2
,因此它不会返回任何内容。请参阅添加到模块代码表顶部的信息。它是否位于名为
trianged2
的工作簿模块中?另外,尝试将其添加到一个全新的工作簿中,看看是否也会出现错误。最后,您从未设置过
trianged2
,您只是在使用
triangid
,因此它不会返回任何内容。请参阅添加到模块代码表顶部的信息。