Excel VBA Contents.docx

1、Excel VBA ContentsTable of Contents1 函数与方法 31.1 VBA,字符串处理大全 31.1.1 VBA中处理字符串的函数 31.1.2 转换字符串 41.1.3 创建字符串 61.1.4 获取字符串的长度 71.1.5 格式化字符串 81.1.6 查找字符串 161.1.7 提取字符/字符串 171.1.8 示例 281.2 关闭屏幕刷新 311.3 Msgbox 内换行 311.4 在VBA中设置一个变量的小数点位数 321.5 类型转换函数 321.6 Select Case 语句 341.6.1 语法 341.6.2 说明 351.6.3 Selec

2、t Case 语句也可以是嵌套的 361.6.4 和Case子句一起使用Is 381.6.5 确定Case子句里数值的范围 381.6.6 在Case子句里确定多个表达式 401.7 Vba暂停几秒的代码 401.7.1 自动式的VBA暂停语句 401.7.2 手工暂停VBA语句的办法 411.8 TreeView 控件 411.8.1 打开TreeView控件 411.8.2 点击时加入子节点,找出树中当前节点的级数 411.9 VBA listview控件用法 451.9.1 应用帮助(vba) 451.9.2 显示数据表内容 461.9.3 VBA 点 listview 列名时自动排序(

3、超有用) 471.10 窗体上显示图表 481.10.1 其实装载的只是一个图片 481.10.2 在窗体上显示图表 511.11 如何让VBA制作的窗体即在前端显示又不影响表使用 562 应用实例 562.1 获取工作表使用的最大行数 562.2 利用动态数组获取当前目录下指定文件类型的文件 591 函数与方法1.1 VBA,字符串处理大全VBA中的字符串VBA不仅可以处理数字，也可以处理文本(字符串)。VBA提供了两类字符串：一类为固定长度的字符串，声明时包含指字的字符数。例如，下面的语句Dim strFixedLong As String*100声明字符串变量后，无论赋予该变量多少个字符

4、，总是只包含100个字符，但字符串最长不超过65526个字符，且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。另一类为动态字符串。例如，声明字符串变量Dim strDynamic As String后，可以给该变量任意赋值，最多可包含20亿个字符。1.1.1 VBA中处理字符串的函数比较字符串通常，在VBA中进行字符串比较时，会用到比较运算符(如=、等)、Like运算符和StrComp函数。此外，在模块的开头用Option Compare语句指定比较方式。1.1.1.1 比较运算符可以采用简单的逻辑运算符进行两个字符串的比较，即(小于)、(大于)、=(大于或等于)、

5、=(等于)、(不等于)。此外，还可以使用Like运算符进行比较。1.1.1.2 StrComp函数StrComp函数返回字符串比较的结果。其语法为： StrComp(string1,string2,compare)其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。参数Compare为可选参数，如果该参数为Null，将发生错误。如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数，将使用Option Compare语句设置进行比较；如果忽略该参数且没有设置Option Compare语句，则按二进制进行比较；如果参数Compare

6、设置为常数vbBinaryCompare或0，则用二进制进行比较；如果参数Compare设置为常数vbTextCompare或1，则按文本进行比较；如果参数Compare设置为常数vbDatabaseCompare或2，此时仅适用于Microsoft Access，进行基于数据库信息的比较。StrComp函数的返回值为：如果String1String2，则返回值为1；如果String1或String2为Null，则返回值为Null。看看下面的示例：Sub testStringCompare() Dim MyStr1 As String, MyStr2 As String, MyComp1, M

7、yComp2, 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)的结

8、果为: & MyComp2 MsgBox StrComp(MyStr1, MyStr2)的结果为: & MyComp3 MsgBox StrComp(MyStr2, MyStr1)的结果为: & MyComp4End Sub示例说明：如果StrComp函数的第三个参数值为1，则以文本比较的方式进行字符串比较；如果第三个参数值为0或忽略该参数，则以二进制比较的方式进行字符串比较。注意，文本比较的方式不区分字母大小写，而二进制比较方式则区分大小写。编程方法和技巧 完成一次简单的单一比较，如If UCase(sString1)UCase(sString2) Then比使用StrComp函数：If S

