VBA函数实例精选.docx

VBA函数实例精选.docx

《VBA函数实例精选.docx》由会员分享，可在线阅读，更多相关《VBA函数实例精选.docx（47页珍藏版）》请在冰点文库上搜索。

VBA函数实例精选

VBA函数精选之二十三（LBound函数）

第1.23例LBound函数

一、题目：

要求编写一段代码，运用LBound函数，返回数组的指定维数的最小可用下标。

二、代码：

Sub示例_1_023（）

  DimArr（1To10,5To15,10To20）    

  DimArr1（10）

  [a1]="数组变量：

Arr（1To10,5To15,10To20）"

  [a2]="数组变量：

Arr1（10）"

  [a3]="LBound（Arr,1）  返回":

[b3]=LBound（Arr,1）

  [a4]="LBound（Arr,3）  返回":

[b4]=LBound（Arr,3）

  [a5]="LBound（Arr1）  返回":

[b5]=LBound（Arr1）  

EndSub

三、代码详解

1、Sub示例_1_023（）：

宏程序的开始语句。

宏名为示例_1_023。

2、DimArr（1To10,5To15,10To20）  ：

声明Arr为3维数组变量。

3、DimArr1（10）  ：

声明Arr1为1维数组变量。

4、[a1]="数组变量：

Arr（1To10,5To15,10To20）"  ：

把字符串赋给单元格A1。

5、[a2]="数组变量：

Arr1（10）"  ：

把字符串赋给单元格A2。

6、[b3]=LBound（Arr,1）  ：

运用LBound函数，返回数组Arr的第1维的最小可用下标，返回1，赋给单元格B3。

7、[b4]=LBound（Arr,3）  ：

运用LBound函数，返回数组Arr的第3维的最小可用下标，返回10，赋给单元格B4。

8、[b5]=LBound（Arr1）  ：

运用LBound函数，返回数组Arr1的最小可用下标，返回0或者1，要取决于OptionBase的

设置，默认为0。

LBound函数

返回一个Long型数据，其值为数组指定维可用的最小下标。

LBound（arrayname[,dimension]）

LBound函数的参数：

arrayname    必需的。

数组变量的名称，遵循标准的变量命名约定。

dimension    可选的；Variant（Long）。

指定返回哪一维的下界。

1表示第一维，2表示第二维，如此类推。

如果

省略dimension，就认为是1。

VBA函数精选之二十四（LCase和UCase函数）

第1.24例  LCase和UCase函数

一、题目：

要求编写一段代码，运用LCase函数来将某字符串转成全部小写，并运用UCase函数再将它转成全部大写。

二、代码：

Sub示例_1_024（）

    DimDxzfc$,XXzfc$

    DXzfc="HELLOSHANGHAIEXPO2010"  '大写的字符串。

    XXzfc=Lcase（DXzfc）  '返回"helloshanghaiexpo2010"。

    DXzfc=Ucase（XXzfc）  '返回"HELLOSHANGHAIEXPO2010"。

EndSub

三、代码详解

1、Sub示例_1_024（）：

宏程序的开始语句。

宏名为示例_1_024。

2、Dim  Dxzfc$,XXzfc$  ：

声明Dxzfc,XXzfc为字符串变量。

$是String字符串数据类型的类型声明字符，其它有类型声明字符的数据类型还有：

整型      Integer  %

长整型      Long    &

单精度浮点型  Single    !

双精度浮点型  Double    #

变比整型    Currency  @

3、DXzfc="HELLOSHANGHAIEXPO2010"  ：

把大写的字符串赋给字符串变量DXzfc。

4、XXzfc=Lcase（DXzfc）  ：

运用LCase函数把大写字符串全部转成小写赋给字符串变量XXzfc。

5、DXzfc=Ucase（XXzfc）  ：

运用UCase函数把小写字符串全部转成大写赋给字符串变量DXzfc。

LCase函数

返回转成小写的String。

LCase（string）

必要的string参数可以是任何有效的字符串表达式。

如果string包含Null，将返回Null。

说明

只有大写的字母会转成小写；所有小写字母和非字母字符保持不变。

UCase函数

返回Variant（String），其中包含转成大写的字符串。

UCase（string）

必要的string参数为任何有效的字符串表达式。

如果string包含Null，将返回Null。

说明

只有小写的字母会转成大写；原本大写或非字母之字符保持不变。

VBA函数精选之二十五（Left和Right函数）

第1.25例  Left和Right函数

