excel vba 复选框的问题！

方法一
如果是在工作表中使用复选框，右击复选框，在快捷菜单中单击选择“设置控件格式”，打开对话框如下图所示设置：

按Alt+F11打开VBE窗口，插入模块，粘贴如下代码：
Sub 隐藏()
If [L1] = True Then
Columns("B:C").EntireColumn.Hidden = True
Else
Columns("B:C").EntireColumn.Hidden = False
End If
End Sub
再右击复选框单击选择“指定宏”，选定宏“隐藏”。
操作及效果：单击复选框则B:C隐藏或显示。
方法二
如果是在窗体中使用筛选框，则双击窗体上的复选框，出现如下代码框架：
Private Sub CheckBox1_Click()

End Sub
在框架中粘贴如下代码：
If CheckBox1.Value = True Then
Columns("B:C").EntireColumn.Hidden = True
Else
Columns("B:C").EntireColumn.Hidden = False
End If
即变成如下完整代码：
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Columns("B:C").EntireColumn.Hidden = True
Else
Columns("B:C").EntireColumn.Hidden = False
End If
End Sub
打开窗体，单击窗体上的复选框：
⑴未选中复选框时效果如下图示。

⑵选中复选框时效果如下图示。

仅供参考！

请采纳。

UserForm1.Hide
即可关闭并保留已输的信息，重新打开：UserForm1.Show，刚才的信息还在