excel自定义名称隐藏和显示方法
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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