不懂VBA也编程

1983s

又学一招！！！

ptac张

我连皮毛都不算，这个我都不懂

xiaohan863

实用性太强了,感谢超版

clyfd

支持 学习 。

jxf0551

学习了！代码与自代功能的完美结合，顶！

water130688

十分有用，作个记号。

thestronger

好贴，我学到了高亮行，并扩展为行和列

媛媛宝

太感谢楼主了 正好是我需要的 先学

xmgslx123

群里里朋友 在我附件文件如何根据汇总表里取数到课程表供打印输出

山菊花

17、隐藏/取消隐藏自定义名称。
在工作表视图中，按Ctrl+F3打开名称管理器，可看到自定义的名称：


这些名称可以隐藏它。
假如要将名称“商品名称”隐藏，操作过程如下：
1、按Alt+F11打开VBE编辑器；
2、按Ctl+G打开立即窗口；
3、在立即窗口中写入代码并回车。

1. 
   
2. <P>ActiveWorkbook.Names("商品名称").Visible=False
   
3. </P>

复制代码

如果要取消名称的隐藏，则把False 改成True。

1. 
   
2. <P>ActiveWorkbook.Names("商品名称").Visible=True
   
3. </P>

复制代码

如果要隐藏所有名称，操作方法如下：
1、按Alt+F11打开VBE编辑器；
2、将下面的代码粘贴到光标处：

1. Sub 隐藏名称()
   
2.     For Each a In ThisWorkbook.Names
   
3.         Debug.Print a.Name
   
4.         a.Visible = False
   
5.     Next
   
6.     MsgBox "处理完毕"
   
7. End Sub
   

复制代码

3、将光标定位到代码的任意位置，按F5键运行它。
如果要取消所有名称的隐藏，则把代码中的False 改成True即可。

参考帖子：http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1214032&pid=8270523