使用combobox在excel用户窗体中select和selectbutton

我是vba的新手，并且遇到了一些用户窗体问题。 我想这样做，当在combobox中的select包含某个字母，一个选项button被选中。

我试图使用的代码是：

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 

select包含“C”的选项时，请参阅用户OptionButton3 此打印屏幕 （请参阅下文） – OptionButton3保持未选中状态。

此外，我试图编码，所以当select“FR 850 C BLUE”时， TextBox2将显示“BLUE”。 我怀疑一旦find第一部分的修复，这将工作得更好，但是，正如此打印屏幕 （见下文）所示，如果在Combobox1 “FR 850 C BLUE”之后selectOptionButton3 ，则TextBox2不会显示“蓝色”正如我所愿。

谁能帮忙？ 我怀疑我错过了什么地方…

任何/所有评论欢迎！

Answer 1

你在说：

 If ComboBox1.Value = "*C*" Then 

这意味着，如果ComboBox1.Value等于"*C*"执行一些操作。
要检查一个值部分匹配你使用Like ：

 If ComboBox1.Value Like "*C*" Then