作者cp3rj9 (MU)
看板Office
标题vba 移除下拉式选单的所有item
时间Sun Oct 28 16:35:48 2018
我的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://webptt.com/cn.aspx?n=bbs/Office/M.1540715751.A.1A5.html
※ 编辑: cp3rj9 (58.115.164.27), 10/28/2018 16:36:19
1F：→ soyoso: 在外面宣告个布林值、文字或数字，以布林值来看 10/28 16:52
2F：→ soyoso: 变数=true:combo2.clear:变数=false，并於combo2_change内 10/28 16:53
3F：→ soyoso: 设个if 变数 then exit sub 10/28 16:53
5F：→ soyoso: 如不设变数的话，以combo2.clear触发combo2_change内加上 10/28 18:13
6F：→ soyoso: if combo2.listcount=0 then exit sub 看是否合适 10/28 18:14
7F：→ Catbert: 用来停止/启动Application.EnableEvents 10/28 20:07
8F：→ soyoso: Application.EnableEvents用於userform内有效果？ 10/28 20:22
9F：→ soyoso: 再回该文章时我就有测试以Application.EnableEvents来测试 10/28 20:22
10F：→ soyoso: 要停止clear後触发combo2_change但还是会触发 10/28 20:23
11F：→ soyoso: 刚才又测试，还是会触发该事件，c大应是测试该写法是可让 10/28 20:25
12F：→ soyoso: clear时才不触发change的事件，还请c大提供，看写於那个位 10/28 20:27
13F：→ soyoso: 置是有效果的；测试上我是写在combo1_change内if判断的上 10/28 20:27
14F：→ soyoso: 方，值为false 10/28 20:28