,所產生的靈感而設計!
【詳細講解版本 E103】,請參考以下連結:
前言:
當時,某論壇的某網友提問,除了 Excel 系統內提供的核取方塊有【儲存格連結】的功能,其它方法所做成的核取方塊,是否也能做到這個功能 ?
而那位高手當時也僅僅是使用 VBA 將文字方塊做出一個類似核取方塊的樣子 ( 可以做勾選與取消 ),並沒有提供【儲存格連結】的功能要怎麼做出來 ! 然而當時的我根本看不懂高手的程式碼 ...
相隔 10 年之久,在偶然的機會下,又再次看到這篇文章,索性再把高手的程式碼看一遍,竟然知道它在幹麻了 !! 很神奇 !! 我很激動也很感動 !! 代表 10 多年來,我吃的白米沒有浪費阿 ~
這次將高手的 VBA 理解後修改,並加入自己開發的【儲存格連結】功能,大成功 !! 但是有它的限制在。
作法:
- 新增一個橫的文字方塊。
- 將此文字方塊的名稱設定為,
CB_你想要的名稱_是否開啟儲存格連結_儲存格位置,中間用底線做為區隔。
例如:CB_MyCheckBox_1_A6,意義如下:
CB:程式會將物件名稱為「CB_」開頭的做為執行對象
MyCheckBox:可任意設定(中文、英文、數字),
但不可包含底線、空白或其它特殊字元
1:代表 要開啟 【儲存格連結】的功能。0 則表示要關閉。
A6:代表 在 A6 儲存格位置顯示 TRUE 或 FALSE。 - 在文字方塊的內容最開頭,先輸入【2 個半形空白】,再輸入想要的文字。
- 進入 VBA 編輯視窗,插入一個模組,並將程式碼貼上。
- 將此文字方塊,指定巨集為 Set_CheckBox ,按下確定。
- 完成,即可操作了。
成果:
以下是成果影片,請欣賞~ 謝謝。
特別感謝
感謝 Chyi 奇大哥 在針對 方框 的【勾選】與【未勾選】狀態上的建議,讓此作品的呈現更加完美!
方框的【勾選】與【未勾選】 - 字型 與 字元代碼 與 VBA 對照表
注意事項
此設計的【儲存格連結】功能為絕對位址,並不會因為新增或刪減 《欄或列》 而變更,請特別留意。
彩蛋
【時間】花在哪,【成就】就在哪。
以上就是這次的分享,請持續關注我 和 Meiko微課頻道,謝謝大家 ~
有任何問題,請在下方留言討論,或加入 LINE社群 Meiko微課小綠群(粉絲交流群),歡迎您的加入。