VB常用函数

CStr函数示例 CStr函数示例
语句 Dim number As Long number = 1234567890 Debug.Print "number的值为" + CStr(number) Dim number1 As Integer number1 = -10 Debug.Print "number1的值为" + CStr(number1) Dim number2 As Boolean number2 = True Debug.Print "number2的值为" + CStr(number2) Dim number3 As String number3 = "文字" Debug.Print "number3的值为" + CStr(number3) Dim number6 As String number6 = Empty Debug.Print "number6的值为" + CStr(number6) Dim number4 number4 = Now() Debug.Print "number4的值为" + CStr(number4) // 这里会出现错误 Dim number5 As Workbook www.hilti.com Debug.Print "number5的值为" + CStr(number5) 输出 number的值为1234567890 number1的值为-10 number2的值为True number3的值为文字 number6的值为 number4的值为2008-9-15 20:45:11
VB常用函数 VB常用函数
百度文库
www.hilti.com
Excel Workshop Aug 14 2009 1
VB函数介绍 VB函数介绍
VB和VBA中，函数由函数名，参数和返回值组成，函数名称一般遵循骆驼命名法，参 数在函数名后的小括号中。一般函数要求有返回值，返回值的类型有Byte， Boolean,Integer,Long,Currency,Decimal,Single,Double,Date,String,Object,Varient(默 认)和用户自定义类型等。如果使用函数定义的变量和返回值的类型不同，将导致程序 错误。 为了方便程序员书写函数，VB提供了许多内部函数，如果掌握它们的使用将给编程带 来事半功倍的效果。本章将主要介绍这些函数。
www.hilti.com Excel Workshop Aug 14 2009 8
字符串函数
www.hilti.com
Excel Workshop Aug 14 2009 9
Space:返回特定数目的空格 Space:返回特定数目的空格
当需要一定长度的空格时,这个函数有些用处. Dim str As String str = VBA.Space(8) Debug.Print "str=" + str + "."
www.hilti.com
Excel Workshop Aug 14 2009 4
CLng： CLng：将字符串形式的文本转换为长整形数
CLng函数能将字符串形式的数字转换成Long类型的变量，字符串包含的数字范围在正负 二十一亿之间，小数部分将四舍五入。示例如下： Dim number As Long number = CLng("123456789.5") Debug.Print number 输出如下： 123456790
www.hilti.com
Excel Workshop Aug 14 2009 10
String(数字,字符串) String(数字,字符串) 数字
这个函数能将字符串包括的第一个字符按指定数字重复的字符串. 示例如下: Dim str As String str = VBA.String(8, "*") Debug.Print "str=" + str str = VBA.String(8, "China") Debug.Print "str=" + str 输出如下: str=******** str=CCCCCCCC
www.hilti.com
Excel Workshop Aug 14 2009 15
自定义函数clearReturn，用于消除字符串中的回车换行符 ， 自定义函数
Public Function clearReturn(str As String) As String str = Replace(str, Chr(10), "") str = Replace(str, Chr(13), "") clearReturn = str End Function
www.hilti.com
Excel Workshop Aug 14 2009 16
Left,Right
Left,Right能取得指定字符串从左或从右算起固定长度的字符串. 示例代码: Sub test7() Dim str As String str = "Beiging to Dalian" Dim result As String result = VBA.Left(str, 7) Debug.Print "result =" + result result = VBA.Right(str, 6) Debug.Print "result =" + result End Sub 输出: result =Beiging result =Dalian
www.hilti.com
Excel Workshop Aug 14 2009 2
类型转换函数
www.hilti.com
Excel Workshop Aug 14 2009 3
Cint： Cint：将字符串形式的文本转换为整形数
Cint函数能将字符串形式的数字转换成Integer类型的变量，字符串包含的数字范围在32768到32767之间，小数部分将四舍五入。示例如下： Dim number As Integer number = CInt("23.45") Debug.Print number Dim strAge As String strAge = "35" Dim age As Integer age = CInt(strAge) Debug.Print age 输出如下： 23 35
Excel Workshop Aug 14 2009 7
Val:返回包含于字符串内的数字 Val:返回包含于字符串内的数字
字符串是任何有效的字符串表达式.在函数不能识别为数字的第一个字符上,停止读入字符 串.然后将数字返回. 示例: Dim doubleValue As Double doubleValue = Val("1234") Debug.Print "doubleValue的值为" + CStr(doubleValue) doubleValue = Val("1234.56") Debug.Print "doubleValue的值为" + CStr(doubleValue) doubleValue = Val("1234f56") Debug.Print "doubleValue的值为" + CStr(doubleValue) doubleValue = Val("d1234.5676") Debug.Print "doubleValue的值为" + CStr(doubleValue) 输出: doubleValue的值为1234 doubleValue的值为1234.56 doubleValue的值为1234 doubleValue的值为0
Cstr函数返回值 函数返回值
含有数值的字符串 含有True或False的字符串 或 含有 的字符串 含有系统中短格式日期的字符串 一个运行时错误 一个零长度字符串 包含单词Error以及错误号的字符串 以及错误号的字符串 包含单词
www.hilti.com
Excel Workshop Aug 14 2009 6
www.hilti.com
Excel Workshop Aug 14 2009 11
Instr函数 Instr函数
Instr能返回一个字符串在另一字符串中出现的位置. 示例代码: Dim str1 As String Dim str2 As String Dim pos As Long str1 = "abcdefg" str2 = "abc" pos = InStr(str1, str2) Debug.Print str2 + "在" + str1 + "第一次出现的位置是" + CStr(pos) " " " " str2 = "de" pos = InStr(str1, str2) Debug.Print str2 + "在" + str1 + "第一次出现的位置是" + CStr(pos) str2 = "hij" pos = InStr(str1, str2) Debug.Print str2 + "在" + str1 + "第一次出现的位置是" + CStr(pos) 输出: abc在abcdefg第一次出现的位置是1 de在abcdefg第一次出现的位置是4 hij在abcdefg第一次出现的位置是0
www.hilti.com
Excel Workshop Aug 14 2009 5
CStr： CStr：将函数参数中的表达式值转换为字符串
CStr函数能将将函数参数中的表达式值转换为字符串，返回值类型为String 表达式值和Cstr返回值的对照表
表达式的值的类型
其他数值 boolean Date Null Empty Error
www.hilti.com
Excel Workshop Aug 14 2009 14
Replace函数 Replace函数
Replace函数能把一个字符串中的子串替换成另一个字符串,它返回替换后的结果. 使用示例: Sub test6() Dim str As String str = "Beiging to Dalian" Dim result As String result = Replace(str, "to", "from") Debug.Print "str =" + str Debug.Print "result=" + result End Sub 输出: str =Beiging to Dalian result=Beiging from Dalian
www.hilti.com Excel Workshop Aug 14 2009 13
LCase,UCase
LCase,UCase函数能将字符串变成全小写形式或是全大写形式: 示例如下: Sub test5() Dim str As String str = "abc123DEF" Debug.Print "小写形式为" + VBA.LCase(str) Debug.Print "大写形式为" + VBA.UCase(str) End Sub 输出为: 小写形式为abc123def 大写形式为ABC123DEF
www.hilti.com Excel Workshop Aug 14 2009 12
自己书写的Contains函数 自己书写的Contains函数 Contains
由于instr函数使用不变,我们可以编写一个自己的函数Contains用来判断一个字符串是否 在另一个字符串中存在. Sub test4() Debug.Print contains("abcdefg", "abc") Debug.Print contains("abcdefg", "de") Debug.Print contains("abcdefg", "hij") End Sub '//----------------------------------------------------------------'// 判断str2是否在str1中存在 '//----------------------------------------------------------------Public Function contains(str1 As String, str2 As String) As Boolean contains = (InStr(str1, str2) > 0) End Function 输出: True True False