9、trComp(sString1,sString2,vbTextCompare)=-1 Then在性能上要提高30%，且更容易阅读和理解。1.1.2 转换字符串1.1.2.1 StrConv函数使用StrConv函数来按指定类型转换字符串。其语法为： StrConv(string,conversion,LCID)其中，参数string为要转换的字符串，参数conversion为指定转换的类型，参数LCID为可选参数。如果将参数conversion设置为vbUpperCase或1，则将字符串转换成大写；设置为vbLowerCase或2，则将字符串转换成小写；设置为vbProperCase或3，则将

10、字符串中每个字的开头字母转换成大写；设置为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) 转换字符串。 F

11、or i = 0 To UBound(x) Debug.Print x(i) NextEnd 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 st

12、uff byArray = StrConv(sString, vbFromUnicode)End SubStrConv函数将下面的字符看成是字的分隔符：Null：Chr$(0)水平制表符：Chr$(9)换行符：Chr$(10)垂直制表符：Chr$(11)换页符：Chr$(12)回车符：Chr$(13)空格：Chr$(32)编程方法和技巧 在使用API时该函数很重要，很多程序调用都要求传递给它们Unicode字符，或者赋给返回变量Unicode字符。1.1.2.2 Str函数将数值转换成字符串，即返回代表一个数值的字符串。其语法为： Str(number)当一个数字转成字符串时，总会在前面保留一

13、个空位来表示正负，即字符串的第一位一定是空格或正负号。如果参数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函数能够用来识别小数点。1.1.2.3 CStr函

14、数CStr将数值表达式转换成String数据类型。示例如下：MyDouble = 437.324 MyDouble 为 Double 类型MyString = CStr(MyDouble) MyString 的内容为437.324编程方法和技巧 传递给CStr的未初始化的数字数据类型返回“0”，传递给CStr的未初始化的日期变量返回“0:00:00”。1.1.3 创建字符串 Space函数该函数返回指定数的空格的字符串。语法为： Space(number)其中，参数number必须，为字符串中指定的空格数。如下例所示：Sub CreateString1() Dim MyString 返回 10

15、 个空格的字符串。 MyString = Space(10) 将 10 个空格插入两个字符串中间。 MyString = Hello & Space(10) & WorldEnd Sub该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用Window API时。此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。注意，如果参数number是负数，则会产生运行时错误5：“无效的过程调用或参数”。编程方法和技巧 可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长字符串：Dim strFixed As String * 32strFixe

16、d = Space(Len(strFixed)1.1.3.1 String函数该函数返回重复的字符或字符串。其语法为： String(number,character)其中，参数number必须，指定所返回的字符串的长度；参数character必须，指定字符的字符代码或字符串表达式。例如，下面使用String函数生成指定长度且只含单一字符的字符串。Sub CreateString2() Dim MyString MyString = String(5, *) 返回 * MyString = String(5, 42) 返回 * MyString = String(10, ABC) 返回 AAA

17、AAAAAAAEnd Sub如果参数number包含Null，则返回Null；如果参数character包含Null，则返回Null；参数character可以指定为字符串或者是ANSI字符代码，如：strString1=String(128,”=”) 用”=”填充strString2=String(128,0) 用Chr$(0)填充编程方法和技巧 (1) String函数在用于创建较长的“_”，“-”，或者“=”构成的水平线以便给报表分段时十分有用。(2) 当调用API函数向缓冲区写入字符串值时，首先要用String函数创建一个长度合适的字符串变量，并且用诸如Chr$(0)之类的单个字符来填

18、充。1.1.4 获取字符串的长度可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为： Len(string|varname)其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。两个参数必须取一。利用LenB函数可以确定存储某变量所需的实际字节数。下面的示例使用Len函数来获取某字符串的长度(字符数)或某变量的大小(位数)。Type CustomerRecord 定义用户自定义的数据类型 ID As Integer 将此定义放在常规模块中 Name As String * 10 Address As String * 30End TypeSub

19、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) 返回 8End Sub此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。例如：If strT

20、emp = 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函数返回表示数据或字符串的

