#名称?重命名所有'ThisWorksheet'模块后出错

时间:2012-11-27 10:54:23

标签: excel excel-vba rename excel-vba-mac vba

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

1 个答案:

答案 0 :(得分:2)

如上所述:

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