VBA menu的制作

最新推荐文章于 2022-01-06 19:12:40 发布
最新推荐文章于 2022-01-06 19:12:40 发布
阅读量1.8k 收藏 1
点赞数
分类专栏： 技术 文章标签： vba menu 报表 sql excel c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jiakw_1981/article/details/7399860
版权
  1. Sub 创建菜单项()
  2. Dim MenuObject  As CommandBarPopup
  3. Dim MenuItem  As  Object
  4. Call 删除菜单
  5. Set MenuObject =  Application.CommandBars( 1).Controls. Add( Type:=msoControlPopup, before:= 11, temporary:= True)
  6. MenuObject. Caption =  "泰星账务(&X)"
  7. Set MenuItem = MenuObject.Controls. Add( Type:=msoControlButton)
  8. MenuItem. Caption =  "刷新菜单"
  9. MenuItem.OnAction =  "刷新"
  10. Set MenuItem = MenuObject.Controls. Add( Type:=msoControlButton)
  11. MenuItem. Caption =  "8月份生产日报表"
  12. MenuItem.OnAction =  "打开8月份生产日报表"
  13. Set MenuItem = MenuObject.Controls. Add( Type:=msoControlButton)
  14. MenuItem. Caption =  "9月份生产日报表"
  15. MenuItem.OnAction =  "打开9月份生产日报表"
  16. Set MenuItem = MenuObject.Controls. Add( Type:=msoControlButton)
  17. MenuItem. Caption =  "10月份生产日报表"
  18. MenuItem.OnAction =  "打开10月份生产日报表"
  19. Set MenuItem = MenuObject.Controls. Add( Type:=msoControlButton)
  20. MenuItem. Caption =  "11月份生产日报表"
  21. MenuItem.OnAction =  "打开11月份生产日报表"
  22. Set MenuItem = MenuObject.Controls. Add( Type:=msoControlButton)
  23. MenuItem. Caption =  "12月份生产日报表"
  24. MenuItem.OnAction =  "打开12月份生产日报表"
  25. Set Menu = MenuObject.Controls. Add( Type:=msoControlPopup)
  26. Menu. Caption =  "2011年账务"
  27. Set obj = Menu.Controls. Add( Type:=msoControlButton)
  28. obj. Caption =  "1月份日报表"
  29. obj.OnAction =  "打开11年1月份日报表"
  30. Set obj = Menu.Controls. Add( Type:=msoControlButton)
  31. obj. Caption =  "2月份日报表"
  32. obj.OnAction =  "打开11年2月份日报表"
  33. Set obj = Menu.Controls. Add( Type:=msoControlButton)
  34. obj. Caption =  "3月份日报表"
  35. obj.OnAction =  "打开11年3月份日报表"
  36. Set obj = Menu.Controls. Add( Type:=msoControlButton)
  37. obj. Caption =  "4月份日报表"
  38. obj.OnAction =  "打开11年4月份日报表"
  39. Set obj = Menu.Controls. Add( Type:=msoControlButton)
  40. obj. Caption =  "5月份日报表"
  41. obj.OnAction =  "打开11年5月份日报表"
  42. Set obj = Menu.Controls. Add( Type:=msoControlPopup)
  43. obj. Caption =  "6月份日报表"
  44. Set MenuItem = obj.Controls. Add( Type:=msoControlButton)
  45. With MenuItem
  46.     . Caption =  "查询(&F)..."
  47.     .FaceId =  1849
  48.     .OnAction =  "打开查询"
  49. End  With
  50. Set MenuItem = obj.Controls. Add( Type:=msoControlButton)
  51. With MenuItem
  52.     . Caption =  "合并"
  53.     .FaceId =  1826
  54.     .OnAction =  "合并"
  55. End  With
  56. Set MenuItem = obj.Controls. Add( Type:=msoControlButton)
  57. With MenuItem
  58.     . Caption =  "生成工资表"
  59.     .FaceId =  1742
  60.     .OnAction =  "生成工资表"
  61. End  With
  62. Set Menu =  Nothing
  63. Set MenuItem =  Nothing
  64. Set MenuObject =  Nothing
  65. End  Sub
  66. Sub 打开查询()
  67. Sheets( "工资明细表查询"). Select
  68. 删除快捷菜单
  69. UserForm1. Show
  70. End  Sub
  71. Sub 删除菜单()
  72. On  Error  Resume  Next
  73. Application.CommandBars( 1).Controls( "泰星账务(&X)"). Delete
  74. On  Error GoTo  0
  75. End  Sub
  76. Sub 生成工资表()
  77. Dim x  As  Integer
  78. For x =  1  To Sheets. Count
  79.      If Sheets(x). Name =  "工资表"  Then
  80.         GoTo  100
  81.      End  If
  82. Next x
  83. Set NewSheet = Worksheets. Add
  84. NewSheet. Name =  "工资表"
  85. 100:
  86. With Sheets( "工资表")
  87.     . Move After:=Sheets(Sheets. Count)
  88.     .Cells.ClearContents
  89.     .[a1] =  "姓名": .[b1] =  "数量": .[c1] =  "金额"
  90. End  With
  91. Dim objcn  As  New ADODB.Connection
  92. objcn. Open  "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook. FullName
  93. sql1 =  "select 姓名,数量,金额 from [下料车间$]"
  94. sql2 =  "select 姓名,数量,金额 from [五金车间$]"
  95. sql3 =  "select 姓名,数量,金额 from [针车车间$]"
  96. sql4 =  "select 姓名,数量,金额 from [油边车间$]"
  97. sql5 =  "select 姓名,数量,金额 from [组装车间$]"
  98. Sql = sql1 &  " union all " & sql2 &  " union all " & sql3 &  " union all " & sql4 &  " union all " & sql5
  99. sql6 =  "select 姓名,sum(数量),sum(金额) from (" & Sql &  ") group by 姓名 order by 姓名"
  100. Sheets( "工资表").[a2].CopyFromRecordset objcn.Execute(sql6)
  101. objcn. Close
  102. Set objcn =  Nothing
  103. End  Sub
  104. Sub 合并()
  105. Sheets( "工资明细表查询"). Select
  106. Dim objcn  As  New ADODB.Connection
  107. Dim hs  As  Integer
  108. Application.ScreenUpdating =  False
  109. Cells.ClearContents
  110. [a1] =  "日期": [b1] =  "订单号": [c1] =  "货号"
  111. [d1] =  "工序": [e1] =  "单价": [f1] =  "数量": [g1] =  "金额"
  112. [h1] =  "姓名": [i1] =  "备注"
  113. objcn. Open  "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook. FullName
  114. Sql =  "select * from [下料车间$] union all select * from [五金车间$] union all select * from [针车车间$] union all select * from [组装车间$]  union all select * from [油边车间$]"
  115. [a2].CopyFromRecordset objcn.Execute(Sql)
  116. objcn. Close
  117. Set objcn =  Nothing
  118. hs = [a65536]. End(xlUp).Row +  1
  119. Cells(hs,  1) =  "合计"
  120. Cells(hs,  6).Formula =  "=subtotal(9,f2:f" & hs -  1 &  ")"
  121. Cells(hs,  7).Formula =  "=SUBTOTAL(9,G2:G" & hs -  1 &  ")"
  122. Application.ScreenUpdating =  True
  123. End  Sub
  124. Sub 添加快捷菜单()
  125. On  Error  Resume  Next
  126. Application.CommandBars( "cell").Controls( "工资查询"). Delete
  127. Application.CommandBars( "cell").Controls( "生成工资表"). Delete
  128. Dim CB  As CommandBarControl
  129. Dim CC  As CommandBarControl
  130. Dim CA  As  Long
  131. CA =  Application.CommandBars( "cell").Controls( "剪切(&T)"). Index
  132. Set CB =  Application.CommandBars( "cell").Controls. Add(before:=CA, temporary:= True)
  133. CB. Caption =  "工资查询"
  134. CB.FaceId =  1849
  135. CB.OnAction =  "打开查询"
  136. Set CC =  Application.CommandBars( "cell").Controls. Add(before:=CA, temporary:= True)
  137. CC. Caption =  "生成工资表"
  138. CC.FaceId =  1742
  139. CC.OnAction =  "生成工资表"
  140. End  Sub
  141. Sub 删除快捷菜单()
  142. On  Error  Resume  Next
  143. Application.CommandBars( "cell").Controls( "工资查询"). Delete
  144. Application.CommandBars( "cell").Controls( "生成工资表"). Delete
  145. End  Sub
  146. Sub 刷新()
  147. Application.Run  "创建菜单.xla!创建菜单"
  148. End  Sub
