Excel 要求用户选中选项按钮
我有一个用户表单,每个表单有2个框架和2个选项按钮。我需要在第1帧中选择一个按钮(称为“区域”),并在第2帧中选择一个按钮(称为“时间”),然后用户才能单击“确定”。当我只有第1帧按钮代码时,它工作得很好。我还没有找到添加按钮3和4。很多尝试,错误和谷歌,但似乎无法使事情的工作 地区 O东(按钮1) O西(按钮2) 时间 O上一个(按钮3) O未来(按钮4) 好的……取消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
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,“选择时间”
“出口接头
其他的
“>>>>此处宏的其余部分如果您要求至少选择一个宏,则应使用单选按钮而不是复选框。它们是选项按钮