在VBA中如何判断一个数是正整数

Answer 1

public function ChargeInt(byval ChargeNumber as String)as boolean
if not isNumberic(ChargeNumber) then
msgbox "请输入整数!"
exit function
end if
if CDBl(ChargeNumber)<0 then
msgbox "数据应为正数!"
exit function
end if
if ChargeNumber like "*.*[1-9]" then
ChargeInt = True
else
ChargeInt = False
end if
end function
你试下

Answer 2

楼上多此一举
Function chkint(Nums As Range) As Boolean
If Int(Nums) = Nums And Nums > 0 And WorksheetFunction.IsNumber(Nums) Then
chkint = True
Else
chkint = False
End If

End Function