▌問題引入 而實現(xiàn)這個功能就是用Excel加載宏來實現(xiàn)的,。 之前寫VBA封裝的時候,,講過加載宏,加載項他們之間的區(qū)別,。簡化為下圖:(詳細可以看我的dll封裝學習筆記(一)和我的dll封裝學習筆記(二)) 我們這次做的就是Excel加載宏工作簿(xla或者xlam格式),。 ▌解決過程 制作加載宏工作簿我們主要分為三個主要步驟: 3.編寫功能區(qū)XML代碼,就是讓功能區(qū)顯示那個用于點擊的按鈕,。 ●步驟一:修改代碼 因為要適配所有工作簿,,所以不要出現(xiàn)具體工作表名字。默認操作的都是當前Sheet。 Sub test() Worksheets("表格1").Range("a1") = 1 End Sub 改成 Sub test() Range("a1") = 1 End Sub
Sub test(control As IRibbonControl) Range("a1") = 1 End Sub 到此代碼修改就可以了。 當然,,必要的防錯處理必須要有,,比如不滿足某個條件直接Exit Sub。這個不細說,。 ●步驟二:另存為xlam格式 這個沒什么好說的,,直接另存。需要注意的一點是,,另存的時候,,默認的路徑是存儲在加載宏工作簿路徑下。
●步驟三:設計XML代碼,,并壓入xlam 工具: ①Custom UI Editor For Microsoft Office(獲取方法,,后臺回復: 功能區(qū)) 該工具用于壓入功能區(qū)XML代碼。具體XML代碼怎么寫,,這個工具怎么使用,,可以參看我原來的文章 《VBA小白也學得會的Robbion功能區(qū)》 講的很詳細。 至此,,加載宏就制作完成了,。 ▌關于加載 制作好加載宏了,怎么讓所有的Excel都能適配這段代碼呢,? 2.通過加載宏管理器加載 如果不想加載了,,手動刪除原本的文件?;蛘甙讶サ艄催x這個加載宏,。 |
|