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

有时，在excel自定义名称之后，单击名称管理器查看，就是找不到excel自定义名称。　　如果遇到无法查看excel自定义名称，可以借用下面代码试试。　　方法是，按ALT+F11，打开VBE编辑器，插入——模块，复制下面代码，然后按F5键运行。　　如果工作薄中有自定义名称就会在名称管理器显示出来，再次运行可以隐藏所有自定义名称。如果没有会提示本工作簿没有定义名称。Sub excel自定义名称显示和隐藏() On Error GoTo ERR1 Dim nm As Name　 Dim bVisible As Boolean With ThisWorkbook If .Names.Count > 0 Then If .Names(1).Visible = False Then bVisible = True For Each nm In .Names nm.Visible = bVisible Next nm If bVisible Then MsgBox ("所有名称可见！") Else MsgBox ("所有名称隐藏！") End If Else MsgBox ("本工作簿没有定义名称！") End If End With Exit Sub ERR1: MsgBox (Err.Description) End Sub