Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel.docVIP

Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛Excel教程下载中心，Microsoft技术社区联盟成员，全球领先的Excel2003/2007/2010门户，培训学习Office的最佳社区 免费培训 博客 下载中心 技术文章 原创图书 视频教程 首页免费注册 回家 标签 Excel Home风采 Show 快乐答题 抢红包 帮助 繁體Excel Home论坛 raquo; ExcelVBA程序开发 raquo; 如果用VBA写一段自动加入菜单功能 Excel Home官方博客开通啦！免费网页版Excel - 魔方网表下载 Excel服务器2010软件和教程下载 你以前不知道的Word实战绝技 免费共享：EH资源电子杂志首刊 2011年Excel免费培训班3-6月开课计划 新人必读：ExcelHome最佳学习方法 入门必看《循序渐进学Excel》视频 精粹：成为Excel高手的捷径 免费下载39集新Excel精粹视频教程 免费学习Excel数据透视表视频教程 免费下载Excel行业应用视频教程 新人扫盲：论坛学习及使用完全攻略 免费学习Excel 2007精粹视频教程 秘技：10分钟赚足培训课券！ 大家来报料：最牛的Excel用法！ #8249;#8249; 上一主题 | 下一主题 #8250;#8250; 发新话题 发布投票 发布商品 发布悬赏 发布活动 发布辩论 发布视频 打印 [求助] 如果用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