VBA-自定义菜单（RibbonXMLEditor）

Option Explicit '变量显示申明

'GS001 (元素: button属性: onAction), 2007
'ssz001 (元素: button属性: onAction), 2007
'mo1 (元素: button属性: onAction), 2007
Private Sub B001改微软雅黑8(control As IRibbonControl)
   B001_改微软雅黑8
End Sub

'other000 (元素: button属性: onAction), 2007
Private Sub A001AllInternalPasswords(control As IRibbonControl)
    A001_AllInternalPasswords
End Sub

'other001 (元素: button属性: onAction), 2007
Private Sub B002去除组(control As IRibbonControl)
    B002_去除组
End Sub

'other002 (元素: button属性: onAction), 2007
Private Sub B003取消所有隐藏的工作表(control As IRibbonControl)
    B003_取消所有隐藏的工作表
End Sub

'other003 (元素: button属性: onAction), 2007
Private Sub B004深度隐藏(control As IRibbonControl)
    B004_深度隐藏
End Sub

'other004 (元素: button属性: onAction), 2007
Private Sub B005所有工作表粘贴成值(control As IRibbonControl)
    B005_所有工作表粘贴成值
End Sub

'other005 (元素: button属性: onAction), 2007
Private Sub B007调整透视表数字格式千分位(control As IRibbonControl)
    B007_调整透视表数字格式千分位
End Sub

'HB001 (元素: button属性: onAction), 2007
Private Sub A002合并当前目录下所有工作簿的全部工作表(control As IRibbonControl)
    A002_合并当前目录下所有工作簿的全部工作表
End Sub

'HB002 (元素: button属性: onAction), 2007
Private Sub A003合并当前工作簿下的所有工作表(control As IRibbonControl)
    A003_合并当前工作簿下的所有工作表
End Sub

'HB003 (元素: button属性: onAction), 2007
Private Sub A009合并当前目录下所有工作簿的指定工作表(control As IRibbonControl)
   A009_合并当前目录下所有工作簿的指定工作表
End Sub


'CF001 (元素: button属性: onAction), 2007
Private Sub A005表格拆分sheet(control As IRibbonControl)
   A005_表格拆分sheet
End Sub

'CF002 (元素: button属性: onAction), 2007
Private Sub A006拆分成工作簿(control As IRibbonControl)
    A006_拆分成工作簿
End Sub

'CF003 (元素: button属性: onAction), 2007
Private Sub A011sheet表保存成工作簿(control As IRibbonControl)
   A011_sheet表保存成工作簿
End Sub

'Name000 (元素: button属性: onAction), 2007
Private Sub B006获取sheets名称(control As IRibbonControl)
    B006_获取sheets名称
End Sub

'Name001 (元素: button属性: onAction), 2007
'Name003 (元素: button属性: onAction), 2007
Private Sub A008创建工作表名称(control As IRibbonControl)
   A008_创建工作表名称
End Sub

'Name002 (元素: button属性: onAction), 2007
Private Sub B009批量修改工作表名称(control As IRibbonControl)
    B009_批量修改工作表名称
End Sub


Private Sub B014修改数值格式(control As IRibbonControl)
    B014_修改数值格式
End Sub

Private Sub 自定义函数清单(control As IRibbonControl)
    自定义函数list
End Sub


'other001 (元素: button属性: onAction), 2007
Private Sub B012文本化(control As IRibbonControl)
    B012_文本化
End Sub

'other002 (元素: button属性: onAction), 2007
Private Sub B013数字化(control As IRibbonControl)
    B013_数字化
End Sub

Private Sub A007列对应改行对应(control As IRibbonControl)
  A007_列对应改成行对应
End Sub

Private Sub A010批量修改文件名称(control As IRibbonControl)
  A010_批量修改文件名称
End Sub

Private Sub A004目录下首列插入列并带上表名(control As IRibbonControl)
     A004_目录下首列插入一列并带上表名
End Sub


'PD1 (元素: button属性: onAction), 2007
Private Sub A012表格拆分(control As IRibbonControl)
    A012_表格拆分
End Sub

'Name004 (元素: button属性: onAction), 2007
Private Sub B008取目录下所有工作簿内所有工作表名称(control As IRibbonControl)
    B008_取目录下所有工作簿内所有工作表名称
End Sub

'other009 (元素: button属性: onAction), 2007
Private Sub B015重复粘贴(control As IRibbonControl)
  B015_重复粘贴
End Sub

'other000-2 (元素: button属性: onAction), 2007
Private Sub B011选中区域改微软雅黑(control As IRibbonControl)
    B011_选中区域改微软雅黑
End Sub

'ssz001 (元素: button属性: onAction), 2007
Private Sub rcssz001序时账(control As IRibbonControl)
    MsgBox "在OnAction元素中指定对应的宏" & control.ID
End Sub

'ssz002 (元素: button属性: onAction), 2007
Private Sub ssz001序时账(control As IRibbonControl)
    MsgBox "在OnAction元素中指定对应的宏" & control.ID
End Sub

'mo1 (元素: button属性: onAction), 2007
Private Sub WG006mo订单数量检查(control As IRibbonControl)
    MsgBox "在OnAction元素中指定对应的宏" & control.ID
End Sub

'mo2 (元素: button属性: onAction), 2007
Private Sub WG007mo订单报工检查(control As IRibbonControl)
    MsgBox "在OnAction元素中指定对应的宏" & control.ID
End Sub

'mo3 (元素: button属性: onAction), 2007
Private Sub WG008mo订单投料检查(control As IRibbonControl)
    MsgBox "在OnAction元素中指定对应的宏" & control.ID
End Sub

'YS1 (元素: button属性: onAction), 2007
Private Sub ysWG003目录下序时账透视汇总(control As IRibbonControl)
    WG004目录下序时账透视汇总
End Sub

'YS2 (元素: button属性: onAction), 2007
Private Sub ysWG004目录下折旧透视汇总(control As IRibbonControl)
    MsgBox "在OnAction元素中指定对应的宏" & control.ID
End Sub

'YS3 (元素: button属性: onAction), 2007
Private Sub ysWG005人力成本预算格式转换(control As IRibbonControl)
    MsgBox "在OnAction元素中指定对应的宏" & control.ID
End Sub


'other000-3 (元素: button属性: onAction), 2007
Private Sub B016自动调整行列距离(control As IRibbonControl)
   B016_自动调整行列距离
End Sub

'Name005 (元素: button属性: onAction), 2007
Private Sub A013工作表排序(control As IRibbonControl)
    A013_工作表排序
End Sub

Private Sub A014目录下前n名称工作簿合并(control As IRibbonControl)
    A014_目录下前n名称工作簿合并
End Sub

Private Sub B017多列转成一列(control As IRibbonControl)
    B017_多列转成一列
End Sub