[算表]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