求教

ljc6

我做了一个窗体，其他都已做好，但 是还有一步，一直没法完成
如果所有的选项都没 有选择，点击“确定”后，则终止余下代码运行，应该怎么写代码

372C

1. Private Sub commandbutton1_click()
   
2. Dim op As Control
   
3. For Each op In Me.Controls
   
4.     If TypeName(op) = "OptionButton" Then
   
5.         If op.Value = True Then
   
6.             [b1] = op.Caption
   
7.             a = True
   
8.             Exit For
   
9.         Else
   
10.             a = False
    
11.         End If
    
12.     End If
    
13. Next
    
14. 
    
15. If a = True Then
    
16. 加入代码
    
17. End If
    
18. 
    
19. 
    
20. Unload UserForm1
    
21. End Sub

复制代码

humanmagic

1. Private Sub commandbutton1_click()
   
2. 
   
3.     Dim op As Control, bl As Boolean
   
4.     For Each op In Me.Controls
   
5.         If TypeName(op) = "OptionButton" Then
   
6.             If op.Value = True Then
   
7.                 Range("B1") = op.Caption
   
8.                 bl = True
   
9.             End If
   
10.         End If
    
11.     Next op
    
12.     If Not bl Then Exit Sub '如果都没有选，退出该过程
    
13.     Unload UserForm1
    
14.    
    
15. End Sub

复制代码

ljc6

372C 发表于 2018-8-18 22:22

可以了，非常感谢
Private Sub commandbutton1_click()
Dim op As Control
For Each op In Me.Controls
    If TypeName(op) = "OptionButton" Then
        If op.Value = True Then
        [b1] = op.Caption
        a = True            ？
        Exit For              退出循环
        Else
        a = False         ？
         End If
    End If
Next
If a = False Then   刚开始不行，后面这里的TRUE 改成 FALSE 就可以了，请问一下，加这个代码目的是什么呢？
MsgBox "提示"
End If
Unload UserForm1
End Sub

ljc6

humanmagic 发表于 2018-8-18 22:29

这个简单，就是不知道什么意思，如果能注释一下，那就更好了

372C

增加一个判断标志，来指定运行结果
至于使用true 和 false 这要看你程序的执行要求，根据原先给的要求，就是不选任何信息，退出不做任何操作，现在改成了 if a=false 就是不选要执行程序了，你的执行程序就是msgbox

humanmagic

ljc6 发表于 2018-8-18 22:58
这个简单，就是不知道什么意思，如果能注释一下，那就更好了

bl是个布尔变量，决定后面代码是否运行。
后面的if判断bl就是你想要的效果，如果都没有选中，就不执行后面的代码。