通过VBA制造EXCEL的菜单 -- 非程序员作坊-- 编程爱好者博客

通过EXCEL的宏制造菜单的测试。

1。新建一个EXCEL文件，点菜单“工具”－“宏”—“VB编辑器”。

2。点击树状菜单中的“ThisWorkBook”。

3。在弹出的窗口中输入以下代码：

Dim butt0, butt1, butt2, butt3, butt4, butt5, butt6, butt7, butt8, butt9
Dim butt10, butt11, butt12, butt13, butt14, butt15, butt16, butt17, butt18, butt19

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("菜单1").Delete
Application.CommandBars("菜单2").Delete
Application.CommandBars("菜单3").Delete
Application.CommandBars("菜单4").Delete
Application.CommandBars("菜单5").Delete
Application.CommandBars("菜单6").Delete
Application.CommandBars("菜单7").Delete
Application.CommandBars("菜单8").Delete
Application.CommandBars("菜单9").Delete
Application.CommandBars("菜单10").Delete
Application.CommandBars("菜单11").Delete
Application.CommandBars("菜单12").Delete
End Sub

Private Sub Workbook_Open()
Set tbar1 = Application.CommandBars.Add(Name:="菜单1", Position:=msoBarBottom)
Set tbar2 = Application.CommandBars.Add(Name:="菜单2", Position:=msoBarBottom)
Set tbar3 = Application.CommandBars.Add(Name:="菜单3", Position:=msoBarBottom)
Set tbar4 = Application.CommandBars.Add(Name:="菜单4", Position:=msoBarBottom)
Set tbar5 = Application.CommandBars.Add(Name:="菜单5", Position:=msoBarBottom)
Set tbar6 = Application.CommandBars.Add(Name:="菜单6", Position:=msoBarBottom)
Set tbar7 = Application.CommandBars.Add(Name:="菜单7", Position:=msoBarBottom)
Set tbar8 = Application.CommandBars.Add(Name:="菜单8", Position:=msoBarBottom)
Set tbar9 = Application.CommandBars.Add(Name:="菜单9", Position:=msoBarBottom)
Set tbar10 = Application.CommandBars.Add(Name:="菜单10", Position:=msoBarBottom)
Set tbar11 = Application.CommandBars.Add(Name:="菜单11", Position:=msoBarBottom)
Set tbar12 = Application.CommandBars.Add(Name:="菜单12", Position:=msoBarBottom)