jiakw_1981
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
在Excel建立窗体，能建立下拉菜单，VBA菜单的使用及原代码。
12-18
在建立窗体，能建立下拉菜单。VBA窗体中自建立菜单，使用及原代码。
VBA添加菜单
weixin_34400525的博客
05-10 263
Sub CreateMenu() Dim menuBar As CommandBar Set menuBar = Application.CommandBars("Worksheet Menu Bar") menuBar.Reset Dim menu As CommandBarPopup Set ...
在VBA窗体中制作菜单
03-12
office 办公实用实例 - 在excel VBA窗体中制作菜单.
自动生成VBA窗体菜单
08-16
自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As MSForms.UserForm '工作窗口 Private WithEvents MenuBar As MSForms.Image '菜单栏 Private BackMenu_BackGroud As MSForms.Image '菜单背景图片 Private BackMenu_Caption As MSForms.Label '菜单标题标签 Private Const DISTANCE As Integer = 5 '菜单与左边框距离 Private Const MENUTOP As Integer = 2 '菜单项顶点Y轴位置 Private Const MENUHEIGHT As Integer = 14 '菜单项高度 Private intIndex As Integer '索引变量 Private sAction As String '宏名称变量 Private Property Let Index(N As Byte) '指定索引属性 intIndex = N End Property Private Property Get Index() As Byte '获得陇望蜀索引属性 Index = intIndex End Property Private Property Let OnAction(sAct As String) '行为属性 sAction = sAct End Property Private Property Get OnAction() As String OnAction = sAction End Property Public Sub AddMenu(wform As MSForms.UserForm, sCaption As String, sAction As String, Optional Acc As String = vbNullString) Dim MenuLeft As Single, MenuWidth As Single '由两个标签和一个图形控件组成一个主菜单项 MenuCount = MenuCount + 1 '主菜单项总数加1 Index = MenuCount '设置索引 Set WorkForm = wform With WorkForm Set MenuBar = .FormMenuBar Set BackMenu_Caption = .Controls.Add("forms.label.1") '添加一个标签,显示菜单标题 With BackMenu_Caption .Accelerator = Acc .AutoSize = True .BackStyle = fmBackStyleTransparent .Caption = sCaption .Font = "宋体" .Font.Size = 9 .Name = "BackMenu_Caption" & MenuCount .TextAlign = fmTextAlignCenter .Top = MENUTOP + 3 .WordWrap = False .Visible = True End With If MenuCount = 1 Then MenuLeft = DISTANCE Else With .Controls("BackMenu_Caption" & MenuCount - 1) MenuLeft = .Left + .Width End With End If MenuWidth = BackMenu_Caption.Width + 10 Set BackMenu_BackGroud = .Controls.Add("forms.image.1") '添加一个image,作为背景图片 With BackMenu_BackGroud .Name = "BackMenu_BackGroud" & MenuCount .BorderStyle = fmBorderStyleNone .Move MenuLeft, MENUTOP, MenuWidth, MENUHEIGHT .BackStyle = fmBackStyleTransparent .PictureSizeMode = fmPictureSizeModeStretch BackMenu_Caption.AutoSize = False BackMenu_Caption.Left = .Left BackMenu_Caption.Width = .Width End With BackMenu_Caption.ZOrder '将标签置前 Set MenuBar_MenuItem = .Controls.Add("forms.label.1") '添加一个Label,用于触发事件 With MenuBar_MenuItem .Name = "MenuBar_MenuItem" & MenuCount .BorderStyle = fmBorderStyleNone .BackStyle = fmBackStyleTransparent With BackMenu_BackGroud MenuBar_MenuItem.Move .Left, .Top, .Width, .Height End With End With End With OnAction = sAction End Sub Private Sub MenuBar_MenuItem_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then bMenuSelected = True: Menu_Select End Sub Private Sub MenuBar_Click() UnSelectLastMenu bMenuSelected = False End Sub Private Sub MenuBar_MenuItem_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) UnSelectLastMenu Call Menu_Select End Sub Private Sub MenuBar_MouseMove1(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not bMenuSelected Then UnSelectLastMenu End Sub Private Sub WorkForm_Click() '窗体单击时 UnSelectLastMenu bMenuSelected = False End Sub Private Sub WorkForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not bMenuSelected Then UnSelectLastMenu '窗体 End Sub Private Sub Menu_Select() '选择菜单 On Error Resume Next Dim Pt_Menu_RightBottom As POINTAPI, Pt_Menu_LeftTop As POINTAPI With WorkForm UnSelectLastMenu Set LastSelect_Menu = BackMenu_BackGroud With BackMenu_BackGroud .BorderStyle = fmBorderStyleSingle .BorderColor = RGB(0, 0, 128) .BackStyle = fmBackStyleOpaque If bMenuSelected = False Then WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HFFC0C0 Else WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HE0E0E0 pt.X = MenuBar_MenuItem.Left * 1.33 pt.Y = (MenuBar_MenuItem.Top + MenuBar_MenuItem.Height) * 1.33 + 3 ClientToScreen hForm, pt If OnAction "" Then Application.Run OnAction End If End If End With End With End Sub Private Sub UnSelectLastMenu() '取消上次选择 If Not LastSelect_Menu Is Nothing Then With LastSelect_Menu .Picture = LoadPicture() .BackStyle = fmBackStyleTransparent .BorderStyle = fmBorderStyleNone End With End If End Sub '********本模块结束********** '*************************** '* 菜单执行模块 * '*************************** Public Type POINTAPI X As Long Y As Long End Type Public Declare Function FindWindow Lib "user32.dll" Alias"FindWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function ClientToScreen Lib"user32"(ByVal hwnd As Long, lpPoint As POINTAPI) As Long Public Popup_Menu As CommandBar '指定弹出式菜单 Public LastSelect_Menu As MSForms.Image '最后选择的菜单 Public MenuCount As Integer '子菜单数量 Public hForm As Long '窗口句柄 Public intLevel As Integer '级别标识,用于设置Radio菜单(游戏菜单中:初级,中级,高级) Public bAbortEnabled As Boolean '标识放弃菜单项是否可用 Public bItemCheck As Boolean '标识音效菜单是否CheckOn Public bMenuSelected As Boolean '标识菜单是否点击 Public pt As POINTAPI '定义点 Public faceid As Integer '图标ID Public faceidselect As Integer '选择的图标 Public fistid As Integer '第一个图标号 Public lastid As Integer '最后一个图标号 Public selectrow,selectcol as integer Public Mcro(50) AS String SUB 文件() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "打开 ", "", False, True,33,"" AddCustomCommandBarPopup1 "新建 ", "BB", False, True,18,"" AddCustomCommandBarPopup2 ("另存为 ") Set cmb = Application.CommandBars("CELL").Controls("另存为 ") AddCustomCommandBarPopup3 cmb, "OFFICE 97-2003文件 ", "DD", False, True, 3, "" Set cmb = Application.CommandBars("CELL").Controls("另存为 ") AddCustomCommandBarPopup4 cmb, "OFFICE 2007工作表 " Set cmb = Application.CommandBars("CELL").Controls("另存为 ").Controls("OFFICE 2007工作表 ") AddCustomCommandBarPopup3 cmb, "office 2007启用宏的工作表 ", "FF", False, True, 0, "" Set cmb = Application.CommandBars("CELL").Controls("另存为 ").Controls("OFFICE 2007工作表 ") AddCustomCommandBarPopup3 cmb, "OFFICE 2007工作表 ", "GG", False, True, 253, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 公式() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "文本 ", "WB", False, True,7,"" AddCustomCommandBarPopup2 ("名称 ") Set cmb = Application.CommandBars("CELL").Controls("名称 ") AddCustomCommandBarPopup3 cmb, "定义 ", "DY", False, True, 0, "" Set cmb = Application.CommandBars("CELL").Controls("名称 ") AddCustomCommandBarPopup4 cmb, "单元格 " Set cmb = Application.CommandBars("CELL").Controls("名称 ").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "合并 ", "HB", False, True, 592, "" Set cmb = Application.CommandBars("CELL").Controls("名称 ").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "从属 ", "CS", False, True, 564, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 开发工具() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "插入 ", "CR", False, True,548,"" AddCustomCommandBarPopup1 "模式 ", "MS", False, True,590,"" AddCustomCommandBarPopup2 ("宏 ") Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "录制宏 ", "LZH", False, True, 205, "" Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "安全性 ", "AQX", False, True, 279, "" Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "查看代码 ", "CKDM", False, True, 289, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 窗口() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "并列比较 ", "BLBJ", False, True,250,"" AddCustomCommandBarPopup1 "冻结 ", "DJ", False, True,288,"" AddCustomCommandBarPopup1 "隐藏 ", "YC", False, True,237,"" AddCustomCommandBarPopup1 "拆分 ", "CF", False, True,292,"" AddCustomCommandBarPopup1 "取消冻结 ", "QXDJ", False, True,232,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 工具() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "拼写检查 ", "PXJC", False, True,246,"" AddCustomCommandBarPopup2 ("保护 ") Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "保护工作表 ", "BHGZB", False, True, 277, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "保护工作薄 ", "BHGZBB", False, True, 312, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "工作表菜单栏 ", "gzbcdl", False, True, 142, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "图表菜单栏 ", "tbgjl", False, True, 164, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 常用() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "格式 ", "gs", False, True,108,"" AddCustomCommandBarPopup1 "数据透视表 ", "sjtsb", False, True,125,"" AddCustomCommandBarPopup1 "图表 ", "tb", False, True,127,"" AddCustomCommandBarPopup1 "审阅 ", "sy", False, True,124,"" AddCustomCommandBarPopup1 "窗体 ", "ct", False, True,128,"" AddCustomCommandBarPopup1 "停止录制 ", "tzlz", False, True,185,"" AddCustomCommandBarPopup2 ("外部数据 ") Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "公式审核 ", "gssh", False, True, 129, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "全屏显示 ", "qpxs", False, True, 130, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "循环引用 ", "xhye", False, True, 132, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup4 cmb, "VisualBasic " Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "Web ", "web", False, True, 173, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "控件工具箱 ", "kjgjx", False, True, 174, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "退出设计模式 ", "tcsjms", False, True, 162, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "刷新 ", "sx", False, True, 165, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "监视窗口 ", "jsck", False, True, 168, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "数据透视表字段列表 ", "sjtsbzdb", False, True, 170, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "边框 ", "bk", False, True, 178, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "保护 ", "bh", False, True, 160, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "文本到语音 ", "wbdyy", False, True, 164, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 列表() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "并排比较 ", "bpbj1", False, True,180,"" AddCustomCommandBarPopup1 "绘图 ", "bpbj2", False, True,182,"" AddCustomCommandBarPopup1 "数据透视图菜单 ", "bpbj3", False, True,184,"" AddCustomCommandBarPopup2 ("工作簿标签 ") AddCustomCommandBarPopup2 ("单元格 ") Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "列 ", "bpbj6", False, True, 190, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "行 ", "bpbj7", False, True, 192, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "单元格 ", "bpbj8", False, True, 194, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "柱形图 ", "bpbj9", False, True, 196, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "行 ", "bpbj10", False, True, 198, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup4 cmb, "工作表 " Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "XLM 单元格 ", "bpbj12", False, True, 202, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "文档 ", "bpbj13", False, True, 204, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "桌面 ", "bpbj14", False, True, 206, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "非默认拖放 ", "bpbj15", False, True, 208, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "自动填充 ", "bpbj16", False, True, 210, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "按钮 ", "bpbj17", False, True, 212, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "对话框 ", "bpbj18", False, True, 214, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 序列() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "图形区 ", "bpbj20", False, True,218,"" AddCustomCommandBarPopup1 "基底和墙纸 ", "bpbj21", False, True,220,"" AddCustomCommandBarPopup1 "趋势线 ", "bpbj22", False, True,222,"" AddCustomCommandBarPopup1 "图表 ", "bpbj23", False, True,224,"" AddCustomCommandBarPopup1 "设置数据系列格式 ", "bpbj24", False, True,226,"" AddCustomCommandBarPopup2 ("设置数据轴格式 ") Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "设置图例项格式 ", "bpbj26", False, True, 230, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "编辑栏 ", "bpbj27", False, True, 232, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "数据透视表上下文菜单 ", "bpbj28", False, True, 234, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "查询 ", "bpbj29", False, True, 236, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "查询布局 ", "bpbj30", False, True, 238, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup4 cmb, "自动计算 " Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ").Controls("自动计算 ") AddCustomCommandBarPopup3 cmb, "对象/图形区 ", "bpbj32", False, True, 242, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ").Controls("自动计算 ") AddCustomCommandBarPopup3 cmb, "标题栏(图表) ", "bpbj33", False, True, 244, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 框架() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "数据透视图快捷菜单 ", "bpbj35", False, True,248,"" AddCustomCommandBarPopup1 "拼音信息 ", "bpbj36", False, True,250,"" AddCustomCommandBarPopup1 "自动合计 ", "bpbj37", False, True,252,"" AddCustomCommandBarPopup1 "选择性粘贴下拉框 ", "bpbj38", False, True,254,"" AddCustomCommandBarPopup2 ("查找格式 ") Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "替换格式 ", "bpbj40", False, True, 258, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域快捷菜单 ", "bpbj41", False, True, 260, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域布局快捷菜单 ", "bpbj42", False, True, 262, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "XML 区域快捷菜单 ", "bpbj43", False, True, 264, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域布局快捷菜单 ", "bpbj44", False, True, 266, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "艺术字 ", "bpbj45", False, True, 268, "" AddCustomCommandBarPopup2 ("图片 ") Set cmb = Application.CommandBars("CELL").Controls("图片 ") AddCustomCommandBarPopup3 cmb, "阴影设置 ", "bpbj47", False, True, 272, "" AddCustomCommandBarPopup2 ("三维设置 ") Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "绘图画布 ", "bpbj49", False, True, 276, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "组织结构图 ", "bpbj50", False, True, 278, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "图示 ", "bpbj51", False, True, 280, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "墨迹绘图与书写 ", "bpbj52", False, True, 282, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "墨迹注释 ", "bpbj53", False, True, 284, "" AddCustomCommandBarPopup2 ("边框 ") Set cmb = Application.CommandBars("CELL").Controls("边框 ") AddCustomCommandBarPopup3 cmb, "边框 ", "bpbj55", False, True, 288, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ") AddCustomCommandBarPopup4 cmb, "绘图边框 " Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "图表类型 ", "bpbj57", False, True, 292, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "图案 ", "bpbj58", False, True, 294, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "字体颜色 ", "bpbj59", False, True, 296, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 填充颜色() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "线条颜色 ", "bpbj61", False, True,300,"" AddCustomCommandBarPopup2 ("绘图与书写笔 ") Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "批注笔 ", "bpbj63", False, True, 304, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "绘图和书写笔 ", "bpbj64", False, True, 306, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "注释笔 ", "bpbj65", False, True, 308, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "叠放次序 ", "bpbj66", False, True, 310, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "微移 ", "bpbj67", False, True, 312, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "对齐或分布 ", "bpbj68", False, True, 314, "" AddCustomCommandBarPopup2 ("旋转或翻转 ") Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ") AddCustomCommandBarPopup3 cmb, "直线 ", "bpbj70", False, True, 318, "" Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ") AddCustomCommandBarPopup4 cmb, "连接符 " Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ").Controls("连接符 ") AddCustomCommandBarPopup3 cmb, "自选图形 ", "bpbj72", False, True, 322, "" Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ").Controls("连接符 ") AddCustomCommandBarPopup3 cmb, "标注 ", "bpbj73", False, True, 324, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 流程图() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "箭头总汇 ", "bpbj75", False, True,328,"" AddCustomCommandBarPopup1 "星与旗帜 ", "bpbj76", False, True,330,"" AddCustomCommandBarPopup1 "基本形状 ", "bpbj77", False, True,332,"" AddCustomCommandBarPopup1 "插入形状 ", "bpbj78", False, True,334,"" AddCustomCommandBarPopup2 ("形状 ") Set cmb = Application.CommandBars("CELL").Controls("形状 ") AddCustomCommandBarPopup3 cmb, "非活动图表 ", "bpbj80", False, True, 338, "" Set cmb = Application.CommandBars("CELL").Controls("形状 ") AddCustomCommandBarPopup3 cmb, "Excel 控件 ", "bpbj81", False, True, 340, "" AddCustomCommandBarPopup1 "曲线 ", "bpbj82", False, True,342,"" AddCustomCommandBarPopup1 "曲线结点 ", "bpbj83", False, True,344,"" AddCustomCommandBarPopup1 "曲线段 ", "bpbj84", False, True,346,"" AddCustomCommandBarPopup1 "图片上下文菜单 ", "bpbj85", False, True,348,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB OLE对象() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "ActiveX 控件 ", "bpbj87", False, True,352,"" AddCustomCommandBarPopup1 "艺术字上下文菜单 ", "bpbj88", False, True,354,"" AddCustomCommandBarPopup1 "旋转方式 ", "bpbj89", False, True,356,"" AddCustomCommandBarPopup1 "连接符 ", "bpbj90", False, True,358,"" AddCustomCommandBarPopup1 "脚本标记快捷菜单 ", "bpbj91", False, True,360,"" AddCustomCommandBarPopup1 "Canvas Popup ", "bpbj92", False, True,362,"" AddCustomCommandBarPopup1 "Organization Chart Popup ", "bpbj93", False, True,364,"" AddCustomCommandBarPopup2 ("图表 ") Set cmb = Application.CommandBars("CELL").Controls("图表 ") AddCustomCommandBarPopup3 cmb, "选择 ", "bpbj95", False, True, 368, "" Set cmb = Application.CommandBars("CELL").Controls("图表 ") AddCustomCommandBarPopup4 cmb, "版式 " Set cmb = Application.CommandBars("CELL").Controls("图表 ").Controls("版式 ") AddCustomCommandBarPopup3 cmb, "符号栏 ", "bpbj97", False, True, 372, "" Set cmb = Application.CommandBars("CELL").Controls("图表 ").Controls("版式 ") AddCustomCommandBarPopup3 cmb, "任务窗格 ", "bpbj98", False, True, 374, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 添加命令() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "内置菜单 ", "bpbj100", False, True,378,"" AddCustomCommandBarPopup1 "剪贴板 ", "bpbj101", False, True,380,"" AddCustomCommandBarPopup1 "信封 ", "bpbj102", False, True,382,"" AddCustomCommandBarPopup1 "联机会议 ", "bpbj103", False, True,384,"" AddCustomCommandBarPopup1 "SnagIt ", "bpbj104", False, True,386,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 关于() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "我的VBA ", "WDVBA", False, True,400,"" AddCustomCommandBarPopup1 "帮助 ", "BZ", False, True,402,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB Public Sub ClearBar() '清除Cell弹出式菜单中菜单项 Dim ctr As CommandBarControl With Popup_Menu .Enabled = True For Each ctr In .Controls ctr.Delete Next End With End Sub Sub RemoveCustomMenu() '恢复系统菜单的各弹出菜单 Application.CommandBars("CELL").Reset End Sub Sub clear_menu() Dim cmb As Object For Each cmb In Application.CommandBars("cell").Controls Application.CommandBars("cell").Controls(cmb.Caption).Delete Next End Sub Sub AddCustomCommandBarPopup1(Caption As String, Macro As String, NewGroup As Boolean, Enable As Boolean, FId As Integer, ShortT As String) '添加一级菜单选项 Dim cbb As CommandBarButton Set cbb = Application.CommandBars("CELL").Controls.Add(msoControlButton) cbb.Caption = Caption If FId > 0 Then cbb.faceid = FId If ShortT "" Then cbb.ShortcutText = ShortT cbb.OnAction = Macro cbb.BeginGroup = NewGroup cbb.Enabled = Enable End Sub Function AddCustomCommandBarPopup2(Caption As String) As CommandBarControl '添加子菜单项 Dim cmb As CommandBarControl Set cmb = Application.CommandBars("CELL").Controls.Add(msoControlPopup) cmb.Caption = Caption cmb.Visible = True Set AddCustomCommandBarPopup2 = cmb End Function Sub AddCustomCommandBarPopup3(cmb As Object, Caption As String, Macro As String, NewGroup As Boolean, Enable As Boolean, FId As Integer, ShortT As String) '添加一级菜单选项 Dim cbc As CommandBarButton Set cbc = cmb.Controls.Add(msoControlButton) cbc.Caption = Caption If FId > 0 Then cbc.faceid = FId If ShortT "" Then cbc.ShortcutText = ShortT cbc.OnAction = Macro cbc.BeginGroup = NewGroup cbc.Enabled = Enable End Sub Function AddCustomCommandBarPopup4(cmd As CommandBarControl, Caption As String) As CommandBarControl '添加子菜单项 Dim cme As CommandBarControl Set cme = cmd.Controls.Add(msoControlPopup) cme.Caption = Caption cme.Visible = True Set AddCustomCommandBarPopup4 = cme End Function '********本模块结束********** '*************************** '* 窗口模块 * '*************************** Private menu(1 To 50) As New Menu_Class '定义50个cMenu菜单类型 Private Sub UserForm_Initialize() hForm = FindWindow(vbNullString, Me.Caption) '程序中需要用到窗口句柄,先获得它 MenuCount = 0 Set Popup_Menu = Application.CommandBars("Cell") '程序中需指定一个弹出式菜单,我们指定为单元格右键菜单,您可另外指定一个弹出式菜单,请注意,是弹出式菜单 Dim bar As Control Set bar = Me.Controls.Add("Forms.image.1", "IM1", Visible) With bar .Visible = True .Left = -100 .Top = 0 .Height = 20 .Width = 20 .BackColor = &HFFC0C0 .BorderStyle = 0 End With '*************** Set bar = Me.Controls.Add("Forms.image.1", "IM2", Visible) With bar .Visible = True .Left = -100 .Top = 0 .Height = 20 .Width = 20 .BackColor = &HFFC0C0 .BorderStyle = 0 End With '*************** Set bar = Me.Controls.Add("Forms.image.1", "FormMenuBar", Visible) With bar .Visible = True .Left = -1 .Top = -1 .Height = 20 .Width = 2000 .BackColor = &HFFC0C0 .BorderStyle = 0 End With menu(1).AddMenu Me,"文件","文件","" menu(2).AddMenu Me,"公式","公式","" menu(3).AddMenu Me,"开发工具","开发工具","" menu(4).AddMenu Me,"窗口","窗口","" menu(5).AddMenu Me,"工具","工具","" menu(6).AddMenu Me,"常用","常用","" menu(7).AddMenu Me,"列表","列表","" menu(8).AddMenu Me,"序列","序列","" menu(9).AddMenu Me,"框架","框架","" menu(10).AddMenu Me,"填充颜色","填充颜色","" menu(11).AddMenu Me,"流程图","流程图","" menu(12).AddMenu Me,"OLE对象","OLE对象","" menu(13).AddMenu Me,"添加命令","添加命令","" menu(14).AddMenu Me,"关于","关于","" end sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim i As Integer For i = LBound(menu) To UBound(menu) Set menu(i) = Nothing Next Popup_Menu.Enabled = True Popup_Menu.Reset end sub '********本模块结束**********
VBA自定义菜单和菜单栏
马靖的个人技术博客
08-28 7861
在EXCEL中，我们的操作都是通过“工具栏、菜单栏、快捷菜”单实现。EXCEL通过菜单给我们提供基本操作功能之外，也为我们提供了扩展自定义功能的接口，即自定义自己的工具栏、菜单栏。 本文着重介绍如何在 Excel 2003版本中通过编程方式自定义菜单和菜单栏方法。其中包含Excel 中管理和自定义菜单栏、菜单、命令、子菜单和快捷菜单，我将通过代码实例分步说明。 与大家分享关于VBA实现菜单栏管
Excel VBA 窗体UserForm制作菜单栏
CDamogu
01-06 3345
窗体 VB/VBA _API函数接口合集 '-------------------------------------------------------- '->Forms ' Module ' ClassModules '-------------------------------------------------------- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpCla
springmvc校验list嵌套list_利用字典的嵌套，完成三级下拉菜单的制作
weixin_39524703的博客
12-14 218
大家好，今日我们继续讲解VBA数组与字典解决方案，今日的内容是第56讲，利用字典的嵌套，完成三级下拉菜单的制作。在第54讲中我讲了利用字典的嵌套，完成二级下拉菜单的制作，很多朋友来信反馈说不过瘾，可是三级下拉菜单自己却调试不出来.今日我就给大家讲解一下，其实这和二级菜单的制作是类似的，但是需要读者充分理解字典嵌套的含义，也就是说ITEM值可以是字典，要充分理解这时字典的意义，在大脑中模拟这个过程。...
Excel2007 VBA 加载项增加菜单
06-15
- **Excel与VBA的结合**：Excel提供了一个强大的平台来执行数据分析、报表制作等任务。然而，对于复杂的业务逻辑或大量的数据处理需求，仅依靠Excel内置功能可能显得力不从心。此时，VBA便成为了解决方案，它允许...
iFIX_Menu.rar_IFIX VBA_ifix下拉框_ifix下拉选择_ifix弹出菜单_ifix菜单
07-14
iFIX中实现下拉式菜单的例子iFIX中实现下拉式菜单的例子
one_menu
05-02
"one_menu"是一款专为工技大学学生设计的VBA小工具，旨在简化论文格式的制作过程，提高文档处理效率。这款工具的核心功能是帮助用户快速生成符合规范的论文目录，使得论文结构清晰，便于阅读和审阅。下面将详细阐述...
Excel VBA windows风格菜单栏
08-01
excel VBA windows 风格窗口菜单
VB-API函数使用手册
01-05
VBA VB API函数使用手册，记录了VBA中Declare function中的几乎所有接口函数，格式为chm，开盖即用！
excel学习笔记（打印版）
05-19
- **知识点**: `Application.CommandBars("Worksheet Menu Bar").Enabled = false` 这一行代码用于禁用Excel中的“工作表菜单栏”。 - **应用场景**: 当需要限制用户的操作权限，比如在发布的工作簿中防止用户误...
vba 判断文本框内容是否为空_VBA代码用SetFocus精确控制焦点事件
weixin_39970855的博客
11-22 876
VBA++ 题记： 静下心，多学习有用的知识，多提高自己的水平和能力，这才是正道。时间就像一张网，你撒在哪里，你的收获就在哪里。谨记自己的方向，这是路之所在。适当节制自我的各种欲望,谁都逃不过时间的历练，谁都是命运的行者，谁都是在人生的道路上一步一趋。你要做的，是悄悄地去努力，等你变厉害之后，把自己也吓一跳，才是你现在需要当作目标的事。把生活与工作打理好，不负年华。欲成大事者，必先修其身。欲修其身...
通过VBA在Excel中添加菜单和菜单项按钮（Excel启动时候添加）
Gold Country---Pashine技术博客
11-18 2万+
将以下代码保存到.xlam或.xla(Excel97-2003)文件。 在ThisWorkBook对象中，添加Workbook_Open事件，调用启动菜单过程。 Private Sub Workbook_Open() Call MenuSetup(True) End Sub '----------------------------------------------- '在Excel
Excel-VBA基础（4）：菜单栏及各类窗口介绍
excel vba sas python的专栏
09-07 1792
VBE窗口中另一个对象是菜单栏，菜单栏中有如下图所示的11个菜单类。VBE各菜单对应功能说明与菜单栏相应的是工具栏，工具栏是菜单栏一些常用命令的快捷按钮组合。在VBE中可以自定义工具栏，执行菜单栏中的【视图】→【工具栏】命令，选择需要显示的工具栏，或者直接在已显示的工具栏上右击，在弹出的快捷菜单中选择需要显示的工具栏。【标准】和【编辑】工具栏最常用。【标准】工具栏中常用的按钮有复制、粘贴、查找、保...
介绍各个窗口的功能
ab720826的博客
05-04 1964
菜单栏：位于标题栏的下方，包括「文件」、「编辑」等菜单项，每个菜单项都包含若干个菜单命令，分别选择菜单项中的相关命令就可以执行相应的操作。代码窗口：提供有「标准」、「编辑」、「调试」和「用户窗体」4种工具栏，默认情况下，显示的是「标准」工具栏，用户可以单击菜单栏或工具栏的空白处，在弹出的快捷菜单中选择「编辑」、「调试」或「用户窗体」选项，即可打开相应的工具栏。工程窗口：以树形图示的形式显示了 Ex...
利用VBA创建Excel新菜单
牧码人的专栏
08-16 6529
利用VBA创建Excel新菜单 使用VBA，可以很方便地向Excel菜单栏添加新菜单。 背景知识 1、菜单栏属于CommandBars集合，可以通过菜单栏名称或索引值对其进行引用： CommandBars(“Worksheet Menu Bar”)或Command
VBA_把Excel某一区域的内容读入到数组中/把数组的内容写入到Excel中
热门推荐
小猪的成长专栏
03-23 3万+
1 把Excel某一区域的内容读入到数组中: Dim strArray() As Variant Dim wk_data As Variant Set wk_data = Sheets("Sheet1") strArray = wk_data.Range("A1:CV100").Value   2 把数组的内容写入到Excel中 wk_data.Range("A1").Resize(
vba编程制作数据录入系统
最新发布
07-29
VBA(Virtual Basic for Applications)是一种基于微软的Visual Basic语言的宏语言，常用于Office套件中的应用软件中，如Excel、Word等。通过VBA编程，我们可以实现自动化操作和定制化功能。 数据录入系统是一个用于方便、高效地录入数据的系统，通过VBA可以轻松实现这一目标。下面是一个简单的VBA编程制作数据录入系统的步骤： 1. 打开Excel软件并创建一个新的工作簿，可以通过快捷键Alt+F11打开VBA编辑器。 2. 在VBA编辑器中，通过插入模块来创建一个新的代码模块。 3. 在代码模块中编写VBA代码，实现数据录入系统的功能。例如，可以编写一个宏，将数据输入到指定的单元格中，或者编写一个表单，使用用户界面来录入数据。 4. 在VBA编辑器中保存你的VBA代码，并返回到Excel中。 5. 在Excel中，你可以通过运行宏的方式来使用你编写的VBA代码。可以将宏与快捷键、按钮等进行关联，以方便使用。 通过VBA编程制作数据录入系统的好处有很多。首先，VBA编程可以使录入数据的过程更加自动化，减少了手动操作的时间和错误。其次，VBA编程可以根据特定的需求，定制化数据录入的界面和功能，使录入数据更加便捷和高效。最后，VBA编程是一种强大的工具，通过它，我们可以深入了解Excel软件的功能和操作，提高我们的编程能力。 总之，通过VBA编程制作数据录入系统是一种非常有效的方法，它可以帮助我们简化数据录入的过程，并提高工作效率。无论是在个人的数据管理中，还是在商务活动中，都可以通过VBA编程制作数据录入系统，从而更好地管理和利用数据。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值