GBKEE

回復 2# mark761222
可簡潔一下,試試看

1. Private Sub ComboBox1_Change()
   
2.     With ComboBox2
   
3.         .Clear
   
4.         If ComboBox1.Text = "資料1" Then .List = Array("A", "B")
   
5.         If ComboBox1.Text = "資料2" Then .List = Array("C", "D", "E")
   
6.         If ComboBox1.Text = "資料3" Then .List = Array("F")
   
7.     End With
   
8. End Sub

複製代碼