如何根据复选框来隐藏或显示对应的列？

作者：绿色风分类：时间：2022-08-18 浏览：92

楼主
zzmxy

Q: 请问如何可以根据上方复选框的勾选与否来隐藏显示对应的列，比如我想显示“利润”就在“利润”的复选框上打勾？

A: 对复选框的Click进行相应的代码处理即可，当值发生（True或False）变化时，相应的列其Hidden属性也作与原来相反的变化（True或False），
具体请参考下面代码及附件：

Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
For i = 3 To Cells(3, 3).End(xlToRight).Column Step 3
Columns(i).Hidden = Not (Columns(i).Hidden)
Next
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox2_Click()
Application.ScreenUpdating = False
For i = 4 To Cells(3, 3).End(xlToRight).Column Step 3
Columns(i).Hidden = Not (Columns(i).Hidden)
Next
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox3_Click()
Application.ScreenUpdating = False
For i = 5 To Cells(3, 3).End(xlToRight).Column Step 3
Columns(i).Hidden = Not (Columns(i).Hidden)
Next
Application.ScreenUpdating = True
End Sub

如何根据复选框隐藏相应的列.rar

2楼
biaotiger1

使用技巧，通过按钮与工作表结合，实现类似于视图管理器的功能，而且更加方便。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表