Question

Excel VBA里限制文本框里的输入的数据为正整数，如果不是正整数提示错误。

Answer 1

假设有文本框TextBox1
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

加上这个代码，文本框里信悔就只能输入正整数了，不用判断。

非要判断的话用这个代码，错误提示在滑手正A1里面表示
Private Sub TextBox1_Change()
If Val(TextBox1.Text) > 0 And InStr(TextBox1.Text, ".") = 0 Then
Range("A1").Value = "整数"
Else
Range("A1").Value = "非正整数薯唯"
End If
End Sub

Answer 2

假设以A1为例，
Sub test()
With Range("A1")
If IsNumeric(.Value) Then
If Int(.Value) <> .Value Then MsgBox "不是整数"
If .Value < 0 Then MsgBox "不是唤纯薯和者正整数"
Else
MsgBox "不是裤慧数字"
End If
End With
End Sub

Answer 3

With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreater, Formula1:="0"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
就州盯是实现笑基一碰迹谨下数据有效性

追问

请问你这是用的什么语言，我用的是VBA，有点不一样。

追答

就是VBA 不过是在excel单元格里输入的...

追问

能说说具体用法吗？我还不太会用这个。

追答

比如我想通过一个按钮实现A1到A20的单元格中只能输入正整数 就设一个按钮然后和下面这个宏关联上
Sub RoundedRectangle1_Click()
Range("A1:A20").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreater, Formula1:="0"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
同理再设一个按钮2关联上下面的宏就能把数据有效性关上
Sub RoundedRectangle2_Click()
Range("A1:A20").Select
With Selection.Validation
.Delete
End With
End Sub

追问

明白了。