excel vba检查输入文本中的希伯来语，使用按键ASCII

在我的Excel-2013 VBA项目中，我有一个带有文本框的用户表单。我需要这个文本框只接受数字、A-Z、A-Z和27个希伯来文字母

Private Sub my_TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If (Not (KeyAscii > 47 And KeyAscii < 58))  And _          <= 0-9
       (Not (KeyAscii > 64 And KeyAscii < 91))  And _          <= A-Z
       (Not (KeyAscii > 96 And KeyAscii < 123)) And _          <= a-z
       (Not (KeyAscii > 127 And KeyAscii < 155)) Then          <= Hebrew
          KeyAscii = 8
          Beep
    End If
End Sub

Private Sub my_TextBox_KeyPress（ByVal keyscii作为MSForms.ReturnInteger）
如果（不是（keyscii>47和keyscii<58）和64和keyscii<91）和96和keyscii<123）和127和keyscii<155）），那么Dirk Reichel给了我一个简单的想法，即调试和检查在我的文本框中输入希伯来语字符时进入的内容。

这就是为什么我发现ASCII中的希伯来字母在1488和1514之间

我现在的代码是：

Private Sub my_TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If (Not (KeyAscii > 47 And KeyAscii < 58))  And _          <= 0-9
      (Not (KeyAscii > 64 And KeyAscii < 91))  And _          <= A-Z
      (Not (KeyAscii > 96 And KeyAscii < 123)) And _          <= a-z
      (Not (KeyAscii > 1487 And KeyAscii < 1515)) Then        <= Hebrew
         KeyAscii = 8
         Beep
   End If
End Sub  

Private Sub my_TextBox_KeyPress（ByVal keyscii作为MSForms.ReturnInteger）
如果（不是（keyscii>47和keyscii<58）和64和keyscii<91）和96和keyscii<123）和1487和keyscii<1515），则尝试更改字体或检查keyscii数字是什么您尝试过
Debug.Print keyscii
？它应该告诉你用了什么…@Dirk Reichel-非常感谢你，Dirk。（我自己应该想到的…）。似乎ASCII中的希伯来字母表介于1488和1514之间。现在一切正常。再次感谢！