第42集 数据类型与转换
180、 数据类型综述
在VBA中的数据类型有整数、文本、对象等类型。这些不同的类型有着特定的作用，在进行运算时也会占用不同大小的内存，所以我们在编写程序时为了提高运行效率，一般都要定义数据的类型。
181、 数据类型检查-判断是否为空
TypeName函数：返回一个 String，提供有关变量的信息
语法：TypeName(varname)
必要的 varname 参数是一个 Variant，它包含用户定义类型变量之外的任何变量。
'1 检查是否为空
Sub s1()
Debug.Print Range(“a1”) = “” '判断真空,无法判断假空
Debug.Print Len(Range(“a1”)) = 0 '判断真空，无法判断假空
Debug.Print VBA.IsEmpty(Range(“a1”)) '假空时返回FALSE
Debug.Print VBA.TypeName(Range(“a1”).Value) '返回Empty表示为空
End Sub
182、 数据类型检查-判断是否为数字
'2 检查是否为数字
Sub s2()
Debug.Print VBA.IsNumeric(Range(“a1”))
Debug.Print Application.WorksheetFunction.IsNumber(Range(“A1”))
Debug.Print VBA.TypeName(Range(“A1”).Value)
Debug.Print Range(“a1”).Value Like “#” '判断一位整数
Debug.Print Range(“a1”) Like “#” '判断是否包含数字
End Sub
183、 数据类型检查-判断是否为文本
'3 检查是否为文本
Sub t3()
Debug.Print Application.IsText(Range(“a1”))
Debug.Print “B” Like “[A-Za-z]” '判断是否为字母
Debug.Print Len(Range(“a1”))
Debug.Print Range(“a1”) Like “[一－龥]” '判断字符串中是否包含汉字
End Sub
184、 数据类型检查-判断结果是否为错误值
Sub s4()
Debug.Print VBA.IsError(Range(“a1”))
Debug.Print TypeName(Range(“a1”).Value)
End Sub
185、 数据类型检查-判断是否为数组
Sub s5()
Dim arr
arr = Range(“A1:A2”)
Erase arr
Debug.Print VBA.IsArray(arr)
End Sub
186、 数据类型检查-判断是否为日期
Sub s6()
Debug.Print VBA.IsDate(Range(“a2”))
End Sub
187、 数据类型转换-类型转换函数
类型转换函数：CBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng, CSng, CStr, CVar
上述函数是把表达式转换成相对应的数字类型，比如clng转换成长整型,cstr转换成文本型。
Sub ss1()
Dim s As Integer
s = 2334
MsgBox 截取(CStr(s)) '因为自定义函数参数要求是文本类型，而s是数值类型，所以需要用cstr转换成文本类型
End Sub
Function 截取(x As String)
截取 = Left(x, 2)
End Function
188、 数据类型转换-Format函数
Format函数用法等同于工作表中的text函数，可以格式化显示数字或文本
Sub ss3()
Dim n, n1
n = 234.3372
n1 = 41105
Debug.Print Format(n, “0.00”)
Debug.Print Format(n, “0”)
Debug.Print Format(n, “\价格:0.00”)
Debug.Print Format(n1, “yyyy-mm-dd”)
End Sub
