首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

MyVBA加载宏——添加自定义菜单01

在这个自启动的加载宏上,给它在VBA编辑器里,添加一个菜单栏: ? 主要功能就是收集一些常用的代码,方便快速的插入到VBA编辑器中。...这些常用的代码主要是一些一般不构成单独功能的代码,如果是构成单独功能的代码,个人习惯存储在文件中,就像前面提到过的vbapFunc.xlam中ScanDir之类的,是通过工具-引用,添加引用去使用。...我们在VBE菜单——CommandBars对象里,对VBE里的菜单对象已经有了了解,要添加新的菜单,只要去操作CommandBars集合中的第一个对象即可: Sub TestAdd() Dim...= Application.VBE.CommandBars(1).Controls.Add(msoControlPopup) cmd.Caption = "测试" End Sub 这个时候,在菜单栏上就多了一个...End Sub 如果不存在"测试"这个菜单的时候,会报错,所以添加了一条忽略错误的语句。

1.5K20
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    MyVBA加载宏——添加自定义菜单02——给按钮添加单击事件

    在2003版本之前的Excel里使用过VBA的话,应该接触过在Excel里添加自定义菜单,使用方法和前面说的在VBE里添加菜单是类似的。...虽然现在已经有了Ribbon菜单,已经不大建议使用下拉式的菜单了,但是这个功能还是被保留了的,测试一下: Sub TestExcelCMDB() Dim cmdb As CommandBarControl...同样的方法,我们在VBE里使用: Sub TestAdd() Dim cmd As CommandBarControl Application.VBE.CommandBars...至于为什么,我也不知道原因,后来在网上查了相关资料后,都是要使用一个类模块进行转换,创建1个类模块,命名CCommandBar: Public WithEvents cmdbe As VBIDE.CommandBarEvents...ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean) MsgBox 123 End Sub 在模块顶部声明

    2.8K20

    Windows 配置添加右键菜单 —— 在VSCode中打开

    在Windows上面安装Visual Studio Code代码编辑器时,常常会因为安装的时候忘记勾选相关选项等原因,没有将“Open with Code”(右键快捷方式)添加到鼠标右键菜单里,所以需要手动将...VSCode相关快捷打开添加至鼠标右键菜单之中。。...可以在安装时选择配置 一旦安装时没有勾选,在Windows 下就需要修改注册表了 通过注册表添加右键 VS Code 快捷菜单 核心思路 进入注册表右键菜单配置项 手动加入 VS Code 项,配置名称...打开注册表 找到 HKEY_CLASSES_ROOT\Directory\shell目录 右击shell新建 vscode 目录 右击文件,点修改 修改数值数据,这个填入的是右键显示的内容,可以自定义编辑...: 在 VS Code 目录下创建command(目录必须命名为command) 修改 command 的数值为 VS Code 可执行程序路径 此时已经可以按照我们的需求使用了 对于强迫症的同学可以继续添加图标

    19.7K60

    MyVBA加载宏——添加自定义菜单04——功能实现

    功能实现 01 类模块功能 类模块CCommandBar就是为了响应单击按钮的功能: 根据单击的按钮的名称,读取对应名称的txt文件 将读取到的文本插入到VBE中 所以,分别先实现2个函数,读取txt文件的内容在前面有过介绍...ForReading=1 FsoReadTxt = sr.ReadAll() Set fso = Nothing Set sr = Nothing End Function 在VBE...02 添加菜单的功能 添加菜单和按钮的代码: '记录所有需要执行单击事件的菜单按钮 Private cbars As Collection Private Type CommandBarInfo...Resume Next Application.VBE.CommandBars(1).Controls(sBAR_NAME).Delete On Error GoTo 0 '添加菜单...03 自动更新 使用过程中增加了代码后,只要重新打开加载宏就会自动进行更新,在ThisWorkbook模块添加代码: Private Sub Workbook_Open() Call AddCommanBar

    1.4K30

    odoo 权限管理学习总结

    -- id:供代码或者xml中引用,model:odoo的category模型--> [房地产]模块菜单权限</field...base.user_root: __system__用户(ID为1的用户,technical admin ) category定义相关数据存储在ir_module_category表中 添加的group...--略--> odoo> 查看效果 注意: 实践时发现,通过界面点击,访问一些菜单界面时,会在菜单访问URL(参见菜单访问自动生成的URL)中自动添加model,...view_type等参数,也就是说会自动访问模块相关模型,如果此时没有对应模型的访问权限(至少需要 read权限),那么即便拥有对应菜单的访问权限,界面上也看不到对应的菜单,笔者尝试过在浏览器中直接通过菜单链接...角色定义 新增并安装base_user_role模块 base_user_role模块的作用可以简单理解为,按自定义维度将所需权限组组合在一起,组成角色,实现批量授权的功能。

    10.2K20

    MyVBA加载宏——添加自定义菜单03——功能分析

    功能分析 要实现的这个添加代码的菜单,需要具备以下几个特点: 要添加的项目肯定会不停的改变,所以必须要能够方便添加代码和自动更新。...即能添加单个的按钮,也能在菜单上继续添加下拉式的菜单,这样方便一些同类型的功能放在一起。...01 自动更新 要自动更新是比较简单的,只要在加载宏打开的时候,执行一次添加菜单的功能即可,所以,需要在加载宏的Thisworkbook模块添加代码: Private Sub Workbook_Open...02 分类自动添加 因为需要分类(单独按钮和新的弹出式)创建,所以必须有个地方能够让我们知道要创建的是什么类型的,个人做法是: 毕竟这个不是非常复杂的程序,所以在一个单独的文件夹专门存放代码,然后手动创建一个目录...faceID是控件前面的小图标,这个其实无所谓,有兴趣可以写个简单的代码,在菜单上添加控件,设置不同的faceID看看: Sub TestExcelCMDB() Dim cmdb As CommandBarButton

    98730

    Odoo 菜单定义和修改学习总结

    odoo菜单定义和修改学习总结 环境 odoo-14.0.post20221212.tar 定义菜单 方式1: 菜单组中移除该ID代表的组,注意,如果指定用户组不是在当前模块中定义的,需要指定所在模块名称,形如estate.group_estate_property_root_menu...> 说明: parent 指定父级菜单外部ID,如果上级菜单不在当前模块中,则需要指定上级菜单所在模块,形如parent="moduleName.parent_menu_id" 修改菜单 本节要介绍的是一种特殊的修改方式..." name="omsPurchase"/> 以新定义的菜单为父级菜单,添加子菜单(如果需要的话),添加方式可以参考上文所述,需要注意的是,不管采用哪种方式,原有菜单的子菜单依然存在,并显示为新定义菜单的子菜单...隐藏原有菜单的子菜单(如果需要的话) 定义一个,将其id设置为要隐藏的子菜单所在模块名称及id属性值的组合,形如:moduleName.source_menu_id,如果新的菜单和原有菜单在同一个模块

    1.4K10

    Odoo开发指北 01 初识Odoo

    继承开发 Odoo提供了大量现成的模块给我们使用,但是某些情况下,我们需要制定符合自己需求的功能模块。Odoo开发的一条黄金准则是——不要修改现有的模块,以免改动后的代码与原有模块产生混淆。...因此,odoo提供了继承机制,我们可以选择一个基础模块,然后继承它,在它的基础上进行修改、扩展,生成自己的模块。...然后使用自己的模块:把自己的模块路径设置到odoo中,重启odoo让其搜索到自定义模块,即可通过odoo进行安装。...security:对模块的访问权限控制,在ir.model.access.csv文件中定义。还可以新建一个record_rule.xml,在其中进行更细化的权限控制。...构建菜单对象——在views文件夹下,使用xml定义菜单项。 构建动作对象,关联某个具体菜单项的响应。 构建视图对象:主要是list、tree、form、search视图。

    2.4K30

    在Excel中自定义上下文菜单(下)

    标签:VBA,用户界面 本文接上两篇文章: 在Excel中自定义上下文菜单(上) 在Excel中自定义上下文菜单(中) 上下文菜单技术和技巧 下面的内容展示了如何修改本文中提供的代码,以使过程更具灵活性...那么,如何找到要更改的其他上下文菜单的名称呢?下面的宏在每个上下文菜单的底部添加了一个带有菜单名称的按钮。...小结 在Excel 97至Excel 2003中,可以使用VBA代码将控件添加到每个上下文菜单中,但无法使用RibbonX更改上下文菜单。...在Excel 2007中,可以使用VBA代码将控件添加到几乎每个上下文菜单中。但是,无法使用VBA更改某些上下文菜单,例如形状和图片的上下文菜单。此外,无法使用RibbonX更改上下文菜单。...在Excel 2010及后续版本中,可以使用VBA代码将控件添加到几乎每个上下文菜单中。使用VBA更改某些上下文菜单的限制与Excel 2007中相同。

    2.6K20

    odoo 开发入门教程系列-一些用户界面

    类似CSV文件,XML文件也必须按约定添加到合适的目录,并在 __manifest__.py中进行定义。数据文件中的内容也是在模块安装或者更新时按序加载。...这是因为,在odoo中加载CSV文件比加载XML文件更快。 odoo中,用户接口(action,菜单和视图)大部分是通过创建和组装XML文件中的记录来定义的。...然而,菜单总是遵循一种体系结构,实际上有三个层次的菜单: 根菜单,显示在App切换器中(Odoo社区版切换器是一个下拉菜单) 第一级菜单,显示在顶部栏中 动作菜单 最容易的方式是在XML文件中定义结构来创建菜单...,直接从action获取,即为action属性值 练习 添加菜单 在合适的目录(本例中为odoo14/custom/estate/models/views)创建 estate_menus.xml 文件...练习 -- 添加state字段 为estate.property model添加state 字段(字段名可自定义),一个选择列表。

    3K30

    在Excel中自定义上下文菜单(上)

    图1 在Excel中自定义上下文菜单 在Excel 2007以前的版本中自定义上下文菜单的唯一方法是使用VBA代码,然而,在Excel 2007后续版本中,还可以使用相同的功能区扩展性(RibbonX)...RibbonX模型用于自定义Microsoft Office Fluent用户界面的其他组件,包括功能区和后台视图。 使用RibbonX自定义上下文菜单的优点之一是,可以添加无法使用VBA添加的控件。...menuSeparator) 拆分按钮(splitButton) 切换按钮(toggleButton) 使用VBA代码将控件添加到单元格上下文菜单 下面的示例在单元格上下文菜单顶部添加了自定义按钮、内置按钮...要自定义单元格上下文菜单,按Alt+F11打开VBE,单击菜单“插入——模块”。在模块中粘贴或键入下面6个过程。第一个过程将控件添加到单元格上下文菜单中,第二个过程从单元格上下文菜单中删除控件。...ContextMenu.Controls.Add Type:=msoControlButton, ID:=3, before:=1 ' 在单元格上下文菜单中添加一个自定义按钮.

    2.8K40

    在Excel中自定义上下文菜单(中)

    标签:VBA,用户界面 本文接上篇文章: 在Excel中自定义上下文菜单(上) 使用RibbonX将控件添加到单元格上下文菜单 在下面的示例中,将创建与上文描述的示例相同的按钮和子菜单,但使用RibbonX...8.在VBE的标准模块中粘贴或输入下面的代码: Sub ToggleCaseMacro(control As IRibbonControl) Dim CaseRange As Range...10.选择该上下文菜单中添加的自定义选项,查看其对单元格文本的影响。...使用VBA代码或RibbonX将动态菜单添加到单元格上下文菜单 动态菜单指向在运行时创建菜单的回调过程。dynamicMenu控件包含指向GetContent回调过程的getContent属性。...下面是在单元格上下文菜单中创建动态菜单的RibbonX XML。

    1.7K40
    领券