9. 按Alt+F11键打开VBE。 10. 插入一个标准VBA模块并粘贴刚才复制的回调代码。 11. 添加一些代码来测试这两个按钮: 'Callbackfor BtnInsert0 onAction Sub Insert0(control AsIRibbonControl) With control MsgBox "单击了" & .Context.Caption &"中的" & .ID End With End Sub 'Callbackfor BtnInsert1 ...
在Excel中打开该工作簿,然后打开VBE,插入一个标准的VBA模块,输入下面的代码: 代码语言:javascript 复制 'Callbackforbutton1 onAction SubMacro1(control As IRibbonControl)MsgBox"单击了Button1"End Sub 'Callbackforbutton2 onAction SubMacro2(control As IRibbonControl)MsgBox"单击了Button2"End Sub 'Callbackfor...
onAction="Callback" onAction是要执行的功能,也就是俗称的“回调”,大白话就是:往回去VBA中调用哪个功能(Sub块),比如本例的Callback,就应该在VBA代码中有唯一对应的一个 名为 CallBack 的 SUB 代码块去执行。 如前,则建议在VBA中写为:Private SubCallBack(Optional Control As IRibbonControl) 这种形式,若为...
在标准的VBA模块中的过程: Sub RemoveUSD(control As IRibbonControl)Dim workRng As RangeDim Item As RangeOn Error Resume NextSetworkRng =Intersect(Selection, _Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))IfNotwor...
在Excel中打开该工作簿,然后打开VBE,插入一个标准的VBA模块,输入下面的代码: 'Callbackfor button1 onActionSubMacro1(control As IRibbonControl)MsgBox"单击了Button1."EndSub'Callbackfor button2 onActionSubMacro2(control As IRibb...
Sub Macro1(control As IRibbonControl) MsgBox "Hi There" End Sub 13:点击VBA编辑器中的保存按钮 14:使用 Alt+ Q 关闭 VBA 编辑器 15:在 2007 年和/或 2010 年及以上测试工作簿 三 在内置选项卡中添加自定义组 实现这个功能是我提供的myExcelA.XLSM文件,正确加载后,会在“主页”选项卡的末尾看到一个...
Sub UpdateRed(control As IRibbonControl) MsgBox "Update Red 被单击." End Sub 要基于其在XML代码中的id禁用(和启用)某自定义控件,在现有的标准VBA模块或者新的标准VBA模块中包括下面的代码: 代码语言:javascript 复制 Sub EnableAll() Call RefreshRibbon("*") ...
Sub InsertCompanyName(ByVal control As IRibbonControl) ActiveCell = "VBA编程实战"End Sub 我们点击菜单“My Tab“-->“Insert Company Name”,则在活动单元格写入文本“VBA编程实战”: 后记 1、以上只是一个简单的演示,tab、group、button都可以按需添加,label按需修改,onAction指定点击按钮调用的过程,还可以给...
Sub OpenRegFiles(control As IRibbonControl) ……… Set obj = VBA.CreateObject("Wscript.Shell") For Each key In GetAllSettings(MyHabitName, MyHabitFilesSection) fileFullPath = GetSetting(MyHabitName, MyHabitFilesSection, key) If ("" <> fileFullPath) Then obj.Run (fileFullPath) End If...
Show的就是用VBA写一个好的宏工具说明:括号中的 Optional Control As IRibbonControl 一定要带上 Sub可以是全局Private的,而且Sub 名最好不重复 另外可以将所有的 Control 全部集中到一起另外,可以在专门的模块中实现RibbonOnLoad功能,即加载即运行某些特定的代码等。