资源描述:
《vba函数实例精选》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、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]="LBoun
2、d(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
3、]="数组变量: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函数返回一个Lon
4、g型数据,其值为数组指定维可用的最小下标。LBound(arrayname[,dimension])LBound函数的参数:arrayname 必需的。数组变量的名称,遵循标准的变量命名约定。dimension 可选的;Variant(Long)。指定返回哪一维的下界。1表示第一维,2表示第二维,如此类推。如果省略dimension,就认为是1。VBA函数精选之二十四(LCase和UCase函数)第1.24例 LCase和UCase函数一、题目:要求编写一段代码,运用LCase函数来将某字符串转
5、成全部小写,并运用UCase函数再将它转成全部大写。二、代码:Sub示例_1_024() DimDxzfc$,XXzfc$ DXzfc="HELLOSHANGHAIEXPO2010" '大写的字符串。 XXzfc=Lcase(DXzfc) '返回"helloshanghaiexpo2010"。 DXzfc=Ucase(XXzfc) '返回"HELLOSHANGHAIEXPO2010"。EndSub三、代码详解1、Sub示例_1_024():宏程序的开始语句。宏名为示例_1_024
6、。2、Dim Dxzfc$,XXzfc$ :声明Dxzfc,XXzfc为字符串变量。$是String字符串数据类型的类型声明字符,其它有类型声明字符的数据类型还有:整型 Integer %长整型 Long &单精度浮点型 Single !双精度浮点型 Double #变比整型 Currency @3、DXzfc="HELLOSHANGHAIEXPO2010" :把大写的字符串赋给字符串变量DXzfc。4、XXzfc=Lcase(DXzfc) :运用L
7、Case函数把大写字符串全部转成小写赋给字符串变量XXzfc。5、DXzfc=Ucase(XXzfc) :运用UCase函数把小写字符串全部转成大写赋给字符串变量DXzfc。LCase函数返回转成小写的String。LCase(string)必要的string参数可以是任何有效的字符串表达式。如果string包含Null,将返回Null。说明只有大写的字母会转成小写;所有小写字母和非字母字符保持不变。UCase函数返回Variant(String),其中包含转成大写的字符串。UCase(string)必要的
8、string参数为任何有效的字符串表达式。如果string包含Null,将返回Null。说明只有小写的字母会转成大写;原本大写或非字母之字符保持不变。VBA函数精选之二十五(Left和Right函数)第1.25例 Left和Right函数一、题目:要求编写一段代码,运用Left函数来得到某字符串最左边的几个字符,运用Right函数来得到某字符串最右边的几个字符。二、代码:Sub示例_1_025()