一、题目：

要求编写一段代码，运用Left函数来得到某字符串最左边的几个字符，运用Right函数来得到某字符串最右边的几个

字符。

二、代码：

Sub示例_1_025（）

    DimRYzfc$,Myzfc$

    RYzfc="HELLOSHANGHAIEXPO2010"  

    Myzfc=Left（RYzfc,5）    

    Myzfc=Left（RYzfc,14）  

    Myzfc=Right（RYzfc,4）  '

EndSub

三、代码详解

1、Sub示例_1_025（）：

宏程序的开始语句。

宏名为示例_1_025。

2、Dim  RYzfc$,Myzfc$  ：

声明RYzfc,Myzfc为字符串变量。

3、RYzfc="HELLOSHANGHAIEXPO2010"  ：

把字符串赋给字符串变量RYzfc。

4、Myzfc=Left（RYzfc,5）：

运用Left函数从RYzfc取最左边的5个字符并赋给Myzfc变量，返回"HELLO"。

5、Myzfc=Left（RYzfc,14）：

从RYzfc取最左边的14个字符并赋给Myzfc变量，返回"HELLOSHANGHAI"。

6、Myzfc=Right（RYzfc,4）：

从RYzfc取最右边的4个字符并赋给Myzfc变量，返回"2010"。

Left函数

返回Variant（String），其中包含从字符串左边算起指定数量的字符。

Left（string,length）

Left函数的语法有下面的命名参数：

string    必要参数。

字符串表达式其中最左边的那些字符将被返回。

如果string包含Null，将返回Null。

length    必要参数；为Variant（Long）。

数值表达式，指出将返回多少个字符。

如果为0，返回零长度字符串（""）。

如果大于或等于string的字符数，则返回整个字符串。

Right函数

返回Variant（String），其中包含从字符串右边取出的指定数量的字符。

Right（string,length）

Right函数的语法具有下面的命名参数：

string    必要参数。

字符串表达式，从中最右边的字符将被返回。

如果string包含Null，将返回Null。

length    必要参数；为Variant（Long）。

为数值表达式，指出想返回多少字符。

如果为0，返回零长度字符串（""）。

如果大于或等于string的字符数，则返回整个字符串。

VBA函数精选之二十六（Len函数）

第1.26例  Len函数

一、题目：

要求编写一段代码，运用Len函数来得到指定字符串的长度。

二、代码：

Sub示例_1_026（）

    DimRyzfc$,Mycdu

    RYzfc="HELLOSHANGHAIEXPO2010"  

    Mycdu=Len（RYzfc）    

EndSub

三、代码详解

1、Sub示例_1_026（）：

宏程序的开始语句。

宏名为示例_1_026。

2、Dim  RYzfc$,Mycdu  ：

声明RYzfc为字符串变量，Mycdu为可变型变量。

3、RYzfc="HELLOSHANGHAIEXPO2010"  ：

把字符串赋给字符串变量RYzfc。

4、Mycdu=Len（RYzfc）：

运用Len函数来得到字符串RYzfc的长度，返回24。

Len函数

返回Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

Len（string|varname）

Len函数的语法有下面这些参数：

string    任何有效的字符串表达式。

如果string包含Null，会返回Null。

Varname    任何有效的变量名称。

如果varname包含Null，会返回Null。

如果varname是Variant，Len会视其为String并且总是返回其包含的字符数。

VBA函数精选之二十七（LTrim、RTrim与Trim函数）

第1.27例  LTrim、RTrim与Trim函数

一、题目：

要求编写一段代码，分别运用这三个函数来返回没有前导空白（LTrim）、尾随空白（RTrim）或前导和尾随空白（Trim）的指定字符串。

二、代码：

Sub示例_1_027（）

      DimZDzfc$,CJzfc$

      ZDzfc="  <-裁剪字符串->  "  '设置字符串初值。

    CJzfc=LTrim（ZDzfc）  '返回"<-裁剪字符串->"。

    CJzfc=RTrim（ZDzfc）  '返回"<-裁剪字符串->"。

    CJzfc=Trim（ZDzfc）  '返回"<-裁剪字符串->"。

EndSub

三、代码详解

1、Sub示例_1_027（）：

宏程序的开始语句。

宏名为示例_1_027。

2、Dim  ZDzfc$,CJzfc$  ：

声明RYzfc、CJzfc为字符串变量。

3、ZDzfc="  <-裁剪字符串->  "  ：

把指定的字符串赋给字符串变量ZDzfc。

