Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA用户窗体复选框问题_Excel_Vba_Checkbox_Userform - Fatal编程技术网

Excel VBA用户窗体复选框问题

Excel VBA用户窗体复选框问题,excel,vba,checkbox,userform,Excel,Vba,Checkbox,Userform,是否可以这样做:如果在复选框中打勾,则表单的某些字段将被设置为用户无法添加数据 表单要求提供地址、城市、州、邮政编码 复选框询问此人是否无家可归 所以我想这样做,如果有一个复选框,地址信息不能输入 否则。。。如果地址字段中有数据,并且选中该框,则屏幕上会出现错误 帮助。示例可能是这样的 Private Sub chkHomeless_Click() If chkHomeless.Value Then With txtCity .Value = ""

是否可以这样做:如果在复选框中打勾,则表单的某些字段将被设置为用户无法添加数据

表单要求提供地址、城市、州、邮政编码

复选框询问此人是否无家可归

所以我想这样做,如果有一个复选框,地址信息不能输入

否则。。。如果地址字段中有数据,并且选中该框,则屏幕上会出现错误


帮助。

示例可能是这样的

Private Sub chkHomeless_Click()
    If chkHomeless.Value Then
        With txtCity
            .Value = ""
            .Enabled = False
        End With
        With txtState
            .Value = ""
            .Enabled = False
        End With
    Else
        txtCity.Enabled = True
        txtState.Enabled = True
    End If

End Sub
您需要为第三个文本框添加代码,并且您可能希望添加一个问题,即在选中该框时是否应该清空文本框。或者,在这种情况下,您会在帖子中显示一种错误消息