Set butt0 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt1 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt2 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt3 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt4 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt5 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt6 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt7 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt8 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt9 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt10 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt11 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt12 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt13 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt14 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt15 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt16 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt17 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt18 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt19 = tbar1.Controls.Add(Type:=msoControlButton)
Set butt20 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt21 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt22 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt23 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt24 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt25 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt26 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt27 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt28 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt29 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt30 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt31 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt32 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt33 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt34 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt35 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt36 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt37 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt38 = tbar2.Controls.Add(Type:=msoControlButton)
Set butt39 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt40 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt41 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt42 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt43 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt44 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt45 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt46 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt47 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt48 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt49 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt50 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt51 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt52 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt53 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt54 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt55 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt56 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt57 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt58 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt59 = tbar3.Controls.Add(Type:=msoControlButton)
Set butt60 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt61 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt62 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt63 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt64 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt65 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt66 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt67 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt68 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt69 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt70 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt71 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt72 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt73 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt74 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt75 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt76 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt77 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt78 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt79 = tbar4.Controls.Add(Type:=msoControlButton)
Set butt80 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt81 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt82 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt83 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt84 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt85 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt86 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt87 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt88 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt89 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt90 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt91 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt92 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt93 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt94 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt95 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt96 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt97 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt98 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt99 = tbar5.Controls.Add(Type:=msoControlButton)
Set butt100 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt101 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt102 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt103 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt104 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt105 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt106 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt107 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt108 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt109 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt110 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt111 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt112 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt113 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt114 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt115 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt116 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt117 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt118 = tbar6.Controls.Add(Type:=msoControlButton)
Set butt119 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt120 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt121 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt122 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt123 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt124 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt125 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt126 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt127 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt128 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt129 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt130 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt131 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt132 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt133 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt134 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt135 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt136 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt137 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt138 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt139 = tbar7.Controls.Add(Type:=msoControlButton)
Set butt140 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt141 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt142 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt143 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt144 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt145 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt146 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt147 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt148 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt149 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt150 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt151 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt152 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt153 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt154 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt155 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt156 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt157 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt158 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt159 = tbar8.Controls.Add(Type:=msoControlButton)
Set butt160 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt161 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt162 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt163 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt164 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt165 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt166 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt167 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt168 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt169 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt170 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt171 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt172 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt173 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt174 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt175 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt176 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt177 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt178 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt179 = tbar9.Controls.Add(Type:=msoControlButton)
Set butt180 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt181 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt182 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt183 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt184 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt185 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt186 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt187 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt188 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt189 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt190 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt191 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt192 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt193 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt194 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt195 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt196 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt197 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt198 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt199 = tbar10.Controls.Add(Type:=msoControlButton)
Set butt200 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt201 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt202 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt203 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt204 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt205 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt206 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt207 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt208 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt209 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt210 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt211 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt212 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt213 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt214 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt215 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt216 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt217 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt218 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt219 = tbar11.Controls.Add(Type:=msoControlButton)
Set butt220 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt221 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt222 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt223 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt224 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt225 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt226 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt227 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt228 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt229 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt230 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt231 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt232 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt233 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt234 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt235 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt236 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt237 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt238 = tbar12.Controls.Add(Type:=msoControlButton)
Set butt239 = tbar12.Controls.Add(Type:=msoControlButton)

