Excel右键菜单添加项Bug修复求助：B列单元格菜单内容不更新

问题根源 #

原代码存在两个核心问题：

• 右键点击B列目标范围内的单元格时，只要菜单已存在就直接跳过更新逻辑，导致内容始终停留在首次右键的单元格信息
• 使用ActiveCell获取数据，可能和当前右键点击的Target单元格不一致，引发数据错误

修复后的代码 #

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim cmdBtn As CommandBarButton, param, forename, surname As String
  
    Set cmdBtn = Application.CommandBars("Cell").FindControl(, , "testBt")
    ' 不在目标范围时删除菜单并退出
    If Intersect(Target, Range("B3:B5000")) Is Nothing Then
        If Not cmdBtn Is Nothing Then cmdBtn.Delete
        Exit Sub
    End If
    
    ' 先删除已存在的旧菜单，确保每次右键都生成新内容
    If Not cmdBtn Is Nothing Then cmdBtn.Delete
    
    ' 改用Target获取当前右键单元格的关联数据，替代ActiveCell
    forename = Target.Offset(0, 2).Value
    surname = Target.Offset(0, 1).Value
    param = Target.Value ' 获取当前右键单元格的值作为参数
    
    ' 创建新的右键菜单项
    Set cmdBtn = Application.CommandBars("Cell").Controls.Add(Temporary:=True)
    With cmdBtn
        .Tag = "testBt"
        .Caption = forename & " " & surname & " Breakdown"
        .Style = msoButtonCaption
        .OnAction = "'TestMacro """ & param & """'"
    End With
End Sub

修改说明 #

1. 强制更新菜单：在目标范围内右键时，先删除已存在的旧菜单，再重新创建，确保每次右键都加载当前单元格的最新信息
2. 替换数据源：将ActiveCell改为Target，直接使用右键点击的单元格对象获取关联数据，避免ActiveCell与右键目标不一致的问题
3. 逻辑优化：调整代码顺序，确保删除旧菜单的逻辑优先于新菜单创建，彻底避免旧内容残留

调用的宏代码保持不变：

Sub TestMacro(str As String)
   MsgBox "It works... (" & str & ")"
End Sub

内容的提问来源于stack exchange，提问作者Alan Tingey