- 1、本文档共99页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VBA技巧详细教程
第7章 菜单和工具栏 1
技巧79 在菜单中添加菜单项 3
技巧80 在菜单栏指定位置添加菜单 6
技巧81 屏蔽和删除工作表菜单 8
技巧82 改变系统菜单的操作 9
技巧83 定制自己的系统菜单 10
技巧84 改变菜单按钮图标 16
技巧85 右键快捷菜单增加菜单项 17
技巧86 自定义右键快捷菜单 18
技巧87 使用右键菜单制作数据有效性 21
技巧88 禁用工作表右键菜单 23
技巧89 创建自定义工具栏 24
技巧90 自定义工具栏按钮图标 27
技巧91 自定义工作簿图标 28
技巧92 移除工作表的最小最大化和关闭按钮 29
技巧93 在工具栏上添加下拉列表框 30
技巧94 屏蔽工作表的复制功能 32
技巧95 禁用工具栏的自定义 33
技巧96 屏蔽所有的命令栏 36
技巧97 恢复Excel的命令栏 37
第8章 控件与用户窗体 39
技巧98 限制文本框的输入 39
技巧99 文本框添加右键快捷菜单 41
技巧100 文本框回车自动输入 45
技巧101 自动选择文本框内容 46
技巧102 设置文本框数据格式 47
技巧103 限制文本框的输入长度 49
技巧104 将光标返回文本框中 50
技巧105 文本框的自动换行 52
技巧106 多个文本框数据相加 54
技巧107 控件跟随活动单元格 55
技巧108 高亮显示按钮 56
技巧109 组合框和列表框添加列表项的方法 58
109-1 使用RowSource属性添加列表项 58
109-2 使用List属性添加列表项 59
109-3 使用AddItem方法添加列表项 60
技巧110 去除列表框数据源的重复值和空格 62
技巧111 移动列表框条目 64
技巧112 允许多项选择的列表框 67
技巧113 多列组合框和列表框的设置 70
113-1 多列组合框和列表框添加列表项 70
113-2 多列列表框写入工作表 72
技巧114 输入时逐步提示信息 74
技巧115 二级组合框 81
技巧116 使用DTP控件输入日期 83
技巧117 使用RefEdit控件选择区域 86
技巧118 如何注册控件 87
技巧119 遍历控件的方法 90
119-1 使用名称中的变量遍历控件 90
119-2 使用对象类型遍历控件 92
119-3 使用程序标识符遍历控件 93
119-4 使用名称中的变量遍历图形 94
119-5 使用FormControlType属性遍历图形 95
技巧120 使微调框最小变动量小于1 96
菜单和工具栏
在菜单中添加菜单项
在Excel工作表的菜单中可以添加新的菜单项和子菜单,如下面的代码所示。
#001 Sub myTools()
#002 Dim myTools As CommandBarPopup
#003 Dim myCap As Variant
#004 Dim myid As Variant
#005 Dim i As Byte
#006 myCap = Array(基础应用, VBA程序开发, 函数与公式, 图表与图形, 数据透视表)
#007 myid = Array(281, 283, 285, 287, 292)
#008 With Application.CommandBars(Worksheet menu bar)
#009 .Reset
#010 Set myTools = .Controls(帮助(H)).Controls.Add(Type:=msoControlPopup, Before:=1)
#011 With myTools
#012 .Caption = Excel Home 技术论坛
#013 .BeginGroup = True
#014 For i = 1 To 5
#015 With .Controls.Add(Type:=msoControlButton)
#016 .Caption = myCap(i - 1)
#017 .FaceId = myid(i - 1)
#018 .OnAction = myC
#019 End With
#020 Next
#021 End With
#022 End With
#023
文档评论(0)