作者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/m.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