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使用不同的名称，而不是包含该函数的模块的确切名称。

＃名称？重命名所有'ThisWorksheet'模块后出错

1 个答案: