求助指定列隐藏，取消隐藏两个按钮宏的录制

wwjandgwy · 发表于 2009-11-24 16:06

请教各位高手，我想在表中做一个按钮用来隐藏或显示指定列，如附件中的灰色区域。（平时要经常隐藏这些列，操作很烦锁，想设个键来完成这些经常发生的动作。
先谢过各位了！！！

janny · 发表于 2009-11-24 17:14

Sheet1.Range("A:A").EntireColumn.Hidden = True

Sheet1.Range("A:A").EntireColumn.Hidden = False

其中：sheet1是你的工作表的VBA名称（不是显示名称）
Range("A:A")表示你要隐藏或取消隐藏的列是A列

wwjandgwy · 发表于 2009-11-24 18:04

原帖由 janny 于 2009-11-24 17:14 发表
Sheet1.Range("A:A").EntireColumn.Hidden = True

Sheet1.Range("A:A").EntireColumn.Hidden = False

其中：sheet1是你的工作表的VBA名称（不是显示名称）
Range("A:A")表示你要隐藏或取消隐藏的列 ...

试了一下，还是不怎么会，能不能具体点，最好有个JIF动画演示，谢谢了

janny · 发表于 2009-11-24 23:45

我不会做动画，简要讲一下吧：
1、插入一个按钮，在编辑模式下双击，会弹出VBA窗口，默认事件是“单击”，录入第一段代码
2、再插入一个按钮，在编辑模式下双击，会弹出VBA窗口，默认事件是“单击”，录入第二段代码
退出编辑模式，即可。

wwjandgwy · 发表于 2009-11-25 09:37

原帖由 janny 于 2009-11-24 23:45 发表
我不会做动画，简要讲一下吧：
1、插入一个按钮，在编辑模式下双击，会弹出VBA窗口，默认事件是“单击”，录入第一段代码
2、再插入一个按钮，在编辑模式下双击，会弹出VBA窗口，默认事件是“单击”，录入第二段代 ...

恩，差不多了，我用窗体里的按钮指定了个宏，但是如果哪一列的单元格和别的列内单元格有合并情况，就会连同一起隐藏，还是有点不理想，

liming00 · 发表于 2009-11-25 14:56

看看这个行不，我也是刚学！

rztjkjs · 发表于 2017-4-17 20:06

路过，学习一招，谢谢

jjamxin · 发表于 2021-8-13 07:18

Sub 显示列()
Worksheets("501").Range("E:E").EntireColumn.Hidden = True
End Sub
Sub 隐藏列()
Worksheets("501").Range("E:E").EntireColumn.Hidden = False
End Sub

501为表标签名

		自动登录	找回密码
密码			免费注册

[求助] 求助指定列隐藏，取消隐藏两个按钮宏的录制

代码如下

回复 3楼 wwjandgwy 的帖子