VBA函数实例精选.docx
- 文档编号:22787975
- 上传时间:2023-04-27
- 格式:DOCX
- 页数:47
- 大小:38.46KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBA 函数 实例 精选