Excel中的組合框中的唯一值VBA

Question

我想從combobox1中選擇組合框2中的唯一值。

Column A    Column B 
--------    -------- 
Girls     Hair 
Boys     Hair 
Veg     Water 
Non-Veg    Water 

一旦我選擇combobox1女孩（從列中檢索「A」在Excel中），它應該顯示在Excel中列「B」而不是兩次「頭髮」的獨特價值。

Answer 1

這裏是那種鏈接選擇的基礎：

這將在ComboBox1實現獨特的價值觀：

Private Sub UserForm_Initialize() 
Dim Ws As Worksheet, _ 
    Dic As Object, _ 
    rCell As Range, _ 
    Key 'As String 

Set Ws = Worksheets("Sheet1") 
Set Dic = CreateObject("Scripting.Dictionary") 
UserForm1.ComboBox1.Clear 

For Each rCell In Ws.Range("A2", Ws.Cells(Rows.Count, "A").End(xlUp)) 
    If Not Dic.exists(LCase(rCell.Value)) Then 
     Dic.Add LCase(rCell.Value), Nothing 
    End If 
Next rCell 

For Each Key In Dic 
    UserForm1.ComboBox1.AddItem Key 
Next 
End Sub 

「還有就是把不重複值ComboBox2的一部分時，它匹配與ComboBox1標準：

「當您更改ComboBox1的值，它會啓動該代碼，所以你需要在T 刷新這裏提供的值在ComboBox2與您自己的測試。

Private Sub ComboBox1_Change() 

Dim Ws As Worksheet, _ 
    Dic As Object, _ 
    rCell As Range, _ 
    Key 'As String 

Set Ws = Worksheets("Sheet1") 
Set Dic = CreateObject("Scripting.Dictionary") 
Me.ComboBox2.Clear 'Clear all previously added elements 
Me.ComboBox2.Value = vbNullString 'Set active value as an empty string 

'------Here is where you need to do your tests------- 
For Each rCell In Ws.Range("B2", Ws.Cells(Rows.Count, "B").End(xlUp)) 
    If rCell.Offset(0, -1) <> Me.ComboBox1.Value Then 
    Else 
     If Not Dic.exists(LCase(rCell.Value)) Then 
      Dic.Add LCase(rCell.Value), Nothing 
     End If 
    End If 
Next rCell 

For Each Key In Dic 
    UserForm1.ComboBox2.AddItem Key 
Next 
End Sub 

而對於第三個組合框代碼：

Private Sub ComboBox2_Change() 

    Dim Ws As Worksheet, _ 
     Dic As Object, _ 
     rCell As Range, _ 
     Key 'As String 

    Set Ws = Worksheets("Sheet1") 
    Set Dic = CreateObject("Scripting.Dictionary") 
    Me.ComboBox3.Clear 'Clear all previously added elements 
    Me.ComboBox3.Value = vbNullString 'Set active value as an empty string 

    '------Here is where you need to do your tests------- 
    For Each rCell In Ws.Range("C2", Ws.Cells(Rows.Count, "C").End(xlUp)) 
     If rCell.Offset(0, -1) <> Me.ComboBox2.Value And rCell.Offset(0, -2) <> Me.ComboBox1.Value Then 
     Else 
      If Not Dic.exists(LCase(rCell.Value)) Then 
       Dic.Add LCase(rCell.Value), Nothing 
      End If 
     End If 
    Next rCell 

    For Each Key In Dic 
     UserForm1.ComboBox3.AddItem Key 
    Next 
    End Sub