如何在单元格右键菜单中添加快捷菜单？

作者：绿色风分类：时间：2022-08-17 浏览：114

楼主水星钓鱼	Q：如何在单元格右键菜单中添加快捷菜单？ A：Alt+F11进入VBA界面，插入一个标准模块，复制粘贴以下代码，然后运行就可以在单元格的右键菜单中添加一个快捷菜单。 Sub xyf() Dim oCmdBar As CommandBar Dim oCmdBarCtrl As CommandBarPopup Set oCmdBar = Application.CommandBars("cell") With oCmdBar .Reset Set oCmdBarCtrl = .Controls.Add(Type:=msoControlPopup, Before:=1) With oCmdBarCtrl .Caption = "常用工具" With .Controls.Add(Type:=msoControlButton) .Caption = "示例" .OnAction = "Cmd_1" .FaceId = 59 End With End With End With End Sub Sub Cmd_1() MsgBox 1 End Sub
2楼亡者天下	水星很给力啊
3楼 0Mouse	不错，右键二级菜单！如果把第一段代码放入Open事件中，程序Cmd_1放入模块，BeforeClose事件中添加delete此二级菜单的命令，那就更完美了。
4楼水星钓鱼	是的

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表