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

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