作者：绿色风
分类：
时间：2022-08-17
浏览：102
楼主
apolloh |
Q：如何实现名称的隐藏或显示？
A：下列代码可实现隐藏或显示本工作簿的所有名称。
- Sub HiddenOrUnhiddenNames()
- 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
|
2楼
victory610 |
版主的VBA编程好厉害呀。 |
3楼
曾杰2号 |
学习了 谢谢 |
4楼
story99 |
好代码，不错的 |
5楼
ally |
代码在那里写呀？ |
6楼
yukaiwz |
谢谢分享！好好学习。 |
7楼
edna |
代码写哪里呀，实际做表时如何设置呢 |
8楼
sam.tan |
楼主,代码可执行,但我在打开表格再运行宏似乎看不到隐藏的效果,为什么呢?
请解答,谢谢. |
9楼
xing_xingyou |
学习了 谢谢 |
10楼
wangxiasy |
代码有些难！留用 |
11楼
zgwei050 |
谢谢楼主，学习！ |
12楼
anyingshu |
先保存，现在还不会用 |
13楼
健康快乐123 |
用此代码不知道是否能解决我的问题 |
14楼
有山有海 |
代码，晕！ |
15楼
JOYARK1958 |
謝謝提供.................................下載學習 |
16楼
0信峰0 |
名称指的是什么？ |
17楼
沐夏临秋 |
不会用代码啊！ |
18楼
carol_heart |
代码真心难!想学习! |
19楼
kevin_yjl |
这个比较难 |
20楼
-farblue- |
这么久都没人来过 |
21楼
飞渡Collin |
虽然来晚了，但是只要用心学，永远不会迟。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一