如何在vba编辑器中使用excel函数

我想写这样的Excel函数。 它是Dec2Bin函数的扩展

Public Function Dec2BinEx(x As Long) Dec2BinEx = dec2bin(x) + 10 End Function 

但是在尝试使用它时出现错误。 如何在Visual Basic编辑器中调用excel函数

Answer 1

通常，您可以使用Application.WorksheetFunction.SomeFunctionName调用Excel函数。 但是， Dec2Bin是特殊的，因为它是一个加载项函数，而不是一个纯粹的Excel函数。 因此， Application.WorksheetFunction在这里不起作用。 相反，您必须使加载项的function可用于您的代码。 要这样做，请按照下列步骤操作

• 在Excel，菜单工具/加载项，请确保加载项Analysis ToolPak - VBA导入。

• 然后，在代码中设置对此加载项的引用：在VBA编辑器的菜单“工具/引用”中，添加对atpvbaen.xls的引用。

然后，你的问题中发布的原始代码应该可以正常工作。

Answer 2

您首先必须创build一个模块，例如从菜单中selectInsert-> Module 。 然后在这个模块里面创build一个名为main的函数。 代码运行时，此function默认运行。 现在在这个函数里面调用你自己的函数，像这样：

 Sub main() Call Dec2BinEx(your_value_here) End Sub Public Function Dec2BinEx(x As Long) Dec2BinEx = dec2bin(x) + 10 End Function 

完成之后，请确保您有参考dec2bin函数或如果您也创build。 谢谢