分享

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

 沧海云潇 2019-05-25

来源:www.  

时 间: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

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多