1 VBA中的字符串
2 VBA中处理字符串的函数
2.1 比较字符串
2.2 转换字符串
2.3 创建字符串
2.4 获取字符串的长度
2.5 格式化字符串
2.6 查字符串
2.7 提取字符/字符串
2.8 删除空格
2.9 返回字符代码
2.10 返回数值代表的相应字符
2.11 使用字节的函数
2.12 返回数组的函数
2.13 连接字符串
2 VBA中处理字符串的函数
2.1 比较字符串
2.2 转换字符串
2.3 创建字符串
2.4 获取字符串的长度
2.5 格式化字符串
2.6 查字符串
2.7 提取字符/字符串
2.8 删除空格
2.9 返回字符代码
2.10 返回数值代表的相应字符
2.11 使用字节的函数
2.12 返回数组的函数
2.13 连接字符串
2.14 替换字符串
2.15 反向字符串
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2.15 反向字符串
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1 VBA中的字符串
VBA不仅可以处理数字，也可以处理文本(字符串)。VBA提供了两类字符串：
一类为固定长度的字符串，声明时包含指字的字符数。例如，下面的语句
Dim strFixedLong As String*100
声明字符串变量后，无论赋予该变量多少个字符，总是只包含100个字符，但字符串最长不超过65526个字符，且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。
另一类为动态字符串。例如，声明字符串变量Dim strDynamic As String后，可以给该变量任意赋值，最多可包含20亿个字符。
VBA不仅可以处理数字，也可以处理文本(字符串)。VBA提供了两类字符串：
一类为固定长度的字符串，声明时包含指字的字符数。例如，下面的语句
Dim strFixedLong As String*100
声明字符串变量后，无论赋予该变量多少个字符，总是只包含100个字符，但字符串最长不超过65526个字符，且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。
另一类为动态字符串。例如，声明字符串变量Dim strDynamic As String后，可以给该变量任意赋值，最多可包含20亿个字符。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2 VBA中处理字符串的函数
2 VBA中处理字符串的函数
2.1 比较字符串
通常，在VBA中进行字符串比较时，会用到比较运算符(如=、>等)、Like运算符和StrComp函数。此外，在模块的开头用Option Compare语句指定比较方式。
2.1.1 比较运算符
可以采用简单的逻辑运算符进行两个字符串的比较，即<(小于)、<=(小于或等于)、>(大于)、>=(大于或等于)、=(等于)、<>(不等于)。此外，还可以使用Like运算符进行比较。
2.1.2 StrComp函数
StrComp函数返回字符串比较的结果。其语法为：
StrComp(string1,string2[,compare])
其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。
参数Compare为可选参数，如果该参数为Null，将发生错误。如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数，将使用Option Compare语句设置进行比较；如果忽略该参数且没有设置Option Compare语句，则按二进制进行比较；如果参数Compare设置为常数vbBinaryCompare或0，则用二进制进行比较；如果参数Compare设置为常数vbTextCompare或1，则按文本进行比较；如果参数Compare设置为常数vbDatab
通常，在VBA中进行字符串比较时，会用到比较运算符(如=、>等)、Like运算符和StrComp函数。此外，在模块的开头用Option Compare语句指定比较方式。
2.1.1 比较运算符
可以采用简单的逻辑运算符进行两个字符串的比较，即<(小于)、<=(小于或等于)、>(大于)、>=(大于或等于)、=(等于)、<>(不等于)。此外，还可以使用Like运算符进行比较。
2.1.2 StrComp函数
StrComp函数返回字符串比较的结果。其语法为：
StrComp(string1,string2[,compare])
其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。
参数Compare为可选参数，如果该参数为Null，将发生错误。如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数，将使用Option Compare语句设置进行比较；如果忽略该参数且没有设置Option Compare语句，则按二进制进行比较；如果参数Compare设置为常数vbBinaryCompare或0，则用二进制进行比较；如果参数Compare设置为常数vbTextCompare或1，则按文本进行比较；如果参数Compare设置为常数vbDatab
aseCompare或2，此时仅适用于Microsoft Access，进行基于数据库信息的比较。
StrComp函数的返回值为：如果String1<String2，则返回值为-1；如果String1=String2，则返回值为0；如果String1>String2，则返回值为1；如果String1或String2为Null，则返回值为Null。
看看下面的示例：
Sub testStringCompare()
Dim MyStr1 As String, MyStr2 As String, MyComp1, MyComp2, MyComp3, MyComp4
MyStr1 = "ABCD"
MyStr2 = "abcd"
MyComp1 = StrComp(MyStr1, MyStr2, 1) ' 返回 0
MyComp2 = StrComp(MyStr1, MyStr2, 0) ' 返回 -1
MyComp3 = StrComp(MyStr1, MyStr2) ' 返回 -1
MyComp4 = StrComp(MyStr2, MyStr1) '返回1
MsgBox "StrComp(MyStr1, MyStr2, 1)的结果为:" & MyComp1
MsgBox "StrComp(MyStr1, MyStr2, 0)的结果为:" & MyComp2
StrComp函数的返回值为：如果String1<String2，则返回值为-1；如果String1=String2，则返回值为0；如果String1>String2，则返回值为1；如果String1或String2为Null，则返回值为Null。
看看下面的示例：
Sub testStringCompare()
Dim MyStr1 As String, MyStr2 As String, MyComp1, MyComp2, MyComp3, MyComp4
MyStr1 = "ABCD"
MyStr2 = "abcd"
MyComp1 = StrComp(MyStr1, MyStr2, 1) ' 返回 0
MyComp2 = StrComp(MyStr1, MyStr2, 0) ' 返回 -1
MyComp3 = StrComp(MyStr1, MyStr2) ' 返回 -1
MyComp4 = StrComp(MyStr2, MyStr1) '返回1
MsgBox "StrComp(MyStr1, MyStr2, 1)的结果为:" & MyComp1
MsgBox "StrComp(MyStr1, MyStr2, 0)的结果为:" & MyComp2
MsgBox "StrComp(MyStr1, MyStr2)的结果为:" & MyComp3
MsgBox "StrComp(MyStr2, MyStr1)的结果为:" & MyComp4
End Sub
示例说明：如果StrComp函数的第三个参数值为1，则以文本比较的方式进行字符串比较；如果第三个参数值为0或忽略该参数，则以二进制比较的方式进行字符串比较。注意，文本比较的方式不区分字母大小写，而二进制比较方式则区分大小写。
[编程方法和技巧] 完成一次简单的单一比较，如
If UCase(sString1)<UCase(sString2) Then
比使用StrComp函数：
If StrComp(sString1,sString2,vbTextCompare)=-1 Then
在性能上要提高30%，且更容易阅读和理解。
2.2 转换字符串
2.2.1 StrConv函数
使用StrConv函数来按指定类型转换字符串。其语法为：
StrConv(string,conversion,LCID)
MsgBox "StrComp(MyStr2, MyStr1)的结果为:" & MyComp4
End Sub
示例说明：如果StrComp函数的第三个参数值为1，则以文本比较的方式进行字符串比较；如果第三个参数值为0或忽略该参数，则以二进制比较的方式进行字符串比较。注意，文本比较的方式不区分字母大小写，而二进制比较方式则区分大小写。
[编程方法和技巧] 完成一次简单的单一比较，如
If UCase(sString1)<UCase(sString2) Then
比使用StrComp函数：
If StrComp(sString1,sString2,vbTextCompare)=-1 Then
在性能上要提高30%，且更容易阅读和理解。
2.2 转换字符串
2.2.1 StrConv函数
使用StrConv函数来按指定类型转换字符串。其语法为：
StrConv(string,conversion,LCID)
其中，参数string为要转换的字符串，参数conversion为指定转换的类型，参数LCID为可选参数。
如果将参数conversion设置为vbUpperCase或1，则将字符串转换成大写；设置为vbLowerCase或2，则将字符串转换成小写；设置为vbProperCase或3，则将字符串中每个字的开头字母转换成大写；设置为vbUnicode或64，则根据系统的缺省码页将字符串转换成Unicode；设置为vbFromUnicode或128，则将字符串由Unicode转换成系统的缺省码页。
在将ANSI格式的Byte数组转换成字符串时，应使用StrConv函数；转换Unicode格式的数组时，使用赋值语句。下面的例子使用StrConv函数将Unicode字符串转换成ANSI字符串：
Sub testConverseString()
Dim i As Long
Dim x() As Byte
x = StrConv("ABCDEFG", vbFromUnicode) ' 转换字符串。
For i = 0 To UBound(x)
Debug.Print x(i)
如果将参数conversion设置为vbUpperCase或1，则将字符串转换成大写；设置为vbLowerCase或2，则将字符串转换成小写；设置为vbProperCase或3，则将字符串中每个字的开头字母转换成大写；设置为vbUnicode或64，则根据系统的缺省码页将字符串转换成Unicode；设置为vbFromUnicode或128，则将字符串由Unicode转换成系统的缺省码页。
在将ANSI格式的Byte数组转换成字符串时，应使用StrConv函数；转换Unicode格式的数组时，使用赋值语句。下面的例子使用StrConv函数将Unicode字符串转换成ANSI字符串：
Sub testConverseString()
Dim i As Long
Dim x() As Byte
x = StrConv("ABCDEFG", vbFromUnicode) ' 转换字符串。
For i = 0 To UBound(x)
Debug.Print x(i)
Next
End Sub
下面的例子将句子中每个词语的首字母转换为大写：
Sub testConverseString2()
Debug.Print StrConv("my book is this book.", vbProperCase)
End Sub
程序运行后，在VBE窗口中的立即窗口中将会看到上述结果。
下面的示例演示了如何把一个字符串转换为字节数组，以便使用在API函数调用中：
Sub Test()
Dim byArray() As Byte
Dim sString As String
sString = "Some stuff"
byArray = StrConv(sString, vbFromUnicode)
End Sub
StrConv函数将下面的字符看成是字的分隔符：
End Sub
下面的例子将句子中每个词语的首字母转换为大写：
Sub testConverseString2()
Debug.Print StrConv("my book is this book.", vbProperCase)
End Sub
程序运行后，在VBE窗口中的立即窗口中将会看到上述结果。
下面的示例演示了如何把一个字符串转换为字节数组，以便使用在API函数调用中：
Sub Test()
Dim byArray() As Byte
Dim sString As String
sString = "Some stuff"
byArray = StrConv(sString, vbFromUnicode)
End Sub
StrConv函数将下面的字符看成是字的分隔符：
Null：Chr$(0)
水平制表符：Chr$(9)
换行符：Chr$(10)
垂直制表符：Chr$(11)
换页符：Chr$(12)
回车符：Chr$(13)
空格：Chr$(32)
[编程方法和技巧] 在使用API时该函数很重要，很多程序调用都要求传递给它们Unicode字符，或者赋给返回变量Unicode字符。
2.2.2 Str函数
将数值转换成字符串，即返回代表一个数值的字符串。其语法为：
Str(number)
当一个数字转成字符串时，总会在前面保留一个空位来表示正负，即字符串的第一位一定是空格或正负号。如果参数number为正，返回的字符串前面包含一空格。Str函数将句点(.)作为有效的小数点。示例如下：
水平制表符：Chr$(9)
换行符：Chr$(10)
垂直制表符：Chr$(11)
换页符：Chr$(12)
回车符：Chr$(13)
空格：Chr$(32)
[编程方法和技巧] 在使用API时该函数很重要，很多程序调用都要求传递给它们Unicode字符，或者赋给返回变量Unicode字符。
2.2.2 Str函数
将数值转换成字符串，即返回代表一个数值的字符串。其语法为：
Str(number)
当一个数字转成字符串时，总会在前面保留一个空位来表示正负，即字符串的第一位一定是空格或正负号。如果参数number为正，返回的字符串前面包含一空格。Str函数将句点(.)作为有效的小数点。示例如下：
MyString = Str(459) ' 返回 " 459"
MyString = Str(-459.65) ' 返回 "-459.65"
MyString = Str(459.001) ' 返回 " 459.001"
[编程方法和技巧] 使用LTrim函数可删除Str函数在返回的字符串开头添加的前导空格。此外，CStr函数和Format函数已经取代了Str函数，CStr函数不用为正数的符号而添加前导空格，Format函数能够用来识别小数点。
2.2.3 CStr函数
CStr将数值表达式转换成String数据类型。示例如下：
MyDouble = 437.324 ' MyDouble 为 Double 类型
MyString = CStr(MyDouble) ' MyString 的内容为"437.324"
[编程方法和技巧] 传递给CStr的未初始化的数字数据类型返回“0”，传递给CStr的未初始化的日期变量返回“0:00:00”。
2.3 创建字符串
2.3.1 Space函数
该函数返回指定数的空格的字符串。语法为：
MyString = Str(-459.65) ' 返回 "-459.65"
MyString = Str(459.001) ' 返回 " 459.001"
[编程方法和技巧] 使用LTrim函数可删除Str函数在返回的字符串开头添加的前导空格。此外，CStr函数和Format函数已经取代了Str函数，CStr函数不用为正数的符号而添加前导空格，Format函数能够用来识别小数点。
2.2.3 CStr函数
CStr将数值表达式转换成String数据类型。示例如下：
MyDouble = 437.324 ' MyDouble 为 Double 类型
MyString = CStr(MyDouble) ' MyString 的内容为"437.324"
[编程方法和技巧] 传递给CStr的未初始化的数字数据类型返回“0”，传递给CStr的未初始化的日期变量返回“0:00:00”。
2.3 创建字符串
2.3.1 Space函数
该函数返回指定数的空格的字符串。语法为：
Space(number)
其中，参数number必须，为字符串中指定的空格数。
如下例所示：
Sub CreateString1()
Dim MyString
' 返回 10 个空格的字符串。
MyString = Space(10)
' 将 10 个空格插入两个字符串中间。
MyString = "Hello" & Space(10) & "World"
End Sub
该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用Window API时。此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。
注意，如果参数number是负数，则会产生运行时错误5：“无效的过程调用或参数”。
[编程方法和技巧] 可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长字符串：
其中，参数number必须，为字符串中指定的空格数。
如下例所示：
Sub CreateString1()
Dim MyString
' 返回 10 个空格的字符串。
MyString = Space(10)
' 将 10 个空格插入两个字符串中间。
MyString = "Hello" & Space(10) & "World"
End Sub
该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用Window API时。此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。
注意，如果参数number是负数，则会产生运行时错误5：“无效的过程调用或参数”。
[编程方法和技巧] 可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长字符串：
Dim strFixed As String * 32
……
strFixed = Space(Len(strFixed))
2.3.2 String函数
该函数返回重复的字符或字符串。其语法为：
String(number,character)
其中，参数number必须，指定所返回的字符串的长度；参数character必须，指定字符的字符代码或字符串表达式。
例如，下面使用String函数生成指定长度且只含单一字符的字符串。
Sub CreateString2()
Dim MyString
MyString = String(5, "*") ' 返回 "*****"
MyString = String(5, 42) ' 返回 "*****"
MyString = String(10, "ABC") ' 返回 "AAAAAAAAAA"
End Sub
……
strFixed = Space(Len(strFixed))
2.3.2 String函数
该函数返回重复的字符或字符串。其语法为：
String(number,character)
其中，参数number必须，指定所返回的字符串的长度；参数character必须，指定字符的字符代码或字符串表达式。
例如，下面使用String函数生成指定长度且只含单一字符的字符串。
Sub CreateString2()
Dim MyString
MyString = String(5, "*") ' 返回 "*****"
MyString = String(5, 42) ' 返回 "*****"
MyString = String(10, "ABC") ' 返回 "AAAAAAAAAA"
End Sub
如果参数number包含Null，则返回Null；如果参数character包含Null，则返回Null；参数character可以指定为字符串或者是ANSI字符代码，如：
strString1=String(128,”=”) ‘用”=”填充
vba编程技巧strString2=String(128,0) ‘用Chr$(0)填充
[编程方法和技巧]
(1) String函数在用于创建较长的“_”，“-”，或者“=”构成的水平线以便给报表分段时十分有用。
(2) 当调用API函数向缓冲区写入字符串值时，首先要用String函数创建一个长度合适的字符串变量，并且用诸如Chr$(0)之类的单个字符来填充。
2.4 获取字符串的长度
可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为：
Len(string|varname)
其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。两个参数必须取一。
利用LenB函数可以确定存储某变量所需的实际字节数。
strString1=String(128,”=”) ‘用”=”填充
vba编程技巧strString2=String(128,0) ‘用Chr$(0)填充
[编程方法和技巧]
(1) String函数在用于创建较长的“_”，“-”，或者“=”构成的水平线以便给报表分段时十分有用。
(2) 当调用API函数向缓冲区写入字符串值时，首先要用String函数创建一个长度合适的字符串变量，并且用诸如Chr$(0)之类的单个字符来填充。
2.4 获取字符串的长度
可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为：
Len(string|varname)
其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。两个参数必须取一。
利用LenB函数可以确定存储某变量所需的实际字节数。
下面的示例使用Len函数来获取某字符串的长度(字符数)或某变量的大小(位数)。
Type CustomerRecord ' 定义用户自定义的数据类型
ID As Integer ' 将此定义放在常规模块中
Name As String * 10
Address As String * 30
End Type
Sub GetStrLen()
Dim Customer As CustomerRecord ' 声明变量
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' 设置变量初值
MyLen = Len(MyInt) ' 返回 2
MyLen = Len(Customer) ' 返回 42
MyLen = Len(MyString) ' 返回 11
MyLen = Len(MyCur) ' 返回 8
Type CustomerRecord ' 定义用户自定义的数据类型
ID As Integer ' 将此定义放在常规模块中
Name As String * 10
Address As String * 30
End Type
Sub GetStrLen()
Dim Customer As CustomerRecord ' 声明变量
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' 设置变量初值
MyLen = Len(MyInt) ' 返回 2
MyLen = Len(Customer) ' 返回 42
MyLen = Len(MyString) ' 返回 11
MyLen = Len(MyCur) ' 返回 8
End Sub
此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。例如：
If strTemp = "" Then
'要执行的代码
End If
上面的代码可以用以下代码代替：
If Len(strTemp) = 0 Then
'要执行的代码
End If
注意：
(1) 参数string和参数varname互不相容，即只能指定这两个参数中的某一个，不能同时指定这两个参数。
(2) 如果参数string或参数varname中包含Null，则Len函数会返回Null。
(3) 在向文件写入某种用户自定义类型数据时，Len函数会返回数据的大小(字符数)。
此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。例如：
If strTemp = "" Then
'要执行的代码
End If
上面的代码可以用以下代码代替：
If Len(strTemp) = 0 Then
'要执行的代码
End If
注意：
(1) 参数string和参数varname互不相容，即只能指定这两个参数中的某一个，不能同时指定这两个参数。
(2) 如果参数string或参数varname中包含Null，则Len函数会返回Null。
(3) 在向文件写入某种用户自定义类型数据时，Len函数会返回数据的大小(字符数)。
(4) LenB函数返回用户自定义类型数据实际占用的内存大小。
(5) 在对字节数据或Unicode字符串使用LenB函数时，LenB函数返回表示数据或字符串的字节数。
(6) 不能对对象变量使用Len函数。
(7) 如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。
(8) Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：
Dim vVar
vVar=100
MsgBox Len(vVar)
结果为3。
(9) 由于VB本质上使用的是Unicode字符串(用两个字节的空间来存储一个字符)，因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。例如，对于一个包含4个字符的字符串，使用Len函数时返回值为4，使用LenB函数则为8。
(5) 在对字节数据或Unicode字符串使用LenB函数时，LenB函数返回表示数据或字符串的字节数。
(6) 不能对对象变量使用Len函数。
(7) 如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。
(8) Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：
Dim vVar
vVar=100
MsgBox Len(vVar)
结果为3。
(9) 由于VB本质上使用的是Unicode字符串(用两个字节的空间来存储一个字符)，因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。例如，对于一个包含4个字符的字符串，使用Len函数时返回值为4，使用LenB函数则为8。
(10) 使用强类型变量(即强制声明该变量的类型)时，Len函数会返回存储该变量所需的字节数。例如，长整型变量的长度为4。
下面的示例说明了为什么要显式声明数据类型：
Sub test()
Dim lVar As Long
Dim vVar
lVar = 10000000
vVar = 10000000
MsgBox LenB(lVar) '返回4
MsgBox LenB(vVar)'返回16
End Sub
很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。
下面的示例说明了为什么要显式声明数据类型：
Sub test()
Dim lVar As Long
Dim vVar
lVar = 10000000
vVar = 10000000
MsgBox LenB(lVar) '返回4
MsgBox LenB(vVar)'返回16
End Sub
很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。
2.5 格式化字符串
可以使用Format函数规定输出的字符串的格式，其语法为：
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
其中，参数expression必须，为任何有效的表达式；其余参数均可选。参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。
在参数format中，使用字符“@”，表示空格或字符占位符，如果在输入的字符串相应位置有字符，则显示该字符，否则显示空格；使用字符“&”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；使用字符“<”，则将所有字符显示为小写格式；使用字符“>”，则将所有字符显示为大写格式；使用字符“！”，强制占位符从左向右填满， 满足默认为从右向左。
例如下面的代码：
Dim strOut
strOut = Format("8888888", "(@@@)&&&-&&&&") '返回( )888-8888
strOut = Format("8888888", "(&&&)&&&-&&&&") '返回()888-8888
在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。例如：
其中，参数expression必须，为任何有效的表达式；其余参数均可选。参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。
在参数format中，使用字符“@”，表示空格或字符占位符，如果在输入的字符串相应位置有字符，则显示该字符，否则显示空格；使用字符“&”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；使用字符“<”，则将所有字符显示为小写格式；使用字符“>”，则将所有字符显示为大写格式；使用字符“！”，强制占位符从左向右填满， 满足默认为从右向左。
例如下面的代码：
Dim strOut
strOut = Format("8888888", "(@@@)&&&-&&&&") '返回( )888-8888
strOut = Format("8888888", "(&&&)&&&-&&&&") '返回()888-8888
在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。例如：
strOut = Format("6666666", "(@@@)&&&-&&&&;No Phone") '返回( )666-6666
strOut = Format("", "(@@@)&&&-&&&&;No Phone") '返回No Phone
又如，下面的代码将字母全部转换为大写：
Dim strOut
strOut = Format("Hello", ">@@@@@") ‘返回HELLO
同理，可以使用“<”将字母全部转换为小写。
Format函数的简要使用规则：
(1) 允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。
(2) 创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。第一部分在单独命名使用时可用于所有值，与其它多个部分一起使用时只用于正数；第二部分用于负数；第三部分用于零值；第四部分用于Null值。
在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类型：只有一个部分，则应用于所有数值；有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；有三个部分，则第一部分用于正数，第二部分应用于负数，第三部
strOut = Format("", "(@@@)&&&-&&&&;No Phone") '返回No Phone
又如，下面的代码将字母全部转换为大写：
Dim strOut
strOut = Format("Hello", ">@@@@@") ‘返回HELLO
同理，可以使用“<”将字母全部转换为小写。
Format函数的简要使用规则：
(1) 允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。
(2) 创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。第一部分在单独命名使用时可用于所有值，与其它多个部分一起使用时只用于正数；第二部分用于负数；第三部分用于零值；第四部分用于Null值。
在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类型：只有一个部分，则应用于所有数值；有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；有三个部分，则第一部分用于正数，第二部分应用于负数，第三部
分应用于零值；有四个部分，则每部分的使用如前所述。
如果忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如：
“#.00;;#,##”
表示负数值与正数值使用同一种格式显示。
如果参数含有命名格式，则只能有一个部分。
(3) 字符串值的用户定义格式有两个部分，第一部分可应用于所有值，第二部分只应用于Null值或零长字符串。
(4) 预定义的日期和时间格式如下：
General Date
范例： Format("28/02/2007","General Date")
返回： 2007-2-28
Long Date
范例： Format("28/02/2007","Long Date")
返回： 2007年2月28日
Medium Date
如果忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如：
“#.00;;#,##”
表示负数值与正数值使用同一种格式显示。
如果参数含有命名格式，则只能有一个部分。
(3) 字符串值的用户定义格式有两个部分，第一部分可应用于所有值，第二部分只应用于Null值或零长字符串。
(4) 预定义的日期和时间格式如下：
General Date
范例： Format("28/02/2007","General Date")
返回： 2007-2-28
Long Date
范例： Format("28/02/2007","Long Date")
返回： 2007年2月28日
Medium Date
范例： Format("28/02/2007","Medium Date")
返回： 07-02-28
Short Date
范例： Format("28/02/2007","Short Date")
返回： 2007-2-28
Long Time
范例： Format("17:30:03","Long Time")
返回： 17:30:03
Medium Time
范例： Format("17:30:03","Medium Time")
返回： 下午 05:30
Short Time
范例： Format("17:30:03","Short Time")
返回： 17:30
(5) 预定义的数值格式如下：
返回： 07-02-28
Short Date
范例： Format("28/02/2007","Short Date")
返回： 2007-2-28
Long Time
范例： Format("17:30:03","Long Time")
返回： 17:30:03
Medium Time
范例： Format("17:30:03","Medium Time")
返回： 下午 05:30
Short Time
范例： Format("17:30:03","Short Time")
返回： 17:30
(5) 预定义的数值格式如下：
General Number
范例： Format(123456.0789,"General Number")
返回： 123456.0789
Currency
范例： Format(123456.0789,"Currency")
返回： ￥123,456.08
Fixed
范例： Format(0.2,"Fixed")
返回： 0.20
Standard
范例： Format(123456.0789,"Standard")
返回： 123,456.08
Percent
范例： Format(.7321,"Percent")
返回： 73.21%
范例： Format(123456.0789,"General Number")
返回： 123456.0789
Currency
范例： Format(123456.0789,"Currency")
返回： ￥123,456.08
Fixed
范例： Format(0.2,"Fixed")
返回： 0.20
Standard
范例： Format(123456.0789,"Standard")
返回： 123,456.08
Percent
范例： Format(.7321,"Percent")
返回： 73.21%
Scientific
范例： Format(123456.0789,"Scientific")
返回： 1.23E+05
Yes/No
范例1： Format(0,"Yes/No")
返回： No
范例2： Format(23,"Yes/No")
返回： Yes
True/False
范例1： Format(0,"True/False")
返回： False
范例2： Format(23,"True/False")
返回： True
On/Off
范例1： Format(0,"On/Off")
范例： Format(123456.0789,"Scientific")
返回： 1.23E+05
Yes/No
范例1： Format(0,"Yes/No")
返回： No
范例2： Format(23,"Yes/No")
返回： Yes
True/False
范例1： Format(0,"True/False")
返回： False
范例2： Format(23,"True/False")
返回： True
On/Off
范例1： Format(0,"On/Off")
返回： Off
范例2： Format(23,"On/Off")
返回： On
(6) 创建用户自定义的日期和时间格式的字符：
C
元素：日期
显示：基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。
范例：Format("28/02/2007 17:30:03","c")
返回：2007-2-28 17:30:03
dddddd
元素：日期
显示：基于当前Windows系统的长日期国际设置格式的完整日期。
范例：Format("28/02/2007","dddddd")
返回：2007年2月28日
/
范例2： Format(23,"On/Off")
返回： On
(6) 创建用户自定义的日期和时间格式的字符：
C
元素：日期
显示：基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。
范例：Format("28/02/2007 17:30:03","c")
返回：2007-2-28 17:30:03
dddddd
元素：日期
显示：基于当前Windows系统的长日期国际设置格式的完整日期。
范例：Format("28/02/2007","dddddd")
返回：2007年2月28日
/
元素：日期分隔符
范例：Format("28/02/2007","mm-dd-yyyy")
返回：02-28-2007
d
元素：日
显示：1～31范围内的一个数字，无前导0。
范例：Format("02/02/2007","d")
返回：2
dd
元素：日
显示：01～31范围内的一个数字，有前导0。
范例：Format("02/02/2007","dd")
返回：02
ddd
元素：日
范例：Format("28/02/2007","mm-dd-yyyy")
返回：02-28-2007
d
元素：日
显示：1～31范围内的一个数字，无前导0。
范例：Format("02/02/2007","d")
返回：2
dd
元素：日
显示：01～31范围内的一个数字，有前导0。
范例：Format("02/02/2007","dd")
返回：02
ddd
元素：日
显示：英文简写(Sun～Sat)
范例：Format("02/02/2007","ddd")
返回：Fri
dddd
元素：日
显示：英文全称(Sunday～Saturday)
范例：Format("02/02/2007","dddd")
返回：Friday
ddddd
元素：日期
显示：基于计算机Windows国际设置短日期格式的日期。
范例：Format("02/02/2007","ddddd")
返回：2007-2-2
h
元素：小时
范例：Format("02/02/2007","ddd")
返回：Fri
dddd
元素：日
显示：英文全称(Sunday～Saturday)
范例：Format("02/02/2007","dddd")
返回：Friday
ddddd
元素：日期
显示：基于计算机Windows国际设置短日期格式的日期。
范例：Format("02/02/2007","ddddd")
返回：2007-2-2
h
元素：小时
显示：0～23范围内的一个数字，无前导0。
范例：Format("05:08:06","h")
返回：5
hh
元素：小时
显示：00～23范围内的一个数字，有前导0。
范例：Format("05:08:06","hh")
返回：05
n
元素：分
显示：0～59范围内的一个数字，无前导0。
范例：Format("05:08:06","n")
返回：8
nn
元素：分
范例：Format("05:08:06","h")
返回：5
hh
元素：小时
显示：00～23范围内的一个数字，有前导0。
范例：Format("05:08:06","hh")
返回：05
n
元素：分
显示：0～59范围内的一个数字，无前导0。
范例：Format("05:08:06","n")
返回：8
nn
元素：分
显示：00～59范围内的一个数字，有前导0。
范例：Format("05:08:06","nn")
返回：08
s
元素：秒
显示：0～59范围内的一个数字，无前导0。
范例：Format("05:08:06","s")
返回：6
ss
元素：秒
显示：00～59范围内的一个数字，有前导0。
范例：Format("05:08:06","ss")
返回：06
ttttt
元素：时间
范例：Format("05:08:06","nn")
返回：08
s
元素：秒
显示：0～59范围内的一个数字，无前导0。
范例：Format("05:08:06","s")
返回：6
ss
元素：秒
显示：00～59范围内的一个数字，有前导0。
范例：Format("05:08:06","ss")
返回：06
ttttt
元素：时间
显示：基于12小时制的时间，包含Windows区域设置中指定的时间分隔符和前导0。
范例：Format("05:08:06","ttttt")
返回：5:08:06
AM/PM
元素：时间
显示：用大写的AM和PM表示的12小时制的时钟格式。
范例：Format("17:08:06","hh:mm:ss AM/PM")
返回：05:08:06 PM
am/pm
元素：时间
显示：用小写的am和pm表示的12小时制时钟格式。
范例：Format("17:08:06","hh:mm:ss am/pm")
返回：05:08:06 pm
A/P
元素：时间
范例：Format("05:08:06","ttttt")
返回：5:08:06
AM/PM
元素：时间
显示：用大写的AM和PM表示的12小时制的时钟格式。
范例：Format("17:08:06","hh:mm:ss AM/PM")
返回：05:08:06 PM
am/pm
元素：时间
显示：用小写的am和pm表示的12小时制时钟格式。
范例：Format("17:08:06","hh:mm:ss am/pm")
返回：05:08:06 pm
A/P
元素：时间
显示：12小时制时钟格式，用大写“A”表示AM，大写“P”表示PM。
范例：Format("17:08:06","hh:mm:ss A/P")
返回：05:08:06 P
a/p
元素：时间
显示：12小时制时钟格式，用小写“a”表示am，小写“p”表示pm。
范例：Format("17:08:06","hh:mm:ss a/p")
返回：05:08:06 p
：
元素：时间分隔符
显示：时间格式
范例：Format("17:08:06","hh:mm:ss")
返回：17:08:06
w
元素：星期几
范例：Format("17:08:06","hh:mm:ss A/P")
返回：05:08:06 P
a/p
元素：时间
显示：12小时制时钟格式，用小写“a”表示am，小写“p”表示pm。
范例：Format("17:08:06","hh:mm:ss a/p")
返回：05:08:06 p
：
元素：时间分隔符
显示：时间格式
范例：Format("17:08:06","hh:mm:ss")
返回：17:08:06
w
元素：星期几
显示：1～7范围内的一个数字(1～7分别表示星期天到星期六)。
范例：Format("02/02/2007","w")
返回：6
ww
元素：周
显示：1～54范围内的一个数字。
范例：Format("02/02/2007","ww")
返回：5
m
元素：月
显示：1～12范围内的一个数字，无前导0。
范例：Format("02/02/2007","m")
返回：2
mm
元素：月
范例：Format("02/02/2007","w")
返回：6
ww
元素：周
显示：1～54范围内的一个数字。
范例：Format("02/02/2007","ww")
返回：5
m
元素：月
显示：1～12范围内的一个数字，无前导0。
范例：Format("02/02/2007","m")
返回：2
mm
元素：月
显示：01～12范围内的一个数字，有前导0。
范例：Format("02/02/2007","mm")
返回：02
mmm
元素：月
显示：英文月份简写(Jan～Dec)
范例：Format("02/02/2007","mmm")
返回：Feb
mmmm
元素：月
显示：英文月份全称(January～December)
范例：Format("02/02/2007","mmmm")
返回：February
q
元素：季度
范例：Format("02/02/2007","mm")
返回：02
mmm
元素：月
显示：英文月份简写(Jan～Dec)
范例：Format("02/02/2007","mmm")
返回：Feb
mmmm
元素：月
显示：英文月份全称(January～December)
范例：Format("02/02/2007","mmmm")
返回：February
q
元素：季度
显示：1～4范围内的一个数字
范例：Format("02/02/2007","q")
返回：1
y
元素：一年中的某天
显示：1～366范围内的一个数字。
范例：Format("02/02/2007","y")
返回：33
yy
元素：年
显示：00～99范围内的一个两位数字。
范例：Format("02/02/2007","yy")
返回：07
yyyy
元素：年
范例：Format("02/02/2007","q")
返回：1
y
元素：一年中的某天
显示：1～366范围内的一个数字。
范例：Format("02/02/2007","y")
返回：33
yy
元素：年
显示：00～99范围内的一个两位数字。
范例：Format("02/02/2007","yy")
返回：07
yyyy
元素：年
显示：100～9999范围内的一个四位数字。
范例：Format("02/02/2007","yyyy")
返回：2007
(7)用于创建用户自定义数字格式的字符
0
说明：数字占位符。如果参数expression所代表的数值在相应的0位置上有一个数字，则显示这个数字，否则显示0。所指定的小数点后的位数，使数值舍入为给定的小数位数，但不影响小数点左边的数字位数。
范例1：Format(23.675,"00.0000") 返回：23.6750
范例2：Format(23.675,"00.00") 返回：23.68
范例3：Format(2345,"00000") 返回：02345
范例4：Format(2345,"00.00") 返回：2345.00
#
说明：数字占位符。如果参数expression所代表的数值在相应的#位置上有一个数字，则显示这个数字，否则什么也不显示。
范例：Format("02/02/2007","yyyy")
返回：2007
(7)用于创建用户自定义数字格式的字符
0
说明：数字占位符。如果参数expression所代表的数值在相应的0位置上有一个数字，则显示这个数字，否则显示0。所指定的小数点后的位数，使数值舍入为给定的小数位数，但不影响小数点左边的数字位数。
范例1：Format(23.675,"00.0000") 返回：23.6750
范例2：Format(23.675,"00.00") 返回：23.68
范例3：Format(2345,"00000") 返回：02345
范例4：Format(2345,"00.00") 返回：2345.00
#
说明：数字占位符。如果参数expression所代表的数值在相应的#位置上有一个数字，则显示这个数字，否则什么也不显示。
范例1：Format(23.675,"##.##") 返回：23.68
范例2：Format(23.675,"##.####") 返回：23.675
范例3：Format(12345.25,"#,###.##") 返回：12,345.25
.
说明：小数点占位符。小数点占位符实际显示的字符由本机Windows系统国际设置格式决定。
%
说明：百分数占位符。首先将参数expression所代表的数值乘以100，然后把它作为百分数显示。
范例：Format(0.25,"##.00%") 返回：25.00%
，
说明：千位分隔符。实际显示的字符由本机Windows系统国际设置格式决定。在格式定义中只需要给出一个千位分隔符。
范例：Format(1000000,"#,###") 返回：1,000,000
E-E+ e-e+
范例2：Format(23.675,"##.####") 返回：23.675
范例3：Format(12345.25,"#,###.##") 返回：12,345.25
.
说明：小数点占位符。小数点占位符实际显示的字符由本机Windows系统国际设置格式决定。
%
说明：百分数占位符。首先将参数expression所代表的数值乘以100，然后把它作为百分数显示。
范例：Format(0.25,"##.00%") 返回：25.00%
，
说明：千位分隔符。实际显示的字符由本机Windows系统国际设置格式决定。在格式定义中只需要给出一个千位分隔符。
范例：Format(1000000,"#,###") 返回：1,000,000
E-E+ e-e+
说明：科学计数法格式。如果格式表达式在E-、E+或e-、e+的右边至少有一个数字占位符(0或#)，数字就以科学计数法格式显示数字，参数Format中所用的字母E或e在该数字和它的指数之间显示。右边的数字占位符数目决定了要在指数中显示的位数。使用E-或e-可以在负指数前插入一个减号，使用E+或e+可以在正指数前插入一个正号。
范例：Format(1.09837555,">#E-###") 返回：109838E-5-+$
说明：显示一个直接量字符。
范例：Format(2345.25,"$#,###.##") 返回：$2,345.25
\
说明：反斜杠后的字符以直接量字符显示。可以用反斜杠将某个特定格式的字符以直接量字符显示。
范例：Format(0.25,"##.##\%") 返回：.25%
(8) 用于创建用户自定义字符串格式的字符
@
说明：字符占位符。如果expression在相应的@位置上有一个字符，就显示这个字符，否
范例：Format(1.09837555,">#E-###") 返回：109838E-5-+$
说明：显示一个直接量字符。
范例：Format(2345.25,"$#,###.##") 返回：$2,345.25
\
说明：反斜杠后的字符以直接量字符显示。可以用反斜杠将某个特定格式的字符以直接量字符显示。
范例：Format(0.25,"##.##\%") 返回：.25%
(8) 用于创建用户自定义字符串格式的字符
@
说明：字符占位符。如果expression在相应的@位置上有一个字符，就显示这个字符，否
则显示一个空格。
范例：Format("VBA","\*@\*@@@@@") 返回：* * VBA
&
说明：字符占位符。如果expression在相应的&位置上有一个字符，就显示这个字符，否则什么也不显示。
范例：Format("VBA","\*&&\*&&&&") 返回：**VBA
<
说明：用小写形式显示所有字符。
范例：Format("VBA","<") 返回：vba
>
说明：用大写形式显示所有字符。
范例：Format("vba",">") 返回：VBA
！
说明：从左向右处理占位符(缺省情况为从右向左处理占位符)。
[编程方法和技巧]
范例：Format("VBA","\*@\*@@@@@") 返回：* * VBA
&
说明：字符占位符。如果expression在相应的&位置上有一个字符，就显示这个字符，否则什么也不显示。
范例：Format("VBA","\*&&\*&&&&") 返回：**VBA
<
说明：用小写形式显示所有字符。
范例：Format("VBA","<") 返回：vba
>
说明：用大写形式显示所有字符。
范例：Format("vba",">") 返回：VBA
！
说明：从左向右处理占位符(缺省情况为从右向左处理占位符)。
[编程方法和技巧]
(1) 使用没有格式定义的Format函数格式化数字比使用Str函数格式化数字更好。Format函数与Str函数不同，它会把正数中一般保留用于表示符号的前导空格清除掉。
(2) 可以使用Format函数以1000为单位对数字进行标度，做法是在语句中小数点的左边用一个千位分隔符(，)表示标度数字的一个千位；可以使用多个千位分隔符。例如：
Format(1000000,"##0,.") 返回：1000.
Format(1000000,"##0,,.") 返回：1.
(2) 可以使用Format函数以1000为单位对数字进行标度，做法是在语句中小数点的左边用一个千位分隔符(，)表示标度数字的一个千位；可以使用多个千位分隔符。例如：
Format(1000000,"##0,.") 返回：1000.
Format(1000000,"##0,,.") 返回：1.
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论