VBA Excel :选择"选项按钮"时，使用特定的文本字符串填充文本框

Question

我在Excel(2016)中开发了一个表单，我正在尝试(使用VBA)配置其行为，以便在用户选择特定选项按钮时，会发生另外两件事：

1. 将自动选中表单下方的复选框。
2. 窗体下方的文本框会自动显示一组文本字符串。

更具体地说，如果用户选择OptionButtonABC，则...

1. 复选框"无">应变为选中状态
2. TextBoxCompanyName(默认情况下不显示任何文本)现在应显示字符串："ABC"。

我最初创建了一个仅针对条件 1 的子例程，一切正常。但是，当我尝试集成处理条件 2 所需的代码时，事情开始解开。

下面，您将看到处于最新状态的代码。我有一个私有子，它在 Click 事件上启动，然后立即将变量定义为字符串。然后，我设置了一个 if/then 语句，指定OPTION ButtonABC为真应该发生的情况。也就是说，复选框无应该被选中(这工作正常)，文本框公司名称现在应该显示字符串"ABC"。

Private Sub OptionButtonABC_Click()
Dim Variable_ABC As String
Variable_ABC = ABC
If Me.OptionButtonABC.Value = True Then
Me.CheckBoxNone = True And Me.TextBoxCompanyName.Text = Variable_ABC
End If
End Sub

期望的行为应该(理论上)很容易实现，但我对 VBA 的经验仍然非常有限，所以我正在向社区寻求一些建议。正如我上面提到的，上面的代码适用于第一个条件。但是，我仍然无法让文本字符串("ABC")显示在文本框中。

提前感谢您提供的任何建议。

Answer 1

Private Sub OptionButtonABC_Click()
Dim Variable_ABC As String
Variable_ABC = "ABC" 'String Values uses double quotes
If Me.OptionButtonABC.Value = True Then
Me.CheckBoxNone = True
Me.TextBoxCompanyName.Text = Variable_ABC
End If
End Sub

运算符 AND 只能在 IF 语句比较中使用，而不在要执行的操作中使用。