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

如题所述

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

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

1
2
3

Sub test()
MsgBox VarType([a1])
End Sub

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

1
2
3
4
5
6
7

Sub test()
If VarType([a1]) = vbDouble Then
MsgBox "A1是数值类型"
Else
MsgBox "A1不是数值类型"
End If
End Sub

实际上VB还有vbLong、vbDecimal等类型,但单元格为数值时默认是vbDouble。
温馨提示:内容为网友见解,仅供参考
无其他回答

在excel VBA中如何判定单元格中的数据类型是整数还是其他呢?
在VBA里面,可以使用VarType获得变量以及单元格的数据类型,数值类型值为5(vbDouble)、空类型为0(vbEmpty)、字符串类型为8(vbString )。例子代码1:显示A1单元格的数据类型 1 2 3 Sub test()MsgBox VarType([a1])End Sub 例子代码2:判断A1单元格数据类型是否数值 1 2 3 4 5 6 7 Sub t...

Excel VBA中 单元格格式和数据类型的关系
在VBA中的引用单元格数据时,数据类型由VBA中确定,当数据能转换时就直接赋值,不能转换时出现数据类型不匹配错误。举例来说,在单元格中输入4.56 数据,格式设为文本型,当在VBA中引用时,赋给整数型Long Integer结果是 5(自动四舍五入),Double型结果为 4.56,String型结果是"4.56"。实际中不...

excel中如何用VBA判断一个单元格的内容是不是数字?
还有1种是用Excel的函数:判断 A1单元格 T= Application.WorksheetFunction.IsNumber(Range("a1"))如果 T 返回True 则为数字,否则不是

EXCEL VBA中,如何判断数据类型?
1、第一步,同时按“ win + R”键,在“运行”的对话框中输入“ excel”,然后按Enter键打开新的excel文档,见下图,转到下面的步骤。2、第二步,执行完上面的操作之后,依次单击“开发工具”-->“ Visual Basic”工具栏,见下图,转到下面的步骤。3、第三步,执行完上面的操作之后,在左侧工...

excel vba,如何判断A2单元格中的字符串是否为10位纯数字,如果不符合条 ...
Sub test() m = 0For i = 1 To Len([a2]) If InStr(1, "0123456789", MID([A2],I,1)) = 1 Then m = m + 1NextIf m <> 10 Then MsgBox [a2] & "不是纯数字" Else MsgBox [a2] & "是纯数字"End Sub

Excel VBA入门(一)数据类型
1. 字符串:字符串用于保存文本数据,内容应放在双引号内。2. 数字类型:VBA中有四种数字数据类型:整型(Integer)、长整型(Long)、单精度浮点型(Single)、双精度浮点型(Double)。整型和长整型用于整数,单精度和双精度浮点型用于小数。整型与长整型的区别在于数值范围不同。单精度浮点数与双精度...

Excel使用vba 如何检查输入是否是数字
1、首先在开发工具中打开VBA编辑器。2、在单元格区域当中输入一些内容作为例子。3、在VBA编辑器中插入模块。4、在模块当中输入如下代码,然后运行Private Sub TextBox2_Change()Dim iStr As String, iLast As IntegeriStr=Me.TextBox2If Len(iStr) > 0 TheniLast=Asc(Right(iStr, 1)) If i...

excel如何用vba判断A1的内容是不是100(常规格式,非数值)?
判断是不是100……用=if(a1=100,1,0) 不就可以了……要是想我这么偷懒……直接用=a1=100 的布尔运算也可以啊。。为什么要用vba

excel vba 如何判断单元格中是否含有小数点?
VBA中Like运算符用于判断给定的字符串是否与指定的模式相匹配,其语法为:结果=<字符串> Like <模式>,用通配符星号“*”来代替任意值,代码如下:Sub tst()If Range("a1") Like "*.*" ThenMsgBox ("A1含有小数点")Else: MsgBox ("A1 不 含有小数点")End IfEnd Sub ...

vba如何读取excel中某单元格的行数或列数
1、将单元格所选单元格的行号和列号,分别用VBA显示在下面的两个单元格中,如下图所示:2、按下Alt+F11,打开VBA编辑界面,选择当前工作表编写代码,如下图所示:3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中:4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个...

相似回答