我如何确保select了一个OptionButton.Value

我目前正在制作一个Excel VB应用程序。 不过,我现在卡住了。 我试图做两个OptionButtons之间的select强制性的。

我尝试了代码

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

但是这并没有给我所需的结果。 我试图把它们放在括号内,但仍然卡住了。 我敢肯定,这是一个微不足道的答案,但我只是与VB握手,所以请原谅我。

提前谢谢了。

我试过你的代码,如果你改变和 ,它会起作用。 我创build了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 

应该都是假的 也可以尝试在您的代码的头部添加Option Explicit ,以确保您只访问实际存在的对象。

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

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

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

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