1 2 3 4 5 6 7 8 9 10 11 12
| Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 2, False))
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 3, False))
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 4, False))
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 5, False))
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 6, False))
End Sub
Private Sub ComboBox2_Change()
If ComboBox2.Value <> "" Then ListBox1.AddItem (ComboBox1.Value & " " & ComboBox2.Value)
End Sub |
Partager