Excel中Application.OnKey仅触发一次求助：小键盘小数点映射冒号失效

问题背景 #

需要将小键盘的小数点键（按键码{110}）映射为冒号，当前实现仅能触发一次：切换到目标工作表时首次按键可输出冒号，但之后按键恢复为小数点；切换到其他工作表时按键功能正常恢复为小数点。现有代码如下：

目标工作表模块代码：

Private Sub Worksheet_Activate()
Application.OnKey "{110}", "colonb"   ' numpad decmal
MsgBox "hello"
End Sub

Private Sub Worksheet_Deactivate()
 Application.OnKey "{110}"            
 MsgBox "bye"
End Sub                 

工作簿模块代码：

Sub colonb()
MsgBox ("???")
Application.SendKeys (":")
Sendkeys "{NUMLOCK}", True
End Sub

问题原因 #

核心问题出在colonb过程中的SendKeys "{NUMLOCK}", True语句——NumLock状态的改变会导致Excel的Application.OnKey绑定失效，因为小键盘按键的扫描码会随NumLock状态变化而改变，原绑定的{110}在NumLock状态切换后不再对应原按键。

解决方案 #

不需要添加无限循环，只需要移除导致NumLock状态变化的代码，并优化映射逻辑：

1. 修改目标工作表模块代码（可移除调试用的MsgBox）：

Private Sub Worksheet_Activate()
    Application.OnKey "{110}", "colonb"   ' 绑定小键盘小数点键到colonb过程
End Sub

Private Sub Worksheet_Deactivate()
    Application.OnKey "{110}"            ' 解除绑定，恢复默认功能
End Sub

2. 修改工作簿模块的colonb过程：

Sub colonb()
    ' 直接发送冒号，无需修改NumLock状态
    Application.SendKeys ":"
End Sub

更稳定的替代方案（避免SendKeys延迟问题） #

如果遇到SendKeys的光标位置或延迟问题，可以改用直接插入文本的方式，更可靠：

Sub colonb()
    ' 针对单元格处于编辑状态的场景
    If TypeName(Selection) = "Range" Then
        If Application.Cursor = xlIBeam Then
            ' 单元格正在编辑，直接插入冒号
            SendKeys ":"
        Else
            ' 单元格未编辑，追加冒号到单元格内容末尾
            Selection.Value = Selection.Value & ":"
        End If
    End If
End Sub

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