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