其他依赖列表组合框,组合框Excel VBA

Question

我是编程的初学者，到目前为止我已经尝试了很多。我有一个问题，可能对你来说比较容易。我一直在寻找答案，但我不明白他们的解决方案。

我的问题是:

我有两个组合框。(组合框1和组合框2)。两个组合框值都有一个值列表。如下所示:

Combo Box 1 list             Combo Box 2 list
A                                    A1
B                                    A2
C                                    B1
D                                    B2
C1
D1

我想要的是，如果组合框1 value = A，在组合框2将只显示A1和A2的列表。

我所尝试的是创建一个新的工作表。我将组合框1的每个列表与它们对应的组合框2的值组织起来。就像

|A|      |B|        |C|         |D|
A1        B1         C1          D1
A2        B2        

然后我运行一个while循环。如果combobox1的值等于头。然后，它会将标题下面的数据添加到组合框2.

一样

j = 1
While ComboBox3.Value <> Sheets("Data2").Cells(1, j)
j = j + 1
Wend
ComboBox4.List = Sheets("Data2").Range(j).Value

但它似乎根本不起作用。

Answer 1

Private Sub ComboBox1_Change()
Dim r, c As Range
Set r = Sheet2.Range("A6:A100")
ComboBox2.Clear
For Each c In r
If c.Value <> "" Then
If Left(c, 1) Like ComboBox1.Value Then
ComboBox2.AddItem c.Value
End If
End If
Next c

结束子