[原创]Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛
Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛
Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛Excel教程下载中心,Microsoft技术社区联盟成员,全球领先的Excel2003/2007/2010门户,培训学习Office的最佳社区
免费培训 博客 下载中心 技术文章 原创图书 视频教程 首页免费注册 回家 标签
Excel Home风采
Show
快乐答题
抢红包
帮助
繁體Excel Home论坛 » ExcelVBA程序开发 » 如果用VBA写一段自动加入菜单功能
Excel Home官方博客开通啦~免费网页版Excel - 魔方网
下载 Excel服务器2010软件和教程下载
你以前不知道的Word实战绝技
免费共享:EH资源电子杂志首刊 2011年Excel免费培训班3-6月开课计划 新人必读:ExcelHome最佳学习方法
入门必看《循序渐进学Excel》视频
精粹:成为Excel高手的捷径 免费下载39集新Excel精粹视频教程 免费学习Excel数据透视表视频教程
免费下载Excel行业应用视频教程
新人扫盲:论坛学习及使用完全攻略 免费学习Excel 2007精粹视频教程 秘技:10分钟赚足培训课券~
大家来报料:最牛的Excel用法~
‹‹ 上一主题 | 下一主题 ›› 发新话题 发布投票 发布商品 发布悬赏 发布活动 发布辩论 发布视频
打印 [求助] 如果用VBA写一段自动加入菜单功能 hits : 1220
lemonbmc
Excel Home初级
积分74 财富179 , 分享0 技术0 注册时间2008-9-24 总积分排名 3000+ 发短消息 加为好友 1楼 大 中 小 发表于
2008-11-26 15:04 只看该作者
NetExcel软件~会Excel就可以编程,快速实现
系统、进销存、生产管理、工资绩效等系统~
如果用VBA写一段自动加入菜单功能
想编制一段VBA程序,再加载XLA的时候,能自动在EXCEL中加载一个菜单,菜单下有此段程序的调用。 多谢高手指教。。。。
UID612795 帖子20 精华0 经验71 威望0 阅读权限20 性别男 在线时间6 小时 查看详细资料TOP
mineshine
Excel Home专家级
积分3792 财富9948 , 分享0 技术0 注册时间
2008-11-18 总积分排名 179 发短消息 加为好友 2楼 大 中 小 发
表于
2008-11-26 21:03 只看该作者
NetExcel软件~会Excel就可以编程,快速实现报表系统、
进销存、生产管理、工资绩效等系统~
Private Sub Workbook_Open()
Workbook_AddinInstall 'Add New CommandBar
End Sub
Private Sub Workbook_AddinInstall()
Dim CB As CommandBarControl
Dim I As Integer
I = 1
For Each CB In Application.CommandBars(1).Controls
If CB.Caption = "Statis(&S)" Then '菜单已加入,则刪除
Application.CommandBars("Worksheet Menu
Bar").Controls("Statis(&S)").Visible = True
Application.CommandBars("Worksheet Menu
Bar").Controls("Statis(&S)").Delete
End If
Next
Dim objCmdBrPp As CommandBarPopup
Dim objCmdBtn As CommandBarButton
Set objCmdBrPp =
Application.CommandBars.ActiveMenuBar.Controls.Add(Type:=msoControlPopup,
Temporary:=False)
On Error Resume Next
objCmdBrPp.Caption = "Statis(&S)" '加入
菜单名称
objCmdBrPp.OnAction = "TestA" '指定
菜单对應的程序 sub
Set objCmdBrPp = Nothing
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) '文件关闭,就刪除菜单
Dim CB As CommandBarControl
On Error Resume Next
For Each CB In Application.CommandBars(1).Controls
If CB.Caption = "Statis(&S)" Then
Application.CommandBars("Worksheet Menu
Bar").Controls("Statis(&S)").Visible = False
Application.CommandBars("Worksheet Menu
Bar").Controls("Statis(&S)").Delete
End If
Next
End Sub
UID658023 帖子3067 精华0 经验3067 威望0 阅读权限
90 在线时间1449 小时 查看详细资料TOP
lemonbmc
Excel Home初级
积分74 财富179 , 分享0 技术0 注册时间2008-9-24 总积分排名 3000+ 发短消息 加为好友 3楼 大 中 小 发表于
2008-11-26 22:49 只看该作者
?EH梦之队《实战技巧精粹》系列图书火热发售, 配套视频教程免费下载中?
多谢多谢~
UID612795 帖子20 精华0 经验71 威望0 阅读权限20 性别男 在线时间6 小时 查看详细资料TOP
ljl008
Excel Home高级
积分1297 财富4557 , 分享0 技术0 来自广西 注册时间2007-5-29 总积分排名 628 发短消息 加为好友 4楼 大 中 小
发表于 2008-11-26 22:57 只看该作者
?EH梦之队《实战技巧精粹》系列图书火热发售, 配套视频教程免费下载中?
向2楼学习,虽然看不明白,但我还是要学
UID274785 帖子811 精华0 经验945 威望0 阅读权限50 性别男 在线时间704 小时 查看详细资料TOP
zyq12688
Excel Home新人
积分16 财富35 , 分享0 技术0 注册时间2008-11-12
总积分排名 3000+ 发短消息 加为好友 5楼 大 中 小 发表于
2008-12-29 15:36 只看该作者
?EH梦之队《实战技巧精粹》系列图书火热发售, 配套视频教程免费下载中?
非常具有指导意义,学习中„„
UID653268 帖子9 精华0 经验9 威望0 阅读权限10 在线时间13 小时 查看详细资料TOP
lilonghit
Excel Home初级
积分52 财富103 , 分享0 技术0 注册时间2008-8-14 总积分排名 3000+ 发短消息 加为好友 6楼 大 中 小 发表于
2008-12-31 09:47 只看该作者
?Excel服务器2010软件和教程下载?
值得学习,谢谢
UID574729 帖子1 精华0 经验51 威望0 阅读权限20 性别男 在线时间1 小时 查看详细资料TOP
corvine99
Excel Home中级
积分509 财富1408 , 分享0 技术0 注册时间2008-12-30 总积分排名 1875 发短消息 加为好友 7楼 大 中 小 发表于
2008-12-31 09:57 只看该作者
?你以前不知道的Word:《Word实战技巧精粹》视频教程?
学习了
。。。。。。
UID691964 帖子460 精华0 经验460 威望0 阅读权限30 在线时间97 小时 查看详细资料TOP
gflavourlon
Excel Home初级
积分121 财富253 , 分享0 技术0 注册时间2007-11-16 总积分排名 3000+ 发短消息 加为好友 8楼 大 中 小 发表于
2009-3-7 11:13 只看该作者
NetExcel软件~会Excel就可以编程,快速实现报表系统、进销存、生产管理、工资绩效等系统~
看得不是很明白
UID366586 帖子48 精华0 经验108 威望0 阅读权限20 性别男 在线时间26 小时 查看详细资料TOP
随心所欲
Excel Home中级
积分796 财富1676 , 分享0 技术1 来自上海 注册时间2006-7-23 总积分排名 1074 发短消息 加为好友 9楼 大 中 小
发表于 2009-8-10 23:03 只看该作者
? 好帖推荐、申请精华或加分、违规帖举报,欢迎“
”,报告有奖~?
努力学习,天天向上怀着对未来生活的希望和憧憬,过好今天迎接明天,懂得珍惜,懂得感恩,学会理解,学会包容,以微笑面对挫折,以坚强征服困难.
UID163348 帖子468 精华0 经验668 威望0 阅读权限30 性别女 在线时间155 小时 查看详细资料TOP
‹‹ 上一主题 | 下一主题 ››
Excel Home 活动专版
Excel免费培训班专区
Office 2010征文大赛
EH财富换购竞拍区
Excel进阶研讨区
快乐答题俱乐部
往期活动
奥运主题作品赛(结束)
Excel趣味作品2009大赛区(结束)
Excel Home原创图书教程研读交流,示例与视频培训教程下载
《Excel2007实战技巧精粹》论坛
《Excel数据透视表应用大全》论坛
《Excel高效办公》系列读者论坛
《Excel应用大全》读者论坛
08新版《精粹》系列图书读者论坛
《Excel实战技巧精粹》读者论坛
Microsoft Excel Zone - Excel2003/Excel2007技术交流与问答
Excel基础应用
Excel函数与公式
ExcelVBA程序开发
Excel图表与图形
Excel数据透视表
Excel Profession Apply - Office/Excel行业应用交流与培训
Excel财会与金融
Excel人力资源管理
Excel生产管理
Microsoft Office Family
Microsoft Office Outlook
Microsoft Office Word
Microsoft Office PowerPoint
Microsoft Access & SQL Server
其他MicrosoftOffice产品
Office Resource - excel教程excel下载excel2007培训教程下
载
资源共享
原创发表
Office图书品评
Office Competition - Office/Excel技术竞赛
开放式竞赛专区
Microsoft Office 之外
电脑网络
休闲吧
Excel Home论坛事务管理
会员广场
人才市场
学习经验分享
控制面板首页 编辑个人资料 兑换课券 积分记录 公众用户组 勋
章 基本概况 版块排行主题排行发帖排行积分排行 交易排行 在线
时间 管理统计 MVP风采
管理团队风采 优秀会员风采 本论坛言论纯属发表者个人
,与
Excel Home立场无关,任何违反国家相关法律的言论,本站将协助
国家相关部门追究发言者责任~
当前时区 GMT+8, 现在时间是 2011-1-4 10:06 闽ICP备05014318
号
清除 Cookies - 联系我们 - Excel Home - Archiver - WAP - TOP -
站长统计 Powered by Discuz!
6.1.0 本站特聘法律顾问:徐怀玉律师
Processed in 0.062810 second(s), 6 queries, Gzip enabled.