用按钮的方法较好,代码如下,详见附件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
- 相关评论
- 我要评论
-
200 2023-12-15 09:48
用按钮的方法较好,代码如下,详见附件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
299
298
295
294
294
291
289