4、CJzfc=LTrim（ZDzfc）：

  运用LTrim函数裁去左边的空白，把结果赋给变量CJzfc,返回"<-裁剪字符串->"。

5、CJzfc=RTrim（ZDzfc）：

  运用RTrim函数裁去右边的空白，把结果赋给变量CJzfc,返回"<-裁剪字符串->"。

6、CJzfc=Trim（ZDzfc）：

  运用Trim函数裁去左右两边的空白，把结果赋给变量CJzfc,返回"<-裁剪字符串->"。

LTrim、RTrim与Trim函数

返回Variant（String），其中包含指定字符串的拷贝，没有前导空白（LTrim）、尾随空白（RTrim）或前导和尾随空白（Trim）。

LTrim（string）

RTrim（string）

Trim（string）

必要的string参数可以是任何有效的字符串表达式。

如果string包含Null，将返回Null。

VBA函数精选之二十八（Mid函数）

第1.28例  Mid函数

一、题目：

要求编写一段代码，用Mid函数来返回某个字符串中的几个字符。

二、代码：

Sub示例_1_028（）

    DimMyzfc$,qmzfc$,mwzfc$,zjzfc$

    Myzfc="HELLOSHANGHAIEXPO2010"  

    qmzfc=Mid（Myzfc,1,5）  '返回"HELLO"。

  mwzfc=Mid（Myzfc,21,4）  '返回"2010"。

  zjzfc=Mid（Myzfc,7）  '返回"SHANGHAIEXPO2010"。

EndSub

三、代码详解

1、Sub示例_1_028（）：

宏程序的开始语句。

宏名为示例_1_028。

2、DimMyzfc$,qmzfc$,mwzfc$,zjzfc$  ：

声明变量均为字符串变量。

3、Myzfc="HELLOSHANGHAIEXPO2010"    ：

把指定的字符串赋给字符串变量Myzfc。

4、qmzfc=Mid（Myzfc,1,5）  ：

  运用Mid函数从左边第一个字符开始取5个字符，把结果赋给变量qmzfc,返回"HELLO"。

如果函数第2个参数超过第一个参数的字符数，Mid将返回零长度字符串（""）。

5、mwzfc=Mid（Myzfc,21,4）  ：

  运用Mid函数从左边第21个字符开始取4个字符，把结果赋给变量mwzfc,返回"2010"。

6、zjzfc=Mid（Myzfc,7）  ：

  运用Mid函数从左边第7个字符开始取直到最后的所有的字符，把结果赋给变量zjzfc,返回"SHANGHAIEXPO2010"。

这里函数第3个参数省略了，表示从第2个参数开始直到最后所有的字符。

Mid函数

返回Variant（String），其中包含字符串中指定数量的字符。

Mid（string,start[,length]）

Mid函数的语法具有下面的命名参数：

string    必要参数。

字符串表达式，从中返回字符。

如果string包含Null，将返回Null。

start    必要参数。

为Long。

string中被取出部分的字符位置。

如果start超过string的字符数，Mid返回零长度字符串（""）。

length    可选参数；为Variant（Long）。

要返回的字符数。

如果省略或length超过文本的字符数（包括start处的字符），将返回字符串中从start到尾端的所有字符。

VBA函数精选之二十九（Month和MonthName函数）

第1.29例  Month和MonthName函数

一、题目：

要求编写一段代码，用Month函数来返回某个日期的月份数，用MonthName函数返回这个月份的字符串。

二、代码：

Sub示例_1_029（）

    Dimrq,Yuef

    rq=#2008-8-12#  

    Yuef=Month（rq）  

    MsgBoxMonthName（yuef）  

EndSub

三、代码详解

1、Sub示例_1_029（）：

宏程序的开始语句。

宏名为示例_1_029。

2、Dimrq,Yuef  ：

声明变量均为可变型变量。

3、rq=#2008-8-12#    ：

把指定的日期赋给变量rq。

4、Yuef=Month（rq）  ：

  运用Month函数得到指定日期的月份，把结果赋给变量Yuef,返回月份的值为8。

5、MsgBoxMonthName（yuef）：

用消息框返回MonthName函数得到的这个月份的字符串“八月”。

Month函数

返回一个Variant（Integer），其值为1到12之间的整数，表示一年中的某月。

Month（date）

必要的date参数，可以是任何能够表示日期的Variant、数值表达式、字符串表达式或它们的组合。

如果date包含Null，则返回Null。

