为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

[汇编]Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛

2018-05-02 10页 doc 26KB 11阅读

用户头像

is_266065

暂无简介

举报
[汇编]Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛[汇编]Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛 Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛 Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛Excel教程下载中心,Microsoft技术社区联盟成员,全球领先的Excel2003/2007/2010门户,培训学习Office的最佳社区 免费培训 博客 下载中心 技术文章 原创图书 视频教...
[汇编]Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛
[汇编]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.
/
本文档为【[汇编]Excel 如果用VBA写一段自动加入菜单功能 - ExcelVBA程序开发 - Excel Home论坛】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索