之前《通过VBA制造EXCEL的菜单》的程序代码做了一大堆无用功，今天发现原来可以以这样更简单更好的代码来实现： 1。新建EXCEL文件，按“Alt”＋“F11”进入VB编辑器，点“ThisWorkBook”打开空白窗口，在其中输入以下代码： Const LineNum As Integer = 23 '按钮行数Const ListNum As Integer = 44 '按钮列数 Private Sub Workbook_BeforeClose(Cancel As Boolean)For jj = 1 To LineNum  DelName = "菜单" & jj  On Error Resume Next  Application.CommandBars(DelName).DeleteNextEnd Sub Private Sub Workbook_Open()For jj = 1 To LineNum  AddBars jjNextEnd Sub Public Sub AddBars(BarIndex)Dim tbar As CommandBarBarName = "菜单" & BarIndexSet tbar = Application.CommandBars.Add(Name:=BarName, Position:=msoBarBottom)tbar.Visible = TrueFor k = 1 To ListNum  On Error Resume Next  AddButton BarIndex, k, BarNameNextEnd Sub Public Sub AddButton(BarIndex, BtnIndex, BarName)Dim Btn As CommandBarButtonii = BarIndex * ListNum + BtnIndexButtonName = "按钮" & iiSet Btn = Application.CommandBars(BarName).Controls.AddWith Btn  .TooltipText = "ID:" & ii  .FaceId = iiEnd WithEnd Sub 保存文件后退出，再重新打开此EXCEL文件，点击“启用宏”按钮。出现一个壮观的画面。

评论