我有一个包含许多工作表和大量数据的excel工作簿。我的一个VBA功能如下。它一直运作良好。
Function TextResult(Name As String) As String
Select Case Name
Case Is = "Text1"
Name = "Result1"
Case Is = "Text2"
Name = "Result2"
Case Is = "Text3"
Name = "Result"
End Select
End Function
然后我添加了一个重命名模块的Sub:
Sub Whats_In_A_Name()
ThisWorkbook.VBProject.VBComponents("Module1").name = "TextResult"
ThisWorkbook.VBProject.VBComponents("Module2").name = "Name2"
End Sub
这个错误但重命名了所有错误,包括它自己。
但现在我得到一个#NAME?使用这些模块的所有单元格上的错误都是如上所述,所以所有Case函数都是如此。我不知道如何纠正这个问题。有人有想法吗?
答案 0 :(得分:2)
如上所述:
为UDF使用不同的名称,而不是包含该函数的模块的确切名称。