yen956

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-3-8 19:19 | 只看該作者

請教ComboBox_Change的問題

本帖最後由 yen956 於 2017-3-8 19:20 編輯

請教諸位大大:
ComboBox_Change須在內容改變時才觸動VBA,
希望能有內容變不變均能觸動VBA的方法,
如下圖所示

因為內容改變時才觸動VBA, 對使用者來說, 並不方便,
如下圖所示

附檔在
http://forum.twbts.com/thread-19341-1-1.html的 2f
謝謝諸位大大

樓主熱帖

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

10^#

發表於 2017-3-11 19:17 | 只看該作者

回復 9#
謝謝大大再三指導, 果然可用但只能照抄, 謝謝!!

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

9^#

發表於 2017-3-10 22:53 | 只看該作者

QX9770.zip (10.27 KB)

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

8^#

發表於 2017-3-1 12:07 | 只看該作者

回復 4# jackyq
原來是我想錯了, 還是大大說的
""你可以考慮不要把 combobox 的起始化動作綁定在 ListFillRange
改成你自己用程式去做起始化動作"" 才對,
試過了, 用 Workbook_Open
去做起始化動作不要與 ListFillRange 綁定, 則
另存新檔或更改工作表名或複製工作表時
均不會觸動 ComboBox_Change。
謝謝大大的指教!!

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

7^#

發表於 2017-2-28 18:08 | 只看該作者

本帖最後由 yen956 於 2017-2-28 18:15 編輯

回復 3# jackyq
非常感謝 jackyq 大大的指導, 經過測試, 一切正常, 不再有奇怪的事情發生了, 謝謝!!
只是程式碼有點難解, 先照抄再慢慢研究啦!!
(補編)現在才發現 3F, 4F 都是大大的傑作, 失禮.
3F的方法可解決目前的困惑, 有新問題再說, 4F的方法應該行不通.
再次謝謝您!!

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

6^#

發表於 2017-2-28 17:25 | 只看該作者

本帖最後由 yen956 於 2017-2-28 17:27 編輯

回復 4# jackyq
你是說:
Private Sub ComboBox1_Change()
comboBox1.Items.Add(new Item(..., 1));...
...
End Sub
嗎? 但一旦啟動ComboBox1_Change()
就會從頭到尾執行一遍,不是嗎?
有一個方法, 就是要求使用者
避開 ComboBox 的執執區,
即先在灰色區點一下, 再按 [檔案]-->[另存新檔],
這也是我的自製按鈕 [另存新檔] 的方法,
但要求使用者如此操不是很奇怪的方法嗎?!

TOP

jackyq