使用组合框选择和选项按钮在excel用户表单

Question

我是vba的新手，并且在用户表单中遇到了一些麻烦。 我想拥有它，以便当组合框中的选择包含某个字母时，选择一个选项按钮。

我曾尝试使用的代码是： -

Private Sub ComboBox1_Change() 
If ComboBox1.Value = "*C*" Then 
    OptionButton3.Value = True 
    End If 
If ComboBox1.Value = "FR 850 C BLUE" Then 
    TextBox2.Value = "BLUE" 
    End If 
If ComboBox1.Value = "FR 850 C WHITE" Then 
    TextBox2.Value = "WHITE" 
    End If 
End Sub 

然而，TextBox2才可见如下：

Private Sub OptionButton3_Click() 
TextBox2.Visible = True 
With Me.TextBox2 
    .Value = "Colour here" 
    .SetFocus 
    .SelStart = 0 
    .SelLength = Len(.Text) 
End With 
End Sub 

参见this printscreen（见下文）的用户窗体的含有一个选项时选择“C” - OptionButton3保持未选中状态。

另外我试图代码，以便当选择 “FR 850℃BLUE”，TextBox2将显示 “BLUE”。我怀疑，一旦我找到第一部分的修复，这将工作得更好，但是，如this printscreen（见下文）所示，如果您在Combobox1的“FR 850 C BLUE”之后选择OptionButton3，TextBox2不显示“BLUE”我希望它。

谁能帮助？我怀疑我错过了什么地方...

任何/所有评论欢迎！

Answer 1

您指出：

If ComboBox1.Value = "*C*" Then 

这意味着，如果ComboBox1.Value等于"*C*"做一些事情。
要检查值部分匹配您使用Like：

If ComboBox1.Value Like "*C*" Then