我如何在VBA編輯器中使用Excel功能

Question

我想編寫這樣的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在這里不起作用。 相反，您必須使該加載項的功能可用於您的代碼。 這樣做，請按照下列步驟

• 在Excel的“工具/加載項”菜單中，確保已導入加載項Analysis ToolPak - VBA 。

• 然后，在代碼中設置對此插件的引用：在VBA編輯器的菜單“工具/參考”中，添加對atpvbaen.xls的引用。

然后，在您的問題中發布的原始代碼應該可以正常工作。

Answer 2

首先，您必須創建一個模塊，例如，從菜單中選擇Insert-> Module 。 然后在此模塊內創建一個名為main的函數。 運行代碼時，默認情況下運行此函數。 現在在此函數內部調用您自己的函數，如下所示：

Sub main()
    Call Dec2BinEx(your_value_here)
End Sub

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

完成此操作后，請確保您具有對dec2bin函數的引用，或者也要創建該引用。 謝謝