PTT數位生活區 / Office

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

看板Office作者 (MU)時間7年前 (2018/10/28 16:35), 7年前編輯推噓0(0推 0噓 14→)
留言14則, 2人參與, 7年前最新討論串1/1
我的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
→
10/28 16:52, 7年前 , 1F
在外面宣告個布林值、文字或數字，以布林值來看
10/28 16:52, 1F
→
10/28 16:53, 7年前 , 2F
變數=true:combo2.clear:變數=false，並於combo2_change內
10/28 16:53, 2F
→
10/28 16:53, 7年前 , 3F
設個if 變數 then exit sub
10/28 16:53, 3F
→
10/28 16:55, 7年前 , 4F
10/28 16:55, 4F
→
10/28 18:13, 7年前 , 5F
如不設變數的話，以combo2.clear觸發combo2_change內加上
10/28 18:13, 5F
→
10/28 18:14, 7年前 , 6F
if combo2.listcount=0 then exit sub 看是否合適
10/28 18:14, 6F
→
10/28 20:07, 7年前 , 7F
用來停止/啟動Application.EnableEvents
10/28 20:07, 7F
→
10/28 20:22, 7年前 , 8F
Application.EnableEvents用於userform內有效果？
10/28 20:22, 8F
→
10/28 20:22, 7年前 , 9F
再回該文章時我就有測試以Application.EnableEvents來測試
10/28 20:22, 9F
→
10/28 20:23, 7年前 , 10F
要停止clear後觸發combo2_change但還是會觸發
10/28 20:23, 10F
→
10/28 20:25, 7年前 , 11F
剛才又測試，還是會觸發該事件，c大應是測試該寫法是可讓
10/28 20:25, 11F
→
10/28 20:27, 7年前 , 12F
clear時才不觸發change的事件，還請c大提供，看寫於那個位
10/28 20:27, 12F
→
10/28 20:27, 7年前 , 13F
置是有效果的；測試上我是寫在combo1_change內if判斷的上
10/28 20:27, 13F
→
10/28 20:28, 7年前 , 14F
方，值為false
10/28 20:28, 14F
‣ 更多 cp3rj9 的文章
文章代碼(AID): #1RrNJd6b (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 cp3rj9 的文章
文章代碼(AID): #1RrNJd6b (Office)