首页 > Excel专区 > Excel函数 >

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

Excel函数 2021-11-25 12:40:10

有时,在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自定义名称

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.