Блокировать текстовое поле только из номеров VBA

Question

Я хочу ограничить текстовое поле только цифрами, это означает, что мне нужны любые «буквы» и специальные символы, кроме цифр

Это то, что у меня есть на самом деле: Примечание: ... этот фрагмент работает только для буквы, я даже не могу использовать знаки препинания

Private Sub TxtActividade_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   Select Case KeyAscii
      Case 32, 65 To 90, 97 To 122 ''122
      Case Else
         KeyAscii = 0
         MsgBox "Only letters and special characteres", vbInformation, "Validation"
   End Select
End Sub

Answer 1

Если вы хотите исключить числа из введенных, то сделайте следующее:

Private Sub TxtActividade_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   Select Case KeyAscii
      Case 48 To 57
         KeyAscii = 0
         MsgBox "Only letters and special characteres", vbInformation, "Validation"
   End Select
End Sub

Значения KeyAscii между 48 и 57 являются числами, а KeyAscii = 0 фактически говорит об отмене нажатия клавиши.