[算表]vba 移除下拉式選單的所有item

作者: cp3rj9 (MU)   2018-10-28 16:35:48
我的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
請問我要如何修改.........
一直找不出問題,謝謝大家幫忙!
作者: soyoso (我是耀宗)   2018-10-28 16:52:00
在外面宣告個布林值、文字或數字,以布林值來看變數=true:combo2.clear:變數=false,並於combo2_change內設個if 變數 then exit subhttps://i.imgur.com/6P2lMw1.jpg如不設變數的話,以combo2.clear觸發combo2_change內加上if combo2.listcount=0 then exit sub 看是否合適
作者: Catbert (宅男)   2018-10-28 20:07:00
用來停止/啟動Application.EnableEvents
作者: soyoso (我是耀宗)   2018-10-28 20:22:00
Application.EnableEvents用於userform內有效果?再回該文章時我就有測試以Application.EnableEvents來測試要停止clear後觸發combo2_change但還是會觸發剛才又測試,還是會觸發該事件,c大應是測試該寫法是可讓clear時才不觸發change的事件,還請c大提供,看寫於那個位置是有效果的;測試上我是寫在combo1_change內if判斷的上方,值為false

Links booklink

Contact Us: admin [ a t ] ucptt.com