Question

Excel VBA代码 复选框控件

如图，我想未选中复选框的时候隐藏相应的列，选中的时候自动显示相应的列如何写代码？

比如图中，G列是选中的，则G列应该是显示的，而H列未选

中，则H列是隐藏的

Answer 1

设 控件名为CheckBox1和CheckBox2，如果不是请自行改名。

代码放在对应工作表对应的事件代码区。

Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
    Range("G:G").EntireColumn.Hidden = False
Else
    Range("G:G").EntireColumn.Hidden = True
End If
End Sub

Private Sub CheckBox2_Click()
If Me.CheckBox2.Value = True Then
    Range("H:H").EntireColumn.Hidden = False
Else
    Range("H:H").EntireColumn.Hidden = True
End If
End Sub

Answer 2

Sub G列()

    With ThisWorkbook.ActiveSheet

        If .DrawingObjects("GG").Value = xlOn Then

            .Columns(7).Hidden = True

        Else

            .Columns(7).Hidden = False

        End If

    End With

End Sub

Sub H列()

    With ThisWorkbook.ActiveSheet

        If .DrawingObjects("HH").Value = xlOn Then

            .Columns(8).Hidden = True

        Else

            .Columns(8).Hidden = False

        End If

    End With

End Sub

追问

大神，不自定义名称的时候能实现吗？因为复选框太多，如果一个一个自定义名称太繁琐

追答

名称一样是不行的
强调指出来 只是让你把名称和代码做一致