复选框显示

cwf3256

各位大神，请教下：如图所示，想根据复选框控制每一列的显示与隐藏（勾上显示，反之隐藏）

就是一个A控制【DGJM列】显示与隐藏，BC同上。全部就是全部控制  ><!!!

入门级问题，麻烦大神了@@

cwf3256

附件在此~~~~~~~~~~~

不知道为什么

cwf3256 发表于 2018-9-11 22:46
附件在此~~~~~~~~~~~

这个好像实际工作中不怎么有用啊，如图，我之前做的一个小工具。是这么个意思？

zhuwenao

在你附件的sheet1写入如下代码，试试看：
Private Sub CheckBox1_Click()
    Dim i As Integer
    With Sheets("sheet1")
         For i = 4 To 15 Step 3
           .Columns(i).Hidden = CheckBox1
         Next
    End With
End Sub
Private Sub CheckBox2_Click()
    Dim i As Integer
    With Sheets("sheet1")
         For i = 5 To 15 Step 3
           .Columns(i).Hidden = CheckBox2
         Next
    End With
End Sub
Private Sub CheckBox3_Click()
Dim i As Integer
    With Sheets("sheet1")
         For i = 6 To 15 Step 3
           .Columns(i).Hidden = CheckBox3
         Next
    End With
End Sub
Private Sub CheckBox4_Click()
    Dim i As Integer
    With Sheets("sheet1")
         For i = 4 To 15 Step 1
           .Columns(i).Hidden = CheckBox4
         Next
    End With
End Sub

cwf3256

多谢各位大神，已OK。
这个主要是用于隐藏数量，总价，单价的。每一个月有3列，如果只想显示数量列不方便，用了这个复选框就方便多了!