如何确保选择了OptionButton.Value

时间:2010-01-05 02:45:48

标签: excel vba vb6 if-statement

我目前正在制作Excel VB应用程序。但是,我现在卡住了。我试图在两个OptionButtons之间做出必选的选择。

我尝试了代码

If Me.PWebOption.Value = False & Me.BWebOption = False Then
        MsgBox "Please choose a type of website"
        Exit Sub
End If

但这并没有给我所需的结果。我试着将它们放在括号中,但仍然卡住了。我确信这是一个微不足道的答案,但我只是想要掌握VB,所以请原谅我。

非常感谢提前。

2 个答案:

答案 0 :(得分:1)

我不确定它是否是复制/粘贴错误,但在第一部分中您正在调用.Value,而在第二部分中您只是使用该选项本身。你的代码应该是这样吗:

If Me.PWebOption.Value = False & Me.BWebOption.Value = False Then 
        MsgBox "Please choose a type of website" 
        Exit Sub 
End If

(请注意,它在两个选项上都使用.Value。)

答案 1 :(得分:1)

我尝试了您的代码,如果您更改&到和。我创建了2个OptionButtons,将它们命名并用“And”运行代码没有问题。

如果它仍然不起作用那么我的猜测是:

  • 您的一个或两个OptionButtons都不是假的

或:

  • 您正在访问错误的OptionButtons。

尝试

Debug.Print Me.PWebOption.Value
Debug.Print Me.BWebOption.Value
Debug.Print Me.PWebOption 'just for fun'
Debug.Print Me.BWebOption 

它应该都返回false。还可以尝试将Option Explicit放在代码的头部,以确保您只访问实际存在的对象。

注意:在VBA&仅用于连接和:和Or和Not是逻辑运算符。