21、字节数。(6) 不能对对象变量使用Len函数。(7) 如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。(8) Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：Dim vVarvVar=100MsgBox Len(vVar)结果为3。(9) 由于VB本质上使用的是Unicode字符串(用两个字节的空间来存储一个字符)，因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。例如，对于一个包含4个字符的字符串，使用Len函数时返回值为4，使用LenB

22、函数则为8。(10) 使用强类型变量(即强制声明该变量的类型)时，Len函数会返回存储该变量所需的字节数。例如，长整型变量的长度为4。下面的示例说明了为什么要显式声明数据类型：Sub test() Dim lVar As Long Dim vVar lVar = 10000000 vVar = 10000000 MsgBox LenB(lVar) 返回4 MsgBox LenB(vVar)返回16End Sub很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。1.1.5 格式化字符串可以使用Format函数规定输出的字符串的格式，其语法为： Format(expression

23、,format,firstdayofweek,firstweekofyear)其中，参数expression必须，为任何有效的表达式；其余参数均可选。参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。在参数format中，使用字符“”，表示空格或字符占位符，如果在输入的字符串相应位置有字符，则显示该字符，否则显示空格；使用字符“&”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；使用字符“”，则将所有字符显示为大写格式；使用字符“！”，强制占位符从左

24、向右填满， 满足默认为从右向左。例如下面的代码：Dim strOut strOut = Format(8888888, ()&-&) 返回( )888-8888 strOut = Format(8888888, (&)&-&) 返回()888-8888在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。例如：strOut = Format(6666666, ()&-&;No Phone) 返回( )666-6666strOut = Format(, ()&-&;No Phone) 返回No Phone又

25、如，下面的代码将字母全部转换为大写：Dim strOutstrOut = Format(Hello, ) 返回HELLO同理，可以使用“”将字母全部转换为小写。Format函数的简要使用规则：(1) 允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。(2) 创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。第一部分在单独命名使用时可用于所有值，与其它多个部分一起使用时只用于正数；第二部分用于负数；第三部分用于零值；第四部分用于Null值。在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类

26、型：只有一个部分，则应用于所有数值；有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；有三个部分，则第一部分用于正数，第二部分应用于负数，第三部分应用于零值；有四个部分，则每部分的使用如前所述。如果忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如：“#.00;#,#”表示负数值与正数值使用同一种格式显示。如果参数含有命名格式，则只能有一个部分。(3) 字符串值的用户定义格式有两个部分，第一部分可应用于所有值，第二部分只应用于Null值或零长字符串。(4) 预定义的日期和时间格式如下：General Date范例： Format(28/02/2007,General Dat

27、e)返回： 2007-2-28Long Date范例： Format(28/02/2007,Long Date)返回： 2007年2月28日Medium Date范例： Format(28/02/2007,Medium Date)返回： 07-02-28Short Date范例： Format(28/02/2007,Short Date)返回： 2007-2-28Long Time 范例： Format(17:30:03,Long Time)返回： 17:30:03Medium Time范例： Format(17:30:03,Medium Time)返回： 下午 05:30Short Time

28、 范例： Format(17:30:03,Short Time)返回： 17:30(5) 预定义的数值格式如下：General Number范例： Format(123456.0789,General Number)返回： 123456.0789Currency范例： Format(123456.0789,Currency)返回： ￥123,456.08Fixed范例： Format(0.2,Fixed)返回： 0.20Standard范例： Format(123456.0789,Standard)返回： 123,456.08Percent范例： Format(.7321,Percent)返回

29、： 73.21%Scientific范例： Format(123456.0789,Scientific)返回： 1.23E+05Yes/No范例1： Format(0,Yes/No)返回： No范例2： Format(23,Yes/No)返回： YesTrue/False范例1： Format(0,True/False)返回： False范例2： Format(23,True/False)返回： TrueOn/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:03dddddd元素：日期显示：基于当前Windows系统的长日期国际设置格式的完整日期。范例：Format(28/02/2007,dddddd)返回：2007年2月28日/元素：日期分隔符范例：Format(28/02/2007,mm-dd-yyyy)返回：02-28-2007d元素：日显示：131范围内的一个数字，无前导0。范例：Format(02/02/2007,d)返回：2dd元素：日显示：0131范围内的一个