用按钮的方法较好,代码如下,详见附件Private Sub CommandButton1_Click() If CommandButton1.Caption = "隐藏列" Then Columns("G:AB").Hidden = True CommandButton1.Caption = "显示列" Else Columns("G:AB").Hidden = False CommandButton1.Caption = "隐藏列" End IfEnd Sub
顶一下
(0)
0%
踩一下
(0)
0%
- 相关评论
- 我要评论
-
上一篇:返回栏目
下一篇:怎样禁用EXCEL表中的宏?