Excel userform复选框为null

时间:2014-12-22 15:59:09

标签: excel checkbox userform

我创建了一个用户表单并添加了一个名为' DSSSContact'的chekcbox。我已经编写了一些代码来检查用户窗体的内容,然后保存在以下子窗口中:

Private Sub SaveandClose_Click()

当表单初始化时,复选框设置为灰色但勾选 - 我认为该值为null。 SavandClose子代码包括以下内容,我认为这将确保复选框设置为true或false:

If DSSSContact = Null Then
MsgBox "DSSS Contact Test"
Exit Sub
End If

但是,当我使用“保存并关闭”命令按钮保存并关闭表单而未对复选框进行选择时,表单会保存内容而不会触发消息框。我创建的所有其他检查以验证文本框和组合框是否已填充正常工作。我还在同一个子域中添加了以下代码:

Debug.Print Me.DSSSContact.Value

这在立即窗口

中打印为null

任何帮助非常感谢。感谢

2 个答案:

答案 0 :(得分:1)

尝试

If IsNull(DSSSContact.Value) Then

答案 1 :(得分:0)

表单中的复选框为True =已选中或False =未选中。

sub test()
    MsgBox DSSSContact.Value
    If DSSSContact.Value = "False" Then
    MsgBox "DSSS Contact Test"
    Exit Sub
    End If

end sub