如何保护文本框中的字符串？

Question

我有名为“txtPrice”的文本框有问题。我想从字符串保护这个文本框。如果我们输入一个字符串，它会显示我写的信息。但是如果我输入，例如“12r”，它什么也不做。

Dim i As Integer 
Dim s As Long 
i = Asc(txtPrice) 
If i < 48 or i> 57 then 'ascii number 
    MsgBox "Error" 
End If 

Answer 1

你到底在找什么？在属性下，您可以指定输入掩码。

如果你正在寻找一个号码，你可以试试If Not IsNumeric(txtPrice)。

如果你不希望任何字母，试试这个：

Dim intPos As Integer 

For intPos = 1 To Len(txtPrice) 
    Select Case Asc(Mid(txtPrice, intPos, 1)) 
     Case 65 To 90, 97 To 122 
      IsLetter = True 
     Case Else 
      IsLetter = False 
    End Select 
    If IsLetter Then Exit For 
Next intPos 

If IsLetter Then 
    MsgBox "Error" 
End If 

Answer 2

您还可以使用验证规则做这个文本框字段的属性中：

https://support.office.com/en-gb/article/Restrict-data-input-by-using-validation-rules-b91c6b15-bcd3-42c1-90bf-e3a0272e988d

你可以用这种方式限制数据输入。例如，您可以在验证规则属性中输入> = 0，然后在验证文本属性中输入“仅输入数字”。我已经使用了两种方法（vba作为以前的答案）和访问验证规则，两者都很好。