VBA公共用戶定義函數在Excel

Question

我已經創建了下面的功能：

Option Explicit 
Public Function fyi(x As Double, f As String) As String 

Application.Volatile 
Dim data As Double 
Dim post(5) 
    post(1) = "Ribu " 
    post(2) = "Juta " 
    post(3) = "Milyar " 
    post(4) = "Trilyun " 
    post(5) = "Ribu Trilyun " 
Dim part As String 
Dim text As String 
Dim cond As Boolean 
Dim i As Integer 

If (x < 0) Then 
fyi = " " 
Exit Function 
End If 

    If (x = 0) Then 
    fyi = "Nol" 
    Exit Function 
    End If 

     If (x < 2000) Then 
     cond = True 
     End If 
     text = " " 

      If (x >= 1E+15) Then 
      fyi = "Nilai Terlalu Besar" 
      Exit Function 
      End If 

For i = 4 To 1 Step -1 
data = Int(x/(10^(3 * i))) 
    If (data > 0) Then 
    part = fyis(data, cond) 
    text = text & part & post(i) 
    End If 
x = x - data * (10^(3 * i)) 
Next 
    text = text & fyis(x, False) 
    fyi = text & f 
End Function 
Function fyis(ByVal y As Double, ByVal conds As Boolean) As String 

Dim datas As Double 
Dim posts(2) 
    posts(1) = "Puluh" 
    posts(2) = "Ratus" 
Dim parts As String 
Dim texts As String 
'Dim conds As Boolean 
Dim j As Integer 
Dim value(9) 
    value(1) = "Se" 
    value(2) = "Dua " 
    value(3) = "Tiga " 
    value(4) = "Empat " 
    value(5) = "Lima " 
    value(6) = "Enam " 
    value(7) = "Tujuh " 
    value(8) = "Delapan " 
    value(9) = "Sembilan " 

texts = " " 
For j = 2 To 1 Step -1 
datas = Int(y/10^j) 
    If (datas > 0) Then 
    parts = value(datas) 
     If (j = 1 And datas = 1) Then 
     y = y - datas * 10^j 
      If (y >= 1) Then 
      posts(j) = "belas" 
      Else 
      value(y) = "Se" 
      End If 
     texts = texts & value(y) & posts(j) 
     fyis = texts 
     Exit Function 
     Else 
     texts = texts & parts & posts(j) 
     End If 
    End If 
y = y - datas * 10^j 
Next 
    If (conds = False) Then 
    value(1) = "Satu " 
    End If 
texts = texts & value(y) 
fyis = texts 
End Function 

當我返回到Excel，並在單元格中鍵入=fyi(500,"USD")，它返回#name。

請告訴我如何解決。

Answer 1

請參閱此相關的問題：Create a custom worksheet function in Excel VBA

總結：
你有什麼應該工作。
根據對該問題的評論，您應該將您的用戶定義函數放置在以外的任何其他模塊中，而不是ThisWorkbook。

Answer 2

確保您的功能位於模塊中，而不是工作表中。

Answer 3

如果您的UDF所在的工作簿不是您打電話給的工作簿，請以工作簿名稱作爲前綴。例如。

=PERSONAL.XLS!fyi(500,"USD") 

Answer 4

的功能，如這一點，最好的地方是在一個插件... 要使一個插件：

做一個新的工作簿

按下Alt + F11

創建模塊，稱之爲MyFunctions或其他東西有意義的

把你的功能放在那裏

完成所有這些後，將工作簿保存爲ExcelAddin（.xlam）並關閉它。 轉到Excel選項（或工具/插件）並選擇你的插件（或去插件選項卡，然後單擊轉到然後找到它爲Excel 07）

現在你的功能將永遠在每個工作簿可用，而無需前綴它

Answer 5

檢查錯字：功能是fyi而不是fyis。

看到最後一行fyis = texts，應該是fyi = texts。