如果組合框是那麼數組值填充替代組合框VB​​A

Question

我有我的窗體2個組合框，如果組合框1國家「德國家庭購物」，如果給出了以下陣列

If ComboBox1.Value = "Germany Home Shopping" Then 
ComboBox2.List = Array("GER Singles ABE", "GER Singles CDF", "GER Small Cat ABE", "GER Small Cat CDF", "GER Small Cat All Zone", "GER Large Cat ABE", "GER Large Cat CDF", "GER Large Cat All Zone") 
End If 

我也想這樣做相反，如果值是組合框2中的數組答案之一，那麼它將把德國家庭購物放在組合框1中。我認爲這可以這樣做？

If ComboBox2.List = Array("GER Singles ABE", "GER Singles CDF", "GER Small Cat ABE", "GER Small Cat CDF", "GER Small Cat All Zone", "GER Large Cat ABE", "GER Large Cat CDF", "GER Large Cat All Zone") Then 
ComboBox1.Value = "Germany Home Shopping" 
End If 

但這似乎並沒有爲我工作。

在此先感謝:-) 鋁

Answer 1

你可以試試這個：

Dim mylist 
mylist = Array("GER Singles ABE", "GER Singles CDF", "GER Small Cat ABE", _ 
     "GER Small Cat CDF", "GER Small Cat All Zone", "GER Large Cat ABE", _ 
     "GER Large Cat CDF", "GER Large Cat All Zone") 
If Not IsError(Application.Match(Me.ComboBox2.Value, mylist, 0)) Then 
    Me.ComboBox1.Value = "Germany Home Shopping" 
End If