# 检测 鼠标是否右击_VBA如何给鼠标右键添加功能键，一个函数讲清楚

No.1

Excel给我们的感觉就是，灵活性比较好，自定义很方便，但是在使用过程当中，或许我们自定义功能用得十分的少，甚至从未用过。

其实呢，由于Excel太过随意，完全可以设计一个十分修改化的工作界面。

不过这也是一个比较麻烦的过程，首先学会如何自定义各个项目菜单。

然后找到相关功能进行菜单布局设置。

在此过程中基本上都放弃了。

下面我们简单介绍一下，如何用VBA代码，给鼠标右键添加一个自己定义函数或者过程。

No.2

右键也可以自定义，也许不是很熟悉的人，对此也十分陌生。

但并不会影响我们对此学习的探究。

Windows有一个好处，就是相对开放且可以自由设置，毕竟盗版系统很多，微软也一直默认这种情况继续下去。

可能其根本原因是不想失去免费带来的市场占用率，间接带动收费用户增加吧！

经济上的事情，我们不谈，只讨论如何将自己的工作做好。

No.3

接入正题，鼠标左键可以自由添加，其实际意义在于，如果工作当中对于某一个功能操作有十分高的频率，那么鼠标右键弹出快捷功能将是一个十分有用的方法。

下面就如何增加鼠标左键，做一个简单介绍。

下图为例，给右键增加一个计算求和功能。

求和区域就是鼠标所选择的区域。

以对话框的形式将求和结果输出，如果可以不妨用你想用的方式来进行存储结果。

左侧列表为鼠标右键所有功能名称，这个功能在第一个按钮实现。

把所有鼠标右键的功能都显示在第一列中，不同的电脑内容可能不一样，这个随Excel设置来决定。

No.4

单击“添加右键菜单”按钮就在鼠标右键里添加了一个功能项目，如下图：

求和计算右键功能就添加进来了，以后对表格进行求和，可以直接右键单击此功能项目就实现求和了。

添加右键过程

Sub AddRightCom()    '在单元格鼠标右键快捷菜单中新建一个名为“求和计算”的命令按钮    If CheckComm Then Exit Sub'检测是否已经添加“求各计算”    With Application.CommandBars("Cell").Controls.Add(before:=1)        .Caption = "求和计算"        .OnAction = "test"'要执行的过程名    End WithEnd Sub

检测是否已经添加“求和计算”

Function CheckComm() As Boolean '判断按钮是否已经添加    CheckComm = False    Dim com As Object    For Each com In Application.CommandBars("Cell").Controls        If com.Caption = "求和计算" Then            CheckComm = True            Exit For        End If    Next comEnd Function

这个示例以对话框形式将求和结果显示出来，如果要把求和的值添加到特定位置，还需要进行代码处理。

求和过程

Sub test()    MsgBox Application.WorksheetFunction.Sum(Selection)End Sub

No.5

本例用到CommandBars对象，以及Add属性。

代码示例：

Application.CommandBars("Cell").Controls.Add(before:=1)

方法

Application.CommandBars.Controls.add(Name,Position,MenuBar,Temporary)

具体使用可查看下面地址：

https://docs.microsoft.com/zh-cn/office/vba/api/office.commandbars.add

No.6

本文主要以添加鼠标右键功能为例，做一个简单介绍，如果想在实际应用中添加自己定义的函数或过程，需要大量的时间去验证，所以此方法推荐有意要对Excel应用操作个性化定制的朋友。

当然了CommandBars不仅包括鼠标右键，也包括菜单栏、功能栏等等个性化定制功能，大家可以触类旁通、举一反三进行深入学习。

欢迎关注、收藏