With butt0
.Caption = "0"
.FaceId = 0
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt1
.Caption = "1"
.FaceId = 1
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt2
.Caption = "2"
.FaceId = 2
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt3
.Caption = "3"
.FaceId = 3
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt4
.Caption = "4"
.FaceId = 4
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt5
.Caption = "5"
.FaceId = 5
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt6
.Caption = "6"
.FaceId = 6
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt7
.Caption = "7"
.FaceId = 7
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt8
.Caption = "8"
.FaceId = 8
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt9
.Caption = "9"
.FaceId = 9
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt10
.Caption = "10"
.FaceId = 10
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt11
.Caption = "11"
.FaceId = 11
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt12
.Caption = "12"
.FaceId = 12
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt13
.Caption = "13"
.FaceId = 13
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt14
.Caption = "14"
.FaceId = 14
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt15
.Caption = "15"
.FaceId = 15
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt16
.Caption = "16"
.FaceId = 16
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt17
.Caption = "17"
.FaceId = 17
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt18
.Caption = "18"
.FaceId = 18
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt19
.Caption = "19"
.FaceId = 19
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt20
.Caption = "20"
.FaceId = 20
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt21
.Caption = "21"
.FaceId = 21
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt22
.Caption = "22"
.FaceId = 22
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt23
.Caption = "23"
.FaceId = 23
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt24
.Caption = "24"
.FaceId = 24
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt25
.Caption = "25"
.FaceId = 25
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt26
.Caption = "26"
.FaceId = 26
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt27
.Caption = "27"
.FaceId = 27
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt28
.Caption = "28"
.FaceId = 28
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt29
.Caption = "29"
.FaceId = 29
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt30
.Caption = "30"
.FaceId = 30
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt31
.Caption = "31"
.FaceId = 31
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt32
.Caption = "32"
.FaceId = 32
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt33
.Caption = "33"
.FaceId = 33
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt34
.Caption = "34"
.FaceId = 34
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt35
.Caption = "35"
.FaceId = 35
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt36
.Caption = "36"
.FaceId = 36
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt37
.Caption = "37"
.FaceId = 37
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt38
.Caption = "38"
.FaceId = 38
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt39
.Caption = "39"
.FaceId = 39
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt40
.Caption = "40"
.FaceId = 40
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt41
.Caption = "41"
.FaceId = 41
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt42
.Caption = "42"
.FaceId = 42
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt43
.Caption = "43"
.FaceId = 43
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt44
.Caption = "44"
.FaceId = 44
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt45
.Caption = "45"
.FaceId = 45
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt46
.Caption = "46"
.FaceId = 46
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt47
.Caption = "47"
.FaceId = 47
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt48
.Caption = "48"
.FaceId = 48
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt49
.Caption = "49"
.FaceId = 49
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt50
.Caption = "50"
.FaceId = 50
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt51
.Caption = "51"
.FaceId = 51
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt52
.Caption = "52"
.FaceId = 52
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt53
.Caption = "53"
.FaceId = 53
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt54
.Caption = "54"
.FaceId = 54
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt55
.Caption = "55"
.FaceId = 55
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt56
.Caption = "56"
.FaceId = 56
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt57
.Caption = "57"
.FaceId = 57
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt58
.Caption = "58"
.FaceId = 58
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt59
.Caption = "59"
.FaceId = 59
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt60
.Caption = "60"
.FaceId = 60
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt61
.Caption = "61"
.FaceId = 61
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt62
.Caption = "62"
.FaceId = 62
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt63
.Caption = "63"
.FaceId = 63
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt64
.Caption = "64"
.FaceId = 64
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt65
.Caption = "65"
.FaceId = 65
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt66
.Caption = "66"
.FaceId = 66
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt67
.Caption = "67"
.FaceId = 67
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt68
.Caption = "68"
.FaceId = 68
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt69
.Caption = "69"
.FaceId = 69
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt70
.Caption = "70"
.FaceId = 70
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt71
.Caption = "71"
.FaceId = 71
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt72
.Caption = "72"
.FaceId = 72
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt73
.Caption = "73"
.FaceId = 73
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt74
.Caption = "74"
.FaceId = 74
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt75
.Caption = "75"
.FaceId = 75
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt76
.Caption = "76"
.FaceId = 76
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt77
.Caption = "77"
.FaceId = 77
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt78
.Caption = "78"
.FaceId = 78
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt79
.Caption = "79"
.FaceId = 79
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt80
.Caption = "80"
.FaceId = 80
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt81
.Caption = "81"
.FaceId = 81
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt82
.Caption = "82"
.FaceId = 82
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt83
.Caption = "83"
.FaceId = 83
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt84
.Caption = "84"
.FaceId = 84
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt85
.Caption = "85"
.FaceId = 85
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt86
.Caption = "86"
.FaceId = 86
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt87
.Caption = "87"
.FaceId = 87
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt88
.Caption = "88"
.FaceId = 88
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt89
.Caption = "89"
.FaceId = 89
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt90
.Caption = "90"
.FaceId = 90
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt91
.Caption = "91"
.FaceId = 91
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt92
.Caption = "92"
.FaceId = 92
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt93
.Caption = "93"
.FaceId = 93
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt94
.Caption = "94"
.FaceId = 94
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt95
.Caption = "95"
.FaceId = 95
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt96
.Caption = "96"
.FaceId = 96
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt97
.Caption = "97"
.FaceId = 97
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt98
.Caption = "98"
.FaceId = 98
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt99
.Caption = "99"
.FaceId = 99
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt100
.Caption = "100"
.FaceId = 100
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt101
.Caption = "101"
.FaceId = 101
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt102
.Caption = "102"
.FaceId = 102
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt103
.Caption = "103"
.FaceId = 103
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt104
.Caption = "104"
.FaceId = 104
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt105
.Caption = "105"
.FaceId = 105
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt106
.Caption = "106"
.FaceId = 106
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt107
.Caption = "107"
.FaceId = 107
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt108
.Caption = "108"
.FaceId = 108
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt109
.Caption = "109"
.FaceId = 109
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt110
.Caption = "110"
.FaceId = 110
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt111
.Caption = "111"
.FaceId = 111
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt112
.Caption = "112"
.FaceId = 112
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt113
.Caption = "113"
.FaceId = 113
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt114
.Caption = "114"
.FaceId = 114
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt115
.Caption = "115"
.FaceId = 115
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt116
.Caption = "116"
.FaceId = 116
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt117
.Caption = "117"
.FaceId = 117
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt118
.Caption = "118"
.FaceId = 118
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt119
.Caption = "119"
.FaceId = 119
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt120
.Caption = "120"
.FaceId = 120
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt121
.Caption = "121"
.FaceId = 121
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt122
.Caption = "122"
.FaceId = 122
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt123
.Caption = "123"
.FaceId = 123
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt124
.Caption = "124"
.FaceId = 124
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt125
.Caption = "125"
.FaceId = 125
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt126
.Caption = "126"
.FaceId = 126
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt127
.Caption = "127"
.FaceId = 127
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt128
.Caption = "128"
.FaceId = 128
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt129
.Caption = "129"
.FaceId = 129
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt130
.Caption = "130"
.FaceId = 130
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt131
.Caption = "131"
.FaceId = 131
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt132
.Caption = "132"
.FaceId = 132
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt133
.Caption = "133"
.FaceId = 133
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt134
.Caption = "134"
.FaceId = 134
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt135
.Caption = "135"
.FaceId = 135
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt136
.Caption = "136"
.FaceId = 136
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt137
.Caption = "137"
.FaceId = 137
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt138
.Caption = "138"
.FaceId = 138
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt139
.Caption = "139"
.FaceId = 139
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt140
.Caption = "140"
.FaceId = 140
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt141
.Caption = "141"
.FaceId = 141
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt142
.Caption = "142"
.FaceId = 142
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt143
.Caption = "143"
.FaceId = 143
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt144
.Caption = "144"
.FaceId = 144
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt145
.Caption = "145"
.FaceId = 145
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt146
.Caption = "146"
.FaceId = 146
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt147
.Caption = "147"
.FaceId = 147
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt148
.Caption = "148"
.FaceId = 148
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt149
.Caption = "149"
.FaceId = 149
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt150
.Caption = "150"
.FaceId = 150
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt151
.Caption = "151"
.FaceId = 151
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt152
.Caption = "152"
.FaceId = 152
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt153
.Caption = "153"
.FaceId = 153
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt154
.Caption = "154"
.FaceId = 154
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt155
.Caption = "155"
.FaceId = 155
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt156
.Caption = "156"
.FaceId = 156
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt157
.Caption = "157"
.FaceId = 157
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt158
.Caption = "158"
.FaceId = 158
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt159
.Caption = "159"
.FaceId = 159
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt160
.Caption = "160"
.FaceId = 160
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt161
.Caption = "161"
.FaceId = 161
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt162
.Caption = "162"
.FaceId = 162
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt163
.Caption = "163"
.FaceId = 163
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt164
.Caption = "164"
.FaceId = 164
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt165
.Caption = "165"
.FaceId = 165
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt166
.Caption = "166"
.FaceId = 166
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt167
.Caption = "167"
.FaceId = 167
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt168
.Caption = "168"
.FaceId = 168
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt169
.Caption = "169"
.FaceId = 169
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt170
.Caption = "170"
.FaceId = 170
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt171
.Caption = "171"
.FaceId = 171
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt172
.Caption = "172"
.FaceId = 172
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt173
.Caption = "173"
.FaceId = 173
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt174
.Caption = "174"
.FaceId = 174
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt175
.Caption = "175"
.FaceId = 175
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt176
.Caption = "176"
.FaceId = 176
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt177
.Caption = "177"
.FaceId = 177
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt178
.Caption = "178"
.FaceId = 178
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt179
.Caption = "179"
.FaceId = 179
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt180
.Caption = "180"
.FaceId = 180
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt181
.Caption = "181"
.FaceId = 181
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt182
.Caption = "182"
.FaceId = 182
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt183
.Caption = "183"
.FaceId = 183
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt184
.Caption = "184"
.FaceId = 184
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt185
.Caption = "185"
.FaceId = 185
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt186
.Caption = "186"
.FaceId = 186
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt187
.Caption = "187"
.FaceId = 187
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt188
.Caption = "188"
.FaceId = 188
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt189
.Caption = "189"
.FaceId = 189
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt190
.Caption = "190"
.FaceId = 190
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt191
.Caption = "191"
.FaceId = 191
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt192
.Caption = "192"
.FaceId = 192
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt193
.Caption = "193"
.FaceId = 193
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt194
.Caption = "194"
.FaceId = 194
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt195
.Caption = "195"
.FaceId = 195
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt196
.Caption = "196"
.FaceId = 196
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt197
.Caption = "197"
.FaceId = 197
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt198
.Caption = "198"
.FaceId = 198
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt199
.Caption = "199"
.FaceId = 199
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt200
.Caption = "200"
.FaceId = 200
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt201
.Caption = "201"
.FaceId = 201
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt202
.Caption = "202"
.FaceId = 202
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt203
.Caption = "203"
.FaceId = 203
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt204
.Caption = "204"
.FaceId = 204
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt205
.Caption = "205"
.FaceId = 205
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt206
.Caption = "206"
.FaceId = 206
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt207
.Caption = "207"
.FaceId = 207
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt208
.Caption = "208"
.FaceId = 208
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt209
.Caption = "209"
.FaceId = 209
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt210
.Caption = "210"
.FaceId = 210
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt211
.Caption = "211"
.FaceId = 211
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt212
.Caption = "212"
.FaceId = 212
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt213
.Caption = "213"
.FaceId = 213
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt214
.Caption = "214"
.FaceId = 214
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt215
.Caption = "215"
.FaceId = 215
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt216
.Caption = "216"
.FaceId = 216
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt217
.Caption = "217"
.FaceId = 217
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt218
.Caption = "218"
.FaceId = 218
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt219
.Caption = "219"
.FaceId = 219
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt220
.Caption = "220"
.FaceId = 220
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt221
.Caption = "221"
.FaceId = 221
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt222
.Caption = "222"
.FaceId = 222
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt223
.Caption = "223"
.FaceId = 223
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt224
.Caption = "224"
.FaceId = 224
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt225
.Caption = "225"
.FaceId = 225
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt226
.Caption = "226"
.FaceId = 226
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt227
.Caption = "227"
.FaceId = 227
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt228
.Caption = "228"
.FaceId = 228
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt229
.Caption = "229"
.FaceId = 229
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt230
.Caption = "230"
.FaceId = 230
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt231
.Caption = "231"
.FaceId = 231
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt232
.Caption = "232"
.FaceId = 232
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt233
.Caption = "233"
.FaceId = 233
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt234
.Caption = "234"
.FaceId = 234
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt235
.Caption = "235"
.FaceId = 235
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt236
.Caption = "236"
.FaceId = 236
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt237
.Caption = "237"
.FaceId = 237
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt238
.Caption = "238"
.FaceId = 238
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With
With butt239
.Caption = "239"
.FaceId = 239
.Style = msoButtonIconAndCaption
.OnAction = "AA"
End With

tbar1.Visible = True
tbar2.Visible = True
tbar3.Visible = True
tbar4.Visible = True
tbar5.Visible = True
tbar6.Visible = True
tbar7.Visible = True
tbar8.Visible = True
tbar9.Visible = True
tbar10.Visible = True
tbar11.Visible = True
tbar12.Visible = True

End Sub

4。点击“VB编辑器”菜单中的“插入”—“模块”，在弹出的空白窗口中输入以下：

Public Sub AA()
MsgBox "功能还没有，别乱按！"
End Sub

5。关闭窗口，保存好EXCEL文件。

6。重新打开这个EXCEL文件，当然要允许宏运行。

7。看结果。

博客介绍

正文

通过VBA制造EXCEL的菜单2006-05-26 16:37:00

评论