自定义EXCEL菜单

micch

菜单有了，具体的功能代码自己再写一下就行了

1. Const CommandbarName As String = "MenuBar0" '---菜单名称
   
2. Sub SetCustomMenu()
   
3.         Set HostApp = Application
   
4.         Dim myBar As CommandBar
   
5.         Dim myButton As CommandBarButton
   
6.         Dim capAr, fac, ccc
   
7.         On Error Resume Next
   
8.         HostApp.CommandBars(CommandbarName).Delete
   
9.         On Error GoTo 0
   
10.         Set myBar = HostApp.CommandBars.Add(Name:=CommandbarName, _
    
11.             Position:=msoBarTop, _
    
12.             MenuBar:=True, _
    
13.             Temporary:=True)
    
14.         capAr = [a1:c4] '''''   先把菜单名称写在单元格中
    
15.         fac = 157
    
16.         For Each ccc In Application.Transpose(capAr)
    
17.             Set myButton = myBar.Controls.Add(msoControlButton)
    
18.             myButton.Style = msoButtonIconAndCaption
    
19.             myButton.Caption = ccc
    
20.             myButton.OnAction = Left(ccc, 4) & "_" & Mid(ccc, 6)
    
21.             myButton.FaceId = fac
    
22.         Next
    
23.         myBar.Protection = msoBarNoMove + msoBarNoCustomize
    
24.         myBar.Visible = True
    
25.         With HostApp.CommandBars
    
26.             .LargeButtons = True
    
27.             .DisplayFonts = True
    
28.             .AdaptiveMenus = True
    
29.         End With
    
30.     End Sub
    
31. Sub 基础信息_学校信息()
    
32.     VBA.MsgBox "基础信息_学校信息"
    
33. End Sub
    
34. Sub 基础信息_班级信息()
    
35.     VBA.MsgBox "基础信息_班级信息"
    
36. End Sub
    
37. Sub 基础信息_库房信息()
    
38.     VBA.MsgBox "基础信息_库房信息"
    
39. End Sub
    
40. Sub 设备信息_配备标准()
    
41.     VBA.MsgBox "设备信息_配备标准"
    
42. End Sub
    
43. Sub 设备信息_历年数据()
    
44.     VBA.MsgBox "设备信息_历年数据"
    
45. End Sub
    
46. Sub 设备信息_今年数据()
    
47.     VBA.MsgBox "设备信息_今年数据"
    
48. End Sub
    
49. Sub 账目信息_总账()
    
50.     VBA.MsgBox "账目信息_总账"
    
51. End Sub
    
52. Sub 账目信息_明细账()
    
53.     VBA.MsgBox "账目信息_明细账"
    
54. End Sub
    
55. Sub 账目信息_综合报表()
    
56.     VBA.MsgBox "账目信息_综合报表"
    
57. End Sub
    
58. Sub 使用信息_领借用记录()
    
59.     VBA.MsgBox "使用信息_领借用记录"
    
60. End Sub
    
61. Sub 使用信息_归还记录()
    
62.     VBA.MsgBox "使用信息_归还记录"
    
63. End Sub
    
64. Sub 使用信息_报损记录()
    
65.     VBA.MsgBox "使用信息_报损记录"
    
66. End Sub
    
67. Public Sub DeletemyMenu()
    
68.     On Error Resume Next
    
69.     CommandBars(CommandbarName).Delete
    
70. End Sub

复制代码

Jerry谭悦

个人觉得做个加载项比较好，打开任意表格都可以使用。

黄水平

micch 发表于 2023-5-3 14:13
菜单有了，具体的功能代码自己再写一下就行了

非常感谢！