excel自定义名称隐藏和显示方法

有时，在excel自定义名称之后，单击名称管理器查看，就是找不到excel自定义名称。

如果遇到无法查看excel自定义名称，可以借用下面代码试试。

方法是，按ALT+F11，打开VBE编辑器，插入――模块，复制下面代码，然后按F5键运行。

如果工作薄中有自定义名称就会在名称管理器显示出来，再次运行可以隐藏所有自定义名称。如果没有会提示本工作簿没有定义名称。

Subexcel自定义名称显示和隐藏()
   OnErrorGoToERR1
   DimnmAsName
   DimbVisibleAsBoolean
   WithThisWorkbook
       If.Names.Count>0Then
           If.Names(1).Visible=FalseThenbVisible=True
           
           ForEachnmIn.Names
               nm.Visible=bVisible
           Nextnm
           
           IfbVisibleThen
               MsgBox("所有名称可见！")
           Else
               MsgBox("所有名称隐藏！")
           EndIf
       Else
               MsgBox("本工作簿没有定义名称！")
       EndIf
   EndWith
   ExitSub
ERR1:
   MsgBox(Err.Description)
EndSub

excel自定义名称相关阅读：Excel中删除名称的两种方法介绍：http://www.ittribalwo.com/show.asp?id=822