excel - ＃姓名？重命名我的所有“ThisWorksheet”模块后出错

Question

我有一个包含许多工作表和大量数据的 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 函数。而且我不知道如何纠正这个问题。任何人的想法？

Answer 1

如上：

为您的 UDF 使用不同的名称，而不是包含该函数的模块的确切名称。