【发布时间】:2017-06-20 15:48:17
【问题描述】:
【问题讨论】:
-
到目前为止你有什么代码,你卡在哪里了?
-
嗨@RikSportel,我试过了:
if Checkbox1= True Then MsgBox("true")。我只用 msgBox 试过。但这不起作用。我收到消息 object required .
【问题讨论】:
if Checkbox1= True Then MsgBox("true")。我只用 msgBox 试过。但这不起作用。我收到消息 object required .
在 UserForm 模块中,当您的 CheckBox 命名为“CheckBox1”时,您只需放置以下代码:
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Worksheets("Sheet1").Visible = True
Else
Worksheets("Sheet1").Visible = False
End If
End Sub
这将使“Sheet1”在选中时可见,而在未选中时不可见。 如果你以不同的方式命名你的复选框,你会看到如果你双击用户表单设计中的复选框,VBE 已经提出了
Private Sub CheckBoxName_Click()
End Sub
【讨论】: