yen956

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

1^# 跳轉到 »

發表於 2017-2-28 13:23 | 只看該作者

令人困惑的ActiveX ControlBox

本帖最後由 yen956 於 2017-2-28 13:26 編輯

由於小弟先前製作的 Jenpu30 按鈕實在太多了,
如下圖

Jenpu40 版又想增加一些按鈕, 因此想用下拉式選單,
把按鈕歸類到 Active ComboBox 中, 如下圖

沒想到郤發生新的問題,不知如何解決,
1. 另存新檔時
2. 更改工作表名時
3. 複製工作表時
4. (應該還有...)
均會莫明奇妙的從ComboBox複製一些文字到ActiveCell中
雖然有自製按鈕解決部問題, 但總不是好辦法,
不知有什麼好方法?
如下圖

TOP

yen956

高中生 Rank: 3 Rank: 3

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

2^#

發表於 2017-2-28 13:42 | 只看該作者

補檔, 如果純測試Active ComboBox 的 VBA, 可不必安裝字型,謝謝!!

Jenpu40.zip (167.99 KB)

TOP

jackyq

中學生 Rank: 2

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

3^#

發表於 2017-2-28 16:06 | 只看該作者

1111.zip (114.88 KB)

可能有更簡單的方式

TOP

jackyq

中學生 Rank: 2

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

4^#

發表於 2017-2-28 16:37 | 只看該作者

1111 Timer 的跨日問題 , 可以解決
但他依然不是一個100%可靠方式

你可以考慮不要把 combobox 的起始化動作綁定在 ListFillRange
改成你自己用程式去做起始化動作

TOP

yen956

高中生 Rank: 3 Rank: 3

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

5^#

發表於 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

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 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

7^#

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

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

TOP

yen956