在单元格内自定义右键单击答案

【问题标题】：Custom right click while inside a cell在单元格内自定义右键单击
【发布时间】：2016-08-17 16:58:50
【问题描述】：

我有一个自定义右键菜单，使用以下语法向上下文菜单添加内容：

Function RightClickOnMoMAction(targ As String)
    Dim cbar As CommandBar
    Set cbar = Application.CommandBars("Cell")

    With cbar.Controls.add(Temporary:=True, Type:=msoControlButton, before:=1)
        .BeginGroup = False
        .FaceId = 1111
        .Caption = targ
        .OnAction = "'" & ThisWorkbook.Name & "'!'rcFollowSlide """ & targ & """" & "'"
    End With
End Function

当我右键单击一个单元格时效果很好。但是，当我在单元格中“输入”时，例如，如果我在单元格中写入内容，则右键单击将完全具有不同的上下文菜单。 如何在单元格内捕获右键单击？如果可能的话。我希望在这两种情况下都能访问我的自定义菜单。

作为参考，这是我的上下文菜单：

这是编辑单元格内部时的右键单击（光标消失了，但我在屏幕截图上将它画成蓝色，我正在单元格中书写）：

【问题讨论】：

标签： vba excel

【解决方案1】：

通过Formula Bar 命令栏访问。

查看以下代码，如果它解决了问题，请告诉我们。

Dim cbar As CommandBar

Set cbar = Application.CommandBars("Formula Bar")

With cbar.Controls.Add(Temporary:=True, Type:=msoControlButton, Before:=1)
    .FaceId = 1111
    .Caption = "TEST"
End With

【讨论】：

您没有添加 .OnAction 是否有原因？当我加一个时，它不想进入引用的函数。