搜索
查看: 2232|回复: 0

VBA 字符串函数

[复制链接]

977

主题

1093

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
15934
发表于 2018-12-20 15:06:10 | 显示全部楼层 |阅读模式

InStr([start,]string1,string2[,compare])
        '函数返回一个字符串第一次出现在一个字符串,从左到右搜索。返回搜索到的字符索引位置。
        MsgBox ("Line 1 : " & InStr(1, “safdfasdf”, "s"))
    InStrRev(string1,string2[,start,[compare]])
        '函数返回一个字符串在另一个字符串中的第一次出现。搜索从右到左
        msgbox("Line 1 : " & InStrRev("asdfasdf","s",10))
    Lcase(String)
        '将字符串转换为小写字母后返回字符串
        msgbox("Line 1 : " & LCase("DJUEG"))
    UCase(String)
        '将字符串转换为大写字母后返回字符串
        msgbox("Line 1 : " & LCase("ioek"))
    Left(String, Length)
        '从字符串的左侧返回指定数量的字符
        msgbox("Line 1 : " & Left("adfasdf",2))
    Right(String, Length)
        '从字符串的右侧返回指定数量的字符
        msgbox("Line 1 : " & Right("adfasdf",2))
    Mid(String,start[,Length])
        ’返回给定输入字符串中指定数量的字符
        msgbox("Line 1 : " & Mid("adfsd",2))
    Ltrim(String)
        '删除字符串左侧的空格。
        msgbox "After Ltrim : " & LTrim("   adfasdfsd")
    RTrim(String)
        '删除字符串右侧的空格
        msgbox "After Ltrim : " & RTrim("adfasdfsd  ")
    Trim(String)
        '删除给定输入字符串的前导空格和尾随空格
        msgbox "After Ltrim : " & RTrim("   adfasdfsd  ")
    Len(String)
        '返回给定输入字符串的长度,包括空格
        msgbox("Length of var1 is : " & Len("sdf sdfsd  "))
    space(number)
        '用特定数量的空格填充字符串
        msgbox("aaa" & Space(2)& "bbb")
    StrComp(string1,string2[,compare])
        '比较两个给定字符串后,返回一个整数值。
        msgbox("Line 1 :" & StrComp("Microsoft","Microsoft"))
    Replace ( string1, find, replacement, [start, [count, [compare]]] )
        '用另一个字符串替换字符串后返回字符串。
        msgbox("Line 1 :" & Replace("alphabet", "a", "e", 1, 1))
    String(number,character)
        '使用指定的字符填充指定次数的字符串
        msgbox("Line 1 :" & String(3,"$"))
    StrReverse(string)
        '反转指定的字符串
         msgbox("Line 1 : " & StrReverse("VBSCRIPT"))

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

表格智创网

网站简介:表格智创网,是一家以表格设计和技能分享的专业社区,由会计帮帮网投资建设,尽专业,助提高专业技能。

表格智创网欢迎您!

联系我们

  • 工作时间:早上9:00-16:00
  • 客服电话:18668755857
  • 本站网址:www.excelwps.com
  • 淘宝店址:kjbbw.taobao.com

Powered by Discuz! X3.4 © 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表