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