基於其他組合框 Excel VBA 的相關組合框列表

Question

我是編程的初學者，到目前為止我已經嘗試了很多。 我有一個問題對你來說可能很容易。 我一直在尋找答案，但我無法理解他們的解決方案。

我的問題是：

我有兩個組合框。 （組合框 1 和組合框 2）。 兩個組合框值都有一個值列表。 像下面這樣：

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

我想要的是，如果組合框 1 值 = 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

結束子