如何用Excel VBA宏拦截工作表按键，仅允许输入0-9数字且无需遍历其他按键？

完全可行，不用OnKey方法也能做到，直接利用工作表的KeyPress事件就能拦截非数字按键，具体实现如下：

步骤与代码 #

1. 打开Excel，按下Alt + F11打开VBA编辑器
2. 在左侧工程窗口里找到你要限制的工作表，双击打开它的代码窗口
3. 粘贴以下VBA代码：

Private Sub Worksheet_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ' 仅允许0-9的数字按键（对应ASCII码48-57）
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0 ' 取消非数字按键的输入动作
    End If
End Sub

这段代码逻辑很直接：每次在该工作表按下按键时，事件会捕获按键的ASCII码，只要不是0-9对应的编码，就直接取消这次输入，相当于忽略了非数字按键。

如果需要允许退格键（方便删除已输入内容），可以修改代码加入退格键的判断（退格键ASCII码为8）：

Private Sub Worksheet_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ' 允许0-9数字和退格键
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        KeyAscii = 0
    End If
End Sub

关于Mac设备运行Windows系统的兼容性 #

你是在Mac上运行Windows系统，本质上使用的是Windows版Excel，上述VBA代码在Windows环境下完全兼容，不会有任何影响，和普通Windows电脑上的运行效果一致。

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