求助

wh1980king

这个程序希望实现的功能

1.在combobox1中，当键入数字1时，combobox1只显示AAAA;
                 当键入数字2时，combobox1只显示BBBB;
                 当键入数字3时，combobox1只显示CCCC;
                 当键入数字4时，combobox1只显示DDDD;
                 当键入其它键时，combobox1不显示任何内容。

2.在combobox1的下拉列表中，当选中1)AAAA时，combobox1只显示AAAA;
                           当选中2)BBBB时，combobox1只显示AAAA;
                           当选中3)CCCC时，combobox1只显示BBBB;
                           当选中4)DDDD时，combobox1只显示DDDD.

魂断蓝桥

Private Sub ComboBox1_Change()
If Me.ComboBox1 = 1 Then Me.ComboBox1 = "AAA"
If Me.ComboBox1 = 2 Then Me.ComboBox1 = "BBB"
If Me.ComboBox1 = 3 Then Me.ComboBox1 = "CCC"
If Me.ComboBox1 = 4 Then Me.ComboBox1 = ""
End Sub
Private Sub UserForm_Initialize()
Dim ARR
ARR = Array(1, 2, 3, 4)
Me.ComboBox1.List = ARR
End Sub

wh1980king

魂断蓝桥 发表于 2020-1-19 14:16
Private Sub ComboBox1_Change()
If Me.ComboBox1 = 1 Then Me.ComboBox1 = "AAA"
If Me.ComboBox1 = 2 T ...

魂断蓝桥您好！

您给出的方案我刚刚已经测试了，还没有完全达到我的目的。

受到您的启发我对原代码进行了改进，解决了我第2个功能，已经非常谢谢了！

wh1980king

以下是我改进后的内容

wh1980king

我现在的问题是，当我在ComboBox1键入数字键时，显示的内容除了我想要的内容还多了键入数字。
如当我键入数字1时，在combobox1中显示AAAA1,而非我想要显示的AAAA,这怎么处理呀，或者还有什么其它方法，求大神指定！

wh1980king

以下是附件