资源描述：
《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()
