要实现的这个添加代码的菜单,需要具备以下几个特点:
01
自动更新
要自动更新是比较简单的,只要在加载宏打开的时候,执行一次添加菜单的功能即可,所以,需要在加载宏的Thisworkbook模块添加代码:
Private Sub Workbook_Open()
Call AddCommanBar
End Sub
这样加载宏打开的时候,每次都去重新创建一次菜单,只要把创建菜单的代码逻辑规划好就可以。
02
分类自动添加
因为需要分类(单独按钮和新的弹出式)创建,所以必须有个地方能够让我们知道要创建的是什么类型的,个人做法是:
毕竟这个不是非常复杂的程序,所以在一个单独的文件夹专门存放代码,然后手动创建一个目录,平时只要去维护这个目录即可。
目录的信息主要有:
msoControl 添加控件类型(单独按钮和新的弹出式)
caption 控件的显示名称
faceID 控件的图标
endflag 这个是标记弹出式控件结束的
按如下格式创建一个CommandBarDir.txt文件:
msoControl,caption,faceID,endflag
1,vba_main,538,
1,i_row,73,
10,Object,361,
1,dic,2,
1,ado,50,
1,fso,53,
1,json,203,
1,Clipboard,19,1
每增加一个代码文件的时候,都要在目录中添加一行信息。这种常用的片段代码个人认为不会特别多,所以手动维护一个这样的目录应该不难。
前面的1和10对应的分别是msoControlButton和msoControlPopup,这个数字可以在立即窗口这样输入查看:
?msoControlButton
这个就是VBA内置定义好了的枚举类型:
caption对应的名称就是保存代码的txt文件:
这里不使用遍历获取文件的目的是,菜单的顺序用习惯了还是不喜欢变动的,如果遍历获取文件,默认是按照字母排序的,可能在更新的时候有变动。
faceID是控件前面的小图标,这个其实无所谓,有兴趣可以写个简单的代码,在菜单上添加控件,设置不同的faceID看看:
Sub TestExcelCMDB()
Dim cmdb As CommandBarButton
Application.CommandBars("Worksheet Menu Bar").Reset
Dim i As Long
For i = 1 To 200
Set cmdb = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton, Temporary:=True)
cmdb.FaceId = i
Next
End Sub
endflag就是为了标识msoControlPopup的结束。
基本上前期的一些基础就这些了,这里主要做的就是维护好CommandBarDir.txt文件。