vba 移除下拉式選單的所有item

[cp3rj9 (MU)]

我的userform 分成三個資料部分
a: combo1
b: combo2       當combo1改變時，combo2的選項會自動改變
c: textbox        當combo2改變時，textbox的值會自動改變

Private Sub combo1_change()
If combo2.ListCount<>0 then
     combo2.clear
End if

以下再加入combo2 所要的items
End sub

執行到clear那行時，
都會直接跳到combo2 _change 的sub function

請問我要如何修改.........
一直找不出問題，謝謝大家幫忙！

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 58.115.164.27
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1540715751.A.1A5.html
※ 編輯: cp3rj9 (58.115.164.27), 10/28/2018 16:36:19
→ soyoso: 在外面宣告個布林值、文字或數字，以布林值來看
→ soyoso: 變數=true:combo2.clear:變數=false，並於combo2_change內
→ soyoso: 設個if 變數 then exit sub
→ soyoso: https://i.imgur.com/6P2lMw1.jpg
→ soyoso: 如不設變數的話，以combo2.clear觸發combo2_change內加上
→ soyoso: if combo2.listcount=0 then exit sub 看是否合適
→ Catbert: 用來停止/啟動Application.EnableEvents
→ soyoso: Application.EnableEvents用於userform內有效果？
→ soyoso: 再回該文章時我就有測試以Application.EnableEvents來測試
→ soyoso: 要停止clear後觸發combo2_change但還是會觸發
→ soyoso: 剛才又測試，還是會觸發該事件，c大應是測試該寫法是可讓
→ soyoso: clear時才不觸發change的事件，還請c大提供，看寫於那個位
→ soyoso: 置是有效果的；測試上我是寫在combo1_change內if判斷的上
→ soyoso: 方，值為false