VBA如何判断整数和其他，输出新的值？(在excel VBA中如何判定单元格中的数据类型是整数还是其他呢？)

• 在excel VBA中如何判定单元格中的数据类型是整数还是其他呢？
• 在VBA中如何判断一个数是正整数
• vba相关的判断正整数问题
• VBA 用inputbox函数 实现判断输入的数据是否为1到5之间的整数

在excel VBA中如何判定单元格中的数据类型是整数还是其他呢？

在VBA里面，可以使用VarType获得变量以及单元格的数据类型，数值类型值为5（vbDouble）、空类型为0（vbEmpty）、字符串类型为8（vbString ）。

例子代码1：显示A1单元格的数据类型

Sub test()

    MsgBox VarType([a1])

End Sub

例子代码2：判断A1单元格数据类型是否数值

Sub test()

    If VarType([a1]) = vbDouble Then

        MsgBox "A1是数值类型"

    Else

        MsgBox "A1不是数值类型"

    End If

End Sub

实际上VB还有vbLong、vbDecimal等类型，但单元格为数值时默认是vbDouble。

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

楼上多此一举

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

vba相关的判断正整数问题

do while (val(textbox2.value) <0 and val(textbox2.value) <> int(val(textbox2.value))

Msgbox "请输入正整数"

cancel = true

textbox2.setfocus

end do

VBA 用inputbox函数 实现判断输入的数据是否为1到5之间的整数

String 类型\r\n在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。\r\n如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。