Excel揭秘9：名称的秘密
名称是Excel中的一项强大功能，本文主要讲解大多少人不太了解的Excel内置名称和隐藏的名称空间。...
微信公众号：excelperfect
名称是Excel中的一项强大功能，无论是在公式中还是在VBA中运用名称，都能带来极大的便利。
本文主要谈谈在Excel中不被注意到的一些名称的使用。
Excel内置的名称
Excel有一些内置的名称，它们会在特定的环境下自动使用。
例如，设置打印区域后，Excel会自动命名打印区域为Print_Area，如下图1所示。
图1
如果设置打印标题，则Excel会创建名称Print_Titles。
又如，在使用高级筛选获取不重复值列表时，Excel会自动创建名称Extract，如图2所示。
图2
如果在使用高级筛选时，使用了条件，除了名称Extract外，Excel还会自动将条件区域命名为Criteria，如图3所示。
图3
Excel还有其它一些内置名称，例如：Consolidate_Area、Database、FilterDatabase、Sheet_Title，等等。
因此，在VBA代码中，如果出现了上述名称，你不必感到奇怪。例如，下面的语句删除当前工作表中已经设置的打印区域：
ActiveSheet.Names(“Print_Area”).Delete
在《经典代码解析5：查找并显示部分匹配的数据》中，VBA代码将名称“Extract”定义为常量，在筛选完成后，再将该名称代表的区域删除，即作为临时数据区域。
Excel中隐藏的名称空间
认识Excel隐藏的名称空间
Excel隐藏的名称空间是一个属于当前Excel实例的内存区域，该区域加载项DLLS(“XLLS”)能够存储临时的名称。使用这个区域，即便没有可利用的宏工作表，XLLs也能够定义名称。
隐藏着的名称操作基于XLM函数SET.NAME、GET.NAME和EVALUATE。当在XLM宏工作表中使用时，SET.NAME定义一个标准的工作表级名称；当它在XLL中被调用时，创建一个应用程序级名称并且将其存储在一个被隐藏的区域中。
与隐藏着的名称相关的可用的C API命令如下：
Excel4(xlfSetName,&xResult,2,&xName,&xValue);
定义包含xValue的名称xlName。
Excel4(xlfGetName,&xResult,1,&xName);
获取xlName的定义（例如，“=1”），并将其存储在xResult中。
Excel4(xlfEvaluate,&xResult,1,&xName);
获取xlName的内容（例如，1）并将其存储在xResult中。
Excel4(xlfSetName,&xResult,1,&xName);
删除xlName（忽略第二个参数）。
定义在隐藏区域的名称有一些特殊功能，这使得它们与标准工作簿名称有很大的不同。
隐藏的名称空间的特征
在隐藏的名称空间中所定义的名称不属于任何工作簿，而属于应用程序本身。
- 在Excel的任何地方可以直接访问这些名称。无论在哪个工作簿中创建了这个名称，在任何工作簿中的任何VBA模块、工作表或宏工作表（和任何DLL加载项）中都能直接读取和修改它们。
- 隐藏的名称的“生存时间”与当前Excel会话一致。
对于这些属于应用程序的隐藏的名称，关闭所有工作簿和加载项不会销毁它们。它们仅能通过对SET.NAME(如果没有第二个参数)明确的调用或者通过退出并重启Excel被销毁。在这种情况下，这些名称能被用作一种Excel的环境变量。
- 它们是完全隐藏的。当一个受保护的加载项使用这个隐藏的名称空间时，新的名称不能被任何其它的VBA模块读取，也不能被用户读取，除非他们知道它们的身份证书。没有方法“列出”定义在隐藏命名空间中的名称。
Dim CName As Name
For Each CName In Workbooks("WB1.xlsm").Names
If CName.Hidden Then
MsgBox CName.Name & " 被删除"
CName.Delete
End If
Next CName
上面的代码，在工作簿WB1.xlsm的所有名称中循环，并删除它们中隐藏的名称。然而，这些代码不能发现存储在隐藏名称空间中的名称，因为这些名称不属于Application.Names集合。因此，它们被保护以反对任何恶意的访问或修改。
在VBA中访问隐藏的名称空间
- 创建一个隐藏的名称
Application.ExecuteExcel4Macro"SET.NAME(""Test"",""OK"")"
- 获取一个隐藏名称的内容
TestVal = Application.ExecuteExcel4Macro("Test")
只是使用名称本身作为ExecuteExcel4Macro的参数。
- 删除一个隐藏的名称
Application.ExecuteExcel4Macro"SET.NAME(""Test"")"
忽略了SET.NAME的第二个参数。
在工作表中访问隐藏的名称空间
在工作表中也可以直接访问隐藏的名称，必须使用SET.NAME和EVALUATE与CALL()和API函数Excel4组合在一起。函数SET.NAME和EVALUATE的编号分别是88和257。
- 创建一个隐藏的名称
=CALL("Xlcall32","Excel4","2JRJRR#",88,,2,"Test","OK")
- 获取一个隐藏名称的内容
=CALL("Xlcall32","Excel4","2JRJR#",257,,1,"Test")
- 删除一个隐藏名称
=CALL("Xlcall32","Excel4","2JRJRR#",88,,1,"Test")
在工作表公式中直接定义和删除名称是可能的，因为SET.NAME不是一个命令而是一个宏函数。
在宏工作表中能以相同的方式使用隐藏的名称，除了不需要给类型字符串添加数字标志外。
示例
下面的代码演示了在受保护的VBA加载项中隐藏的名称空间的可能的用途。
它限制用户在相同的Excel会话中执行加载项主过程超过3次。没有在一个模块级的变量中存储允许剩余执行的计数器，也没有将其存储在依赖加载项的名称中，而是存储在这个隐藏的命名空间中。
使用名称空间阻止用户中断保护，修复了传统方法的下列缺点：
- 像所有变量一样，存储在VBA中的计数器可以在VBE中手工清除。
- 同样，任何外部子过程遍历加载项的Names集合，可以读取、修改和删除中所有隐藏的或者未隐藏的工作簿名称。
在下面的代码中，函数SetHName、GetHName和DelHName允许创建、获取和删除隐藏的名称，而无须直接使用冗长的Application.ExecuteExcel4Macro方法。
Sub Main()
Application.EnableCancelKey = xlDisabled
Dim Count
Count = GetHName("TswbkCount")
If IsError(Count) Then
SetHName "TswbkCount", 3
ElseIf Count = 1 Then
MsgBox "宏被禁止. 你必须重新启动Excel.", vbInformation
Else
SetHName "TswbkCount", Count - 1
End If
End Sub
Sub SetHName(Name As String, Value)
Application.ExecuteExcel4Macro _
"SET.NAME(""" & Name &"""," & Value & ")"
End Sub
Function GetHName(Name As String)
GetHName = Application.ExecuteExcel4Macro(Name)
End Function
Sub DelHName(Name As String)
Application.ExecuteExcel4Macro"SET.NAME(""" & Name & """)"
End Sub
本文部分内容参考了Chip Pearson网站的部分内容。
本文为原创文章，转载请联系我（xhdsxfjy@163.com）或者注明出处。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
欢迎关注[完美Excel]微信公众号：
方法1—在微信“添加朋友”或者通讯录中搜索“完美Excel”或者“excelperfect”后点击关注。
方法2—扫一扫下面的二维码
关注 完美Excel
微信扫一扫关注公众号
