[發問] 選單判斷

透過下面語法建立選單
Private Sub UserForm_Activate()
ComboBox1.AddItem "資料1"
ComboBox1.AddItem "資料2"
ComboBox1.AddItem "資料3"

ComboBox2.AddItem "A"
ComboBox2.AddItem "B"
ComboBox2.AddItem "C"
ComboBox2.AddItem "D"
ComboBox2.AddItem "E"
ComboBox2.AddItem "F"

如何判斷當我選資料1的時候ComboBox2.AddItem 只顯示AB
當我選資料2的時候ComboBox2.AddItem 只顯示CDE
當我選資料3的時候ComboBox2.AddItem 只顯示F

IF ComboBox1.Text = "資料1" Then 後面就不會寫了

有大大可以解答嗎?拜託了

樓主熱帖

mark761222

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

2^#

發表於 2015-10-7 12:59 | 只看該作者

睡了一覺，自己解決了，分享給大家
Private Sub UserForm_Activate()
ComboBox1.AddItem "資料1"
ComboBox1.AddItem "資料2"
ComboBox1.AddItem "資料3"

Private Sub ComboBox1_Change()
If ComboBox1.Text = "資料1" Then ComboBox2.clear '選定資料後清除，避免選兩次會纍加清單
If ComboBox1.Text = "資料1" Then ComboBox2.AddItem "A"
If ComboBox1.Text = "資料1" Then ComboBox2.AddItem "B"
If ComboBox1.Text = "資料2" Then ComboBox2.clear
If ComboBox1.Text = "資料2" Then ComboBox2.AddItem "C"
If ComboBox1.Text = "資料2" Then ComboBox2.AddItem "D"
If ComboBox1.Text = "資料2" Then ComboBox2.AddItem "E"
If ComboBox1.Text = "資料3" Then ComboBox2.clear
If ComboBox1.Text = "資料3" Then ComboBox2.AddItem "F"

TOP

GBKEE