使用按钮隐藏列

发表于： 2020年10月22日 2020年11月12日
标签： general-topics-in-vba

隐藏列如果需要使用按钮隐藏某些列，则可以使用此代码。甚至将命令按钮文本更改为“隐藏列”，然后再次将其更改为“取消隐藏列”。

子Hide_C（）

昏暗的C_ell作为范围ActiveSheet.Shapes.Range（Array（“ Button 2”））。Select If Selection.Characters.Text =“取消隐藏列”，然后Columns.Hidden = False Selection.Characters.Text =“隐藏列”

在Range（“ B1”，Cells（1，Columns.Count）.End（xlToLeft））中的每个C_ell否则

如果C_ell =“ x”，则C_ell.Columns.Hidden = True下一个Selection.Characters.Text =“取消隐藏列”

如果范围（“ A2”）结束，则选择结束子

。