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 要求用户选中选项按钮_Excel_Vba - Fatal编程技术网

Excel 要求用户选中选项按钮

Excel 要求用户选中选项按钮,excel,vba,Excel,Vba,我有一个用户表单,每个表单有2个框架和2个选项按钮。我需要在第1帧中选择一个按钮(称为“区域”),并在第2帧中选择一个按钮(称为“时间”),然后用户才能单击“确定”。当我只有第1帧按钮代码时,它工作得很好。我还没有找到添加按钮3和4。很多尝试,错误和谷歌,但似乎无法使事情的工作 地区 O东(按钮1) O西(按钮2) 时间 O上一个(按钮3) O未来(按钮4) 好的……取消 Private Sub CommandButton1_Click() Dim i As Integer, x As

我有一个用户表单,每个表单有2个框架和2个选项按钮。我需要在第1帧中选择一个按钮(称为“区域”),并在第2帧中选择一个按钮(称为“时间”),然后用户才能单击“确定”。当我只有第1帧按钮代码时,它工作得很好。我还没有找到添加按钮3和4。很多尝试,错误和谷歌,但似乎无法使事情的工作

地区 O东(按钮1)

O西(按钮2)

时间 O上一个(按钮3)

O未来(按钮4)

好的……取消

Private Sub CommandButton1_Click()    
Dim i As Integer, x As Integer
    For i = 1 To 2
    If Me.Controls("OptionButton" & i).Object.value = True Then
    x = x + 1
    End If
    Next i
    If x = 0 Then
    MsgBox "Please Select Area", 48, "Select Area"
    'Exit Sub
    Else
    
    Dim j As Integer, y As Integer
    For j = 3 To 4
    If Me.Controls("OptionButton" & j).Object.value = True Then
    y = y + 1
    End If
    Next j
    If y = 0 Then
    MsgBox "Please Select Time", 48, "Select Time"
    'Exit Sub
    Else

' >>>>> Rest of macro here <<<<<
Private子命令按钮1\u单击()
尺寸i为整数,x为整数
对于i=1到2
如果Me.Controls(“OptionButton”&i).Object.value=True,则
x=x+1
如果结束
接下来我
如果x=0,则
MsgBox“请选择区域”,48,“选择区域”
“出口接头
其他的
尺寸j为整数,y为整数
对于j=3到4
如果Me.Controls(“OptionButton”&j).Object.value=True,则
y=y+1
如果结束
下一个j
如果y=0,则
MsgBox“请选择时间”,48,“选择时间”
“出口接头
其他的

“>>>>此处宏的其余部分如果您要求至少选择一个宏,则应使用单选按钮而不是复选框。它们是选项按钮