Excel/VBA中如何在Application.OnKey内调用单元格值绑定VBA过程？

你需要将Range调用移出字符串引号，直接把单元格取值作为参数传入Application.OnKey即可，VBA不会解析双引号包裹内容里的代码表达式，你的原写法会把整个Range("aCell").Value当成按键名，自然无法生效。

基础实现代码 #

Sub BindCustomShortcut()
    Dim targetKey As String
    ' 读取配置单元格的内容作为快捷键
    targetKey = Range("aCell").Value
    
    ' 跳过空值避免无效绑定
    If Trim(targetKey) <> "" Then
        ' 绑定快捷键到GO过程
        Application.OnKey Key:=targetKey, Procedure:="GO"
    End If
End Sub

配置规则 #

单元格内填写的快捷键格式和直接写在Application.OnKey参数里的格式完全一致：

• 普通字母/数字直接填对应字符即可，比如要绑定a键，单元格填a
• 组合键对应标识：Ctrl用^、Shift用+、Alt用%，比如绑定Ctrl+Shift+A就填^+a
• 功能键/特殊键用大括号包裹，比如F5填{F5}、回车填{ENTER}、退格填{BACKSPACE}

常用配套逻辑 #

1. 工作簿打开自动绑定 #

把绑定逻辑放到ThisWorkbook的Workbook_Open事件中，打开文件后自动加载配置：

Private Sub Workbook_Open()
    BindCustomShortcut
End Sub

2. 动态更新快捷键 #

如果需要修改单元格配置后立即生效，在配置所在工作表的Worksheet_Change事件中加入解绑旧快捷键、绑定新快捷键的逻辑即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听配置单元格的变更
    If Not Application.Intersect(Target, Me.Range("aCell")) Is Nothing Then
        Dim oldKey As String, newKey As String
        ' 读取修改前的旧快捷键（可提前把旧值存在其他隐藏单元格或者变量里）
        oldKey = Me.Range("aCell").Comment.Text ' 示例：旧值存在单元格批注里，可根据自己的逻辑调整
        ' 先解绑旧快捷键
        If Trim(oldKey) <> "" Then
            Application.OnKey Key:=oldKey, Procedure:=""
        End If
        ' 绑定新快捷键
        newKey = Me.Range("aCell").Value
        If Trim(newKey) <> "" Then
            Application.OnKey Key:=newKey, Procedure:="GO"
            ' 更新存储的旧快捷键
            Me.Range("aCell").Comment.Text Text:=newKey
        End If
    End If
End Sub

注意事项 #

• 单元格内容格式不符合Application.OnKey要求时会触发运行时错误，建议加错误捕获逻辑
• 关闭工作簿时建议解绑自定义快捷键，避免影响其他Excel文件的使用

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