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

Question

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

DECLARE @Date1 VARCHAR(50) = '31-01-2016'

SELECT CONVERT(datetime, @Date1, 103)

当我右键单击一个单元格时，它非常有效。但是，当我＆＃34;进入＆＃34;在单元格中，例如，如果我在单元格内写入内容，则右键单击完全具有不同的上下文菜单。 如何在INSIDE单元格中捕获右键单击？如果它甚至可能。我想在两种情况下都能访问我的自定义菜单。

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

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

Answer 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