MonthName函数

返回一个表示指定月份的字符串。

MonthName（month[,abbreviate]）

MonthName函数语法有如下几部分：

month    必需的。

月份的数值表示。

例如一月是1，二月是2，等等。

abbreviate    可选的。

Boolean值，表示月份名是否缩写。

如果忽略，缺省值为False，表明月份名不能被缩写。

VBA函数精选之三十（MsgBox函数）

第1.30例  MsgBox函数

一、题目：

要求编写一段代码，用MsgBox函数来显示一个具有“是”及“否”按钮的对话框，并根据用户对于消息框的不同选择进行相关的操作。

二、代码：

Sub示例_1_030（）

    DimMsg,An,Bt,Yhhy

    Msg="你要继续吗?

"  

    An=vbYesNo+vbCritical+vbDefaultButton1  

    Bt="MsgBox示例"  '定义标题。

    Yhhy=MsgBox（Msg,An,Bt）

    IfYhhy=vbYesThen  '用户按下“是”。

      MsgBox"你按下的是“是”按钮。

"  '完成某操作。

    Else  '用户按下“否”。

      MsgBox"你按下的是“否”按钮。

"  '完成某操作。

    EndIf

EndSub

三、代码详解

1、Sub示例_1_030（）：

宏程序的开始语句。

宏名为示例_1_030。

2、DimMsg,An,Bt,Yhhy  ：

声明变量均为可变型变量。

3、Msg="你要继续吗?

"    ：

把指定的信息赋给变量Msg。

4、An=vbYesNo+vbCritical+vbDefaultButton1    ：

把指定的按钮赋给变量An。

这句也可写为An=4+16，第3个参数是默认的，为0，可省略。

5、Bt="MsgBox示例"  ：

把消息框的标题赋给变量Bt。

6、Yhhy=MsgBox（Msg,An,Bt）：

把MsgBox函数的返回值（即用户按了哪个按钮）赋给变量Yhhy。

7、IfYhhy=vbYesThen  ：

  如果用户按下“是”，那么执行下面的语句；

8、MsgBox"你按下的是“是”按钮。

"  用MsgBox函数返回信息，因为不需要函数的返回值，所以可以去掉函数参数的括号。

MsgBox函数

在对话框中显示消息，等待用户单击按钮，并返回一个Integer，说明用户单击了哪一个按钮。

MsgBox（prompt[,buttons][,title][,helpfile,context]）

MsgBox函数的语法具有以下几个命名参数：

Prompt    必需的。

字符串表达式，作为显示在对话框中的消息。

prompt的最大长度大约为1024个字符，由所用字符的宽度决定。

如果prompt的内容超过一行，则可以在每一行之间用回车符（Chr（13））、换行符（Chr（10））或是回车与换行符的组合（Chr（13）&Chr（10））将各行分隔开来。

Buttons    可选的。

数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。

如果省略，则buttons的缺省值为0。

Title    可选的。

在对话框标题栏中显示的字符串表达式。

如果省略title，则将应用程序名放在标题栏中。

Helpfile可选的。

字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。

如果提供了helpfile，则也必须提供context。

Context    可选的。

数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。

如果提供了context，则也必须提供helpfile。

设置值

buttons参数有下列设置值：

常数                值    描述

vbOKOnly          0    只显示OK按钮。

VbOKCancel          1    显示OK及Cancel按钮。

VbAbortRetryIgnore    2    显示Abort、Retry及Ignore按钮。

VbYesNoCancel          3    显示Yes、No及Cancel按钮。

VbYesNo                    4    显示Yes及No按钮。

VbRetryCancel          5    显示Retry及Cancel按钮。

VbCritical        16    显示CriticalMessage图标。

VbQuestion          32    显示WarningQuery图标。

VbExclamation          48    显示WarningMessage图标。

VbInformation          64    显示InformationMessage图标。

vbDefaultButton1    0    第一个按钮是缺省值。

vbDefaultButton2    256    第二个按钮是缺省值。

vbDefaultButton3    512    第三个按钮是缺省值。

vbDefaultButton4    768    第四个按钮是缺省值。

vbApplicationModal    0    应用程序强制返回；应用程序一直被挂起直到用户对消息框作出响应才继续工作。

vbSystemModal          4096    系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。

vbMsgBoxHelpButton    16384    将Help按钮添加到消息框

VbMsgBoxSetForeground    65536    指定消息框窗口作为前景窗口

vbMsgBoxRight          5