Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

VBA内置函数—LCase函数、Ucase函数、Strconv函数  

时 间:2015-07-28 09:24:17
作 者:杨雪   ID:42182  城市:南京
摘 要:VBA内置函数—LCase函数、Ucase函数、Strconv函数  
正 文:

LCase 函数
语法:LCase(string)
说明:返回转成小写的 String。
必要的 string 参数可以是任何有效的字符串表达式。如果 string 包含 Null,将返回 Null。
只有大写的字母会转成小写;所有小写字母和非字母字符保持不变。
UCase 函数
语法:UCase(string)
说明:返回 Variant (String),其中包含转成大写的字符串。
必要的 string 参数为任何有效的字符串表达式。如果 string 包含 Null,将返回 Null。
只有小写的字母会转成大写;原本大写或非字母之字符保持不变。
示例
Sub 大小写字母转换()
    Dim str1, strLower, strUpper
    str1 = "Hello Excel 2007 VBA"  ' 要输送的字符串
    strLower = LCase(str1)    ' 返回" hello excel 2007 vba"
    strUpper = UCase(str1)    ' 返回" HELLO EXCEL 2007 VBA"
    Debug.Print strLower
    Debug.Print strUpper
End Sub
StrConv 函数
语法:StrConv(string, conversion, LCID)
说明:返回按指定类型转换的 Variant (String)。
StrConv 函数的语法有下面的命名参数:
string 必要参数。要转换的字符串表达式。
conversion 必要参数。Integer。其值的和决定转换的类型。
LCID 可选的。如果与系统LocaleID不同,则为LocaleID(系统LocaleID为缺省值。)
conversion 参数的设置值为:
vbUpperCase 值为1 将字符串文字转成大写。
vbLowerCase 值为2 将字符串文字转成小写。
vbProperCase 值为3 将字符串中每个字的开头字母转成大写。
vbWide* 值为4* 将字符串中单字节字符转成双字节字符。
vbNarrow* 值为8* 将字符串中双字节字符转成单字节字符。
vbKatakana** 值为16** 将字符串中平假名字符转成片假名字符。
vbHiragana** 值为32** 将字符串中片假名字符转成平假名字符。
vbUnicode 值为64 根据系统的缺省码页将字符串转成 Unicode。 (在Macintosh中不可用。)
vbFromUnicode 值为128 将字符串由 Unicode 转成系统的缺省码页。 (在Macintosh中不可用。)
*应用到远东区域。
**仅应用到日本。
注意 这些常数是由 VBA 指定的。可以在程序中使用它们来替换真正的值。其中大部分是可以组合的,

例如 vbUpperCase + vbWide,互斥的常数不能组合,例如 vbUnicode + vbFromUnicode。当在不适用

的区域使用常数 vbWide、vbNarrow、vbKatakana,和 vbHiragana 时,就会导致运行时错误。
下面是一些一般情况下的有效分界符:Null (Chr$(0)),水平制表符 (Chr$(9)),换行 (Chr$(10)),

垂直制表符 (Chr$(11)),换页 (Chr$(12)) ,回车 (Chr$(13)),空白 (SBCS) (Chr$(32))。在 DBCS

中,空白的实际值会随国家/地区而不同。
说明:在把 ANSI 格式的 Byte 数组转换为字符串时,您应该使用 StrConv 函数。当您转换 Unicode

格式的这种数组时,使用赋值语句。
示例
Sub 字符转换()
    Dim str1, strLower, strUpper, strProper
    str1 = "Hello Excel 2007 VBA"   ' 要输送的字符串
    strLower = StrConv(str1, vbLowerCase)   ' 返回" hello excel 2007 vba"
    strUpper = StrConv(str1, vbUpperCase)   ' 返回" HELLO EXCEL 2007 VBA "
    strProper = StrConv(str1, vbProperCase)  ' 返回" Hello excel 2007 vba "
    Debug.Print strLower
    Debug.Print strUpper
    Debug.Print strProper
End Sub
补充: VBA函数Lcase相对应的 函数为Lower
      VBA函数Ucase相对应的函数为Upper



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助