精华内容
下载资源
问答
  • VBA字符串

    千次阅读 2018-12-08 20:44:27
    字符串是一个字符序列,可以由字母,数字,特殊字符或全部字符组成。 如果一个变量被包含在双引号""中,则被认为是一个字符串。 语法: variable_name = "this is a string"   1、InStr...

     

    字符串是一个字符序列,可以由字母,数字,特殊字符或全部字符组成。 如果一个变量被包含在双引号""中,则被认为是一个字符串。

    语法:

    variable_name = "this is a string"

     

    1、InStr函数

    语法:

    InStr([start,]string1,string2[,compare])

    参数说明

    • Start - 一个可选参数。指定搜索的起始位置。搜索从第一个位置开始,从左到右。
    • String1 - 必需的参数。要搜索的字符串。
    • String2 - 必需的参数。要在String1中搜索的字符串。
    • Compare - 一个可选参数。指定要使用的字符串比较。它可以采取以下提到的值:
      • 0 = vbBinaryCompare - 执行二进制比较(默认)
      • 1 = vbTextCompare - 执行文本比较

    函数返回值分为0 和其他整数(绝对字符索引位置)

    若搜索不到就返回0

    Private Sub Constant_demo_Click() 
       Dim Var As Variant 
       Var = "Microsoft VBScript" 
       MsgBox ("Line 1 : " & InStr(1, Var, "s")) 
       MsgBox ("Line 2 : " & InStr(7, Var, "s")) 
       MsgBox ("Line 3 : " & InStr(1, Var, "f", 1)) 
       MsgBox ("Line 4 : " & InStr(1, Var, "t", 0)) 
       MsgBox ("Line 5 : " & InStr(1, Var, "i")) 
       MsgBox ("Line 6 : " & InStr(7, Var, "i")) 
       MsgBox ("Line 7 : " & InStr(Var, "VB")) 
    End Sub

    2、InStrRev

    InStrRev()函数返回一个字符串在另一个字符串中的第一次出现。搜索从右到左。

    InStrRev(string1,string2[,start,[compare]])
    

     

    • String1 - 必需的参数,要搜索的字符串。
    • String2 - 必需的参数。要在String1中搜索的字符串。
    • Start - 一个可选参数。指定搜索的起始位置。从右到左的第一个位置开始搜索。
    • Compare - 一个可选参数。指定要使用的字符串比较。 它可以采取以下提到的价值。
      • 0 = vbBinaryCompare - 执行二进制比较(默认)
      • 1 = vbTextCompare - 执行文本比较

    其中Start参数是指定搜索的起始位置,比如指定start=5,那么搜索从o开始往左搜索,如果搜索s,则返回值为0.

    Private Sub Constant_demo_Click()
       var = "Microsoft VBScript"
       msgbox("Line 1 : " & InStrRev(var,"s",10))
       msgbox("Line 2 : " & InStrRev(var,"s",7))
       msgbox("Line 3 : " & InStrRev(var,"f",-1,1))
       msgbox("Line 4 : " & InStrRev(var,"t",5))
       msgbox("Line 5 : " & InStrRev(var,"i",7))
       msgbox("Line 6 : " & InStrRev(var,"i",7))
       msgbox("Line 7 : " & InStrRev(var,"VB",1))
    End Sub

    3、LCase()

    LCase()函数将输入的字符串转换为小写字母后返回字符串。

    Private Sub Constant_demo_Click()
       var = "Microsoft VBScript"
       msgbox("Line 1 : " & LCase(var))
    
       var = "MS VBSCRIPT"
       msgbox("Line 2 : " & LCase(var))
    
       var = "microsoft"
       msgbox("Line 3 : " & LCase(var))
    End Sub

    4、UCase()将字符串转为大写字母

    UCase函数将输入的字符串转换为大写字母后返回字符串。

    Private Sub Constant_demo_Click()
       var = "Microsoft VBScript"
       msgbox("Line 1 : " & UCase(var))
    
       var = "MS VBSCRIPT"
       msgbox("Line 2 : " & UCase(var))
    
       var = "microsoft"
       msgbox("Line 3 : " & UCase(var))
    End Sub
    Line 1 : MICROSOFT VBSCRIPT
    Line 2 : MS VBSCRIPT
    Line 3 : MICROSOFT

    5、left/right/Mid和excel里面含义一样

    8、Ltrim()函数删除字符串左侧的空格。

    Private Sub Constant_demo_Click()
       Dim var as Variant
       var =       "             Microsoft VBScript"
       msgbox "After Ltrim : " & LTrim(var)
    End Sub

    9、同Ltrim

    11、Len函数

    Len函数返回给定输入字符串的长度,包括空格。

    12、Replace函数

    Private Sub Constant_demo_Click()
       Dim var As Variant
       var = "VBAlesson"
       MsgBox "Repalce函数用法,原字符串“VBAlesson”,删除VBA后剩下 " & Replace(var, "VBA", "")
    End Sub
    

    13、Space函数用特定数量的空格填充字符串。

    Private Sub Constant_demo_Click()
       Dim var1 as Variant
    
       var1 = "Microsoft"
       Dim var2 as Variant
    
       var2 = "VBScript"
       msgbox(var1 & Space(2)& var2)
    End Sub

    14、StrComp(string1,string2[,compare])

    在比较两个给定字符串后,StrComp函数返回一个整数值。它可以根据要比较的输入字符串返回三个值:-1,01中的任何一个。如下 -

    • 如果 String1 < String2, 那么 StrComp 函数返回 -1
    • 如果 String1 = String2, 那么 StrComp 函数返回 0
    • 如果 String1 > String2, 那么 StrComp 函数返回 1

     

    语法

    StrComp(string1,string2[,compare])
    

    Vb

    参数说明

    • String1 - 必需的参数。第一个字符串表达式。
    • String2 - 必需的参数。第二个字符串表达式。
    • Compare - 一个可选参数。 指定要使用的字符串比较。它可以采用以下值。
      • 0 = vbBinaryCompare - 执行二进制比较(默认)
      • 1 = vbTextCompare - 执行文本比较
    Private Sub Constant_demo_Click()
       Dim var1 As Variant
       MsgBox ("Line 1 :" & StrComp("Microsoft", "Microsoft"))
       MsgBox ("Line 2 :" & StrComp("M", "m"))
       MsgBox ("Line 3 :" & StrComp("Microsoft", "MiCrOsOfT"))
       MsgBox ("Line 4 :" & StrComp("Microsoft", "MiCrOsOfT", 1))
       MsgBox ("Line 5 :" & StrComp("Microsoft", "MiCrOsOfT", 0))
    End Sub

    小写字母大于大写字母

    Tips:执行二进制比较,小写=大写字母

    15、String函数

    String函数使用指定的字符填充指定次数的字符串。

    语法

    String(number,character)
    

    Vb

    参数说明

    • Number - 必需的参数。一个整数值,对于字符参数将重复指定的次数。
    • Character - 必需的参数。字符值,必须重复指定的次数。
    Private Sub Constant_demo_Click()
       msgbox("Line 1 :" & String(3,"$"))
       msgbox("Line 2 :" & String(4,"*"))
       msgbox("Line 3 :" & String(5,100))
       msgbox("Line 4 :" & String(6,"ABCDE"))
    End Sub

    结果如下:

    Line 1 :$$$
    Line 2 :****
    Line 3 :ddddd
    Line 4 :AAAAAA

    16、StrReverse()

    StrReverse函数反转指定的字符串。

    语法

    StrReverse(string)
    Private Sub Constant_demo_Click()
       msgbox("Line 1 : " & StrReverse("VBSCRIPT"))
       msgbox("Line 2 : " & StrReverse("My First VBScript"))
       msgbox("Line 3 : " & StrReverse("123.45"))
    End Sub

    结果:

    Line 1 : TPIRCSBV
    Line 2 : tpircSBV tsriF yM
    Line 3 : 54.321

     

     

    展开全文
  • VBA字符串处理函数2

    2012-03-02 10:10:34
    可使用InStr函数返回一字符串在另一字符串中的位置,因此,也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为: InStr([Start,]string1,string2[,compare]) 其中,参数Start为可选参数,设置查找...
    2.6 查找字符串
    2.6.1 InStr函数

    可使用InStr函数返回一字符串在另一字符串中的位置,因此,也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为:
    InStr([Start,]string1,string2[,compare])
    其中,参数Start为可选参数,设置查找的起点,如果省略,则从第一个字符的位置开始查找,当指定了参数Compare时,则要指定此参数。参数string1为被查找的字符串,参数string2为要查找的字符串,这两个参数都是必需的。
    如果在String1中没有找到String2,返回0;如果找到String2,则返回String2第一个出现的首字符位置(即1到String1的长度);如果String2的长度为零,返回Start。
    可看看下面的示例:
    Sub test()
    Dim SearchString, SearchChar, MyPos
    SearchString = "XXpXXpXXPXXP"   &apos;被搜索的字符串
      SearchChar = "P"   &apos;要查找字符串 "P"
    &apos;从第四个字符开始,以文本比较的方式找起,返回值为 6(小写 p)
    &apos;小写 p 和大写 P 在文本比较下是一样的
      MyPos = InStr(4, SearchString, SearchChar, 1)
    Debug.Print MyPos
    &apos;从第一个字符开使,以二进制比较的方式找起,返回值为 9(大写 P)
    &apos;小写 p 和大写 P 在二进制比较下是不一样的
      MyPos = InStr(1, SearchString, SearchChar, 0)
    Debug.Print MyPos
      &apos;缺省的比对方式为二进制比较(最后一个参数可省略)
      MyPos = InStr(SearchString, SearchChar)    &apos;返回 9
      Debug.Print MyPos
    MyPos = InStr(1, SearchString, "W")   &apos;返回 0
      Debug.Print MyPos
    End Sub
    2.6.2 InStrRev函数
    也可以使用InStrRev函数返回一个字符串在另一个字符串中出现的位置,与InStr函数不同的是,从字符串的末尾算起。其语法为:
    InStrRev(String1,String2[,[Start[,compare])
    参 数String1为被查找的字符串,参数String2为要查找的字符串,这两个参数都是必需的。参数Start为可选参数,设置每次查找开始的位置,若 忽略则使用-1,表示从上一个字符位置开始查找。参数Compare为可选参数,表示所使用的比较方法,如果忽略则执行二进制比较。
    下面的示例使用了InStr函数和InStrRev函数,相应的结果不同:
    Sub test()
    Dim myString As String
    Dim sSearch As String
    myString = "I like the functionality that InsStrRev gives"
    sSearch = "th"
    Debug.Print InStr(myString, sSearch) &apos;返回8
      Debug.Print InStrRev(myString, sSearch) &apos;返回26
    End Sub
    - - - - - - - - - - - - - - - - - - - - - - -
    2.7 提取字符/字符串
    2.7.1 Left函数
    Left函数可以从字符串的左边开始提取字符或指定长度的字符串,即返回包含字符串中从左边算起指定数量的字符。其语法为:
    Left(String,CharNum)
    其中,如果参数String包含Null,则返回Null;如果参数CharNum的值大于或等于String的字符数,则返回整个字符串。
    例如,下面的代码返回指定字符串的前两个字符:
    strLeft=Left(“This is a pig.”,2)
    Left函数与InStr函数结合,返回指定字符串的第一个词,例如下面的代码:
    str = "This is a pig."
    FirstWord = Left(str, InStr(str, " ") - 1)
    2.7.2 Right函数
    与Left函数不同的是,Right函数从字符串的右边开始提取字符或指定长度的字符串,即返回包含字符串中从右边起指定数量的字符。其语法为:
    Right(String,CharNum)
    例如:
    AnyString = "Hello World"    &apos; 定义字符串
    MyStr = Right(AnyString, 1)   &apos; 返回 "d"
    MyStr = Right(AnyString, 6)    &apos; 返回 " World"
    MyStr = Right(AnyString, 20)   &apos; 返回 "Hello World"
    如果存放文件名的字符串中没有反斜杠(\),下面的代码将反斜杠(\)添加到该字符串中:
    If Right(strFileName,1) <> “” Then
    strFileName=strFileName & “\”
    End If
    下面的函数假设传递给它的参数或者是文件名,或者是包含完整路径的文件名,从字符串的末尾开始返回文件名。
    Private Function ParseFileName(strFullPath As String)
    Dim lngPos As Long, lngStart As Long
    Dim strFilename As String
    lngStart = 1
    Do
    lngPos = InStr(lngStart, strFullPath, "\")
    If lngPos = 0 Then
    strFilename = Right(strFullPath, Len(strFullPath) - lngStart + 1)
    Else
    lngStart = lngPos + 1
    End If
    Loop While lngPos > 0
    ParseFileName = strFilename
    End Function
    2.7.3 Mid函数
    Mid函数可以从字符串中提取任何指定的子字符串,返回包含字符串中指定数量的字符的字符串。其语法为:
    Mid(String,Start[,Len])
    其中,如果参数String包含Null,则返回Null;如果参数Start超过了String的字符数,则返回零长度字符串(“”);如果参数Len省略或超过了文本的字符数,则返回字符串从Start到最后的所有字符。
    例如,下面的代码:
    Str=Mid(“This is a pig.”,6,2)
    将返回文本“is”。
    下面的代码:
    MyString = "Mid Function Demo"   &apos;建立一个字符串
    FirstWord = Mid(MyString, 1, 3)   &apos;返回 "Mid"
    LastWord = Mid(MyString, 14, 4)    &apos;返回 "Demo"
    MidWords = Mid(MyString, 5)   &apos;返回 "Funcion Demo"
    Mid函数常用于在字符串中循环,例如,下面的代码将逐个输出字符:
    Dim str As String
    Dim i As Integer
    Str=”Print Out each Character”
    For i=1 to Len(str)
    Debug.Print Mid(str,i,1)
    Next i
    2.7.4 Mid语句
    Mid语句可以用另一个字符串中的字符替换某字符串中指定数量的字符。其语法为:
    Mid(Stringvar,Start[,Len])=string
    其中,参数Stringvar代表为要被更改的字符串;参数Start表示被替换的字符开头位置;参数Len表示被替换的字符数,若省略则全部使用string;参数string表示进行替换的字符串。
    被替换的字符数量总小于或等于Stringvar的字符数;如果string的数量大于Len所指定的数量,则只取string的部分字符。示例如下:
    MyString = "The dog jumps"   &apos; 设置字符串初值
    Mid(MyString, 5, 3) = "fox"    &apos; MyString = "The fox jumps"
    Mid(MyString, 5) = "cow"   &apos; MyString = "The cow jumps"
    Mid(MyString, 5) = "cow jumped over"    &apos; MyString = "The cow jumpe"
    Mid(MyString, 5, 3) = "duck"    &apos; MyString = "The duc jumpe"
    - - - - - - - - - - - - - - - - - - - - - - -
    2.8 删除空格
    LTrim函数删除字符串前面的空格;
    RTrim函数删除字符串后面的空格;
    Trim函数删除两头的空格。
    示例如下:
    MyString = "  <-Trim->  "    &apos; 设置字符串初值
    TrimString = LTrim(MyString)    &apos; TrimString = "<-Trim->  "
    TrimString = RTrim(MyString)   &apos; TrimString = "  <-Trim->"
    TrimString = LTrim(RTrim(MyString))    &apos; TrimString = "<-Trim->"
    &apos; 只使用 Trim 函数也同样将两头空格去除
    TrimString = Trim(MyString)   &apos; TrimString = "<-Trim->"
    - - - - - - - - - - - - - - - - - - - - - - -
    2.9 返回字符代码
    Asc函数返回指定字符串表达式中第一个字符的字符代码。示例如下:
    MyNumber = Asc("A")   &apos; 返回 65
    MyNumber = Asc("a")    &apos; 返回 97
    MyNumber = Asc("Apple")   &apos; 返回 65
    [编程方法和技巧]
    (1) 在数据验证中用Asc来决定一些条件,如第一个字符是大写还是小写、是字母还是数字。
    Private Sub CommandButton1_Click()
    Dim sTest As String
    Dim iChar As Integer
    sTest = TextBox1.Text
    If Len(sTest) > 0 Then
    iChar = Asc(sTest)
    If iChar >= 65 And iChar <= 90 Then
    MsgBox "第一个字符是大写"
    ElseIf iChar >= 97 And iChar <= 122 Then
    MsgBox "第一个字符是小写"
    Else
    MsgBox "第一个字符不是字母"
    End If
    Else
    MsgBox "请在文本框中输入"
    End If
    End Sub
    (2) 用Asc函数和Chr函数来创建基本加密的方法。
    Private Sub CommandButton2_Click()
    Dim MyName As String, MyEncryptedString As String
    Dim MyDecryptedString As String
    Dim i As Integer
    MyName = "fanjy"
    For i = 1 To Len(MyName)
    MyEncryptedString = MyEncryptedString & Chr(Asc(Mid(MyName, i, 1)) + 25)
    Next i
    MsgBox "您好!我的名字是" & MyEncryptedString
    For i = 1 To Len(MyName)
    MyDecryptedString = MyDecryptedString & Chr(Asc(Mid(MyEncryptedString, i, 1)) - 25)
    Next i
    MsgBox "您好!我的名字是" & MyDecryptedString
    End Sub
    - - - - - - - - - - - - - - - - - - - - - - -
    2.10 返回数值代表的相应字符
    Chr函数返回指定字符码所代表的字符,其语法为:
    Chr(charcode)
    其中参数charcode代表字符码,一般为0~255。例如:
    MyChar = Chr(65)  &apos; 返回 A
    MyChar = Chr(97)   &apos; 返回 a
    MyChar = Chr(62)  &apos; 返回 >
    MyChar = Chr(37)  &apos; 返回 %
    [编程方法和技巧]
    (1) 使用Chr(34)将引号嵌入字符串,如
    Chr(34) & sString & Chr(34)
    (2) 下面列出了在调用Chr函数时比较常用的字符代码:
    代码  值    描述
    0   Null   相当于vbNullChar常数
    8   BS   相当于vbBack常数
    9   TAB   相当于vbTab常数
    10   CR   相当于vbCr和vbCrLf常数
    13   LF   相当于vbLf和vbCrLf常数
    34   “”   引号
    - - - - - - - - - - - - - - - - - - - - - - -
    2.11 使用字节的函数
    VBA 中返回字符串的函数有两种格式,一种以$结尾,返回字符串,不需要进行类型转换,所以速度较快,但如果输入值是包含Null的Viarant,则会发生运 行错误;一种没有$,返回Viarant数据类型,如果输入值是包含Null的Viarant,则返回Null。因而,如果要使得程序运行速度快,则使用 带有$的函数且要避免向这些函数传递空值。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.12 返回数组的函数
    2.12.1 Filter函数
    Filter函数返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。其语法为:
    Filter(sourcearray,match[,include[,compare]])
    其 中,参数sourcearray必需,是要执行搜索的一维字符串数组;参数match必需,是要搜索的字符串;参数include可选,Boolean 值,表示返回子串包含还是不包含match字符串,如果include为True,返回包含match子字符串的数组子集,如果include为 False,返回不包含match子字符串的数组子集;参数compare可选,表示所使用的字符串比较类型,其设置值为:-1(常数为 vbUseCompareOption)表示使用Option Compare语句的设置值来执行比较;0(常数为vbBinaryCompare)表示执行二进制比较;1(常数为vbTextCompare)表示执 行文字比较;2(常数为vbDatabaseCompare)只用于Microsoft Access,表示基于数据库信息来执行比较。
    如果在sourcearray中没有发现与match相匹配的值,Filter函数返回一个空数组;如果sourcearray是Null或不是一个一维数组,则产生错误。
    Filter函数所返回的数组,其元素数是所找到的匹配项目数。
    [编程方法和技巧]
    (1) Filter函数也可以过滤数字值。此时,应指定Variant类型的字符串sourcearray,并用数字值给数组赋值。同时,也可以将字符串、 Variant、Long或Integer数据传递给match。但应注意,返回的字符串表现为被过滤数字的字符串的形式。例如:
    Sub test()
    Dim varSource As Variant, varResult As Variant
    Dim strMatch As String, i
    strMatch = CStr(2)
    varSource = Array(10, 20, 30, 21, 22, 32)
    varResult = Filter(varSource, strMatch, True, vbBinaryCompare)
    For Each i In varResult
    Debug.Print i
    Next
    End Sub
    将返回20,21,22,32
    (2) Filter函数可以和Dictionary对象很好地配合使用。可以把Dictionary对象产生的Key值作为一种过滤Dictionary对象成员的快速方法传递给Filter函数,如:
    Sub test()
    Dim i As Integer
    Dim sKeys() As Variant
    Dim sFiltered() As String
    Dim sMatch As String
    Dim blnSwitch As Boolean
    Dim oDict As Dictionary
    Set oDict = New Dictionary
    oDict.Add "Microsoft", "One Microsoft Way"
    oDict.Add "AnyMicro Inc", "31 Harbour Drive"
    oDict.Add "Landbor Data", "The Plaza"
    oDict.Add "Micron Co.", "999 Pleasant View"
    sKeys = oDict.Keys
    sMatch = "micro"
    blnSwitch = True
      &apos;寻找包含字符串macro(不区分大小写)的所有键
      sFiltered() = Filter(sKeys, sMatch, blnSwitch, vbTextCompare)
    For i = 1 To UBound(sFiltered)
    Debug.Print sFiltered(i) & "," & oDict.Item(sFiltered(i))
    Next i
    End Sub
    2.12.2 Split函数
    Split函数返回一个下标从零开始的一维数组,包含指定数目的子字符串。其语法为:
    Split(expression[,delimiter[,limit[,compare]]])
    其 中,参数expression必需,表示包含子字符串和分隔符的字符串,若expression是一个长度为零的字符串(“”),该函数则返回一个没有元 素和数据的空数组;参数delimiter用于标识子字符串边界的字符串字符,若忽略则使用空格(“ “)作为分隔符,若是一个长度为零的字符串则返回仅包含一个元素的数组,该元素是expression所表示的字符串;参数limit表示要返回的子字符 串数,-1表示返回所有的子字符串;参数compare表示判别子字符串时使用的比较方式,其值与Filter函数的设置值相同。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.13 连接字符串
    Join函数返回连接某数组中的多个子字符串而组成的字符串,即将数组中的字符串连接起来。其语法为:
    Join(sourcearray[,delimiter])
    其中,参数sourcearray必需,是包含被连接子字符串的一维数组;参数delimiter可选,代表在所返回的字符串中用于分隔子字符串的字符,若忽略则使用空(“ ”)来分隔,若为零长字符串(“”),则所有项目都连接在一起,中间没有分隔符。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.14 替换字符串
    Replace函数返回一个被替换了的字符串,该字符串中指定的子字符串已被替换成另一个子字符串,并且替换指定次数。其语法为:
    Replace(expression,find,replace[,start[,count[,compare]]])
    其 中,参数expression必需,表示所要替换的子字符串;参数find必需,表示要搜索到的子字符串;参数replace必需,表示用来替换的子字符 串;参数start表示开始搜索的位置,若忽略,则从1开始;参数count表示进行替换的次数,缺省值是-1,表示进行所有可能的替换;参数 compare表示判别子字符串时所用的比较方式,与Filter函数的设置值相同。
    如果expression的长度为零,Replace返回零 长度字符串(“”);如果expression为Null,则返回错误;如果find的长度为零,则返回expression的副本;如果replace 的长度为零,则返回删除了所有出现find的字符串的副本;如果start的值大于expression的长度,则返回长度为零的字符串;如果count 为0,则返回expression的副本。
    Replace函数返回的字符串是从参数start所指定的位置开始到expression结尾已经进行过替换的字符串。
    注意:
    (1) 如果没有使用参数count,那么当替换较短字符串时就要注意,防止形成一个不相关的字符。
    (2) 如果start值大于1,返回的字符串将从start开始,而不是从原有字符串的第一个字符开始。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.15 反向字符串
    StrReverse函数返回与指定字符串顺序相反的字符串,其语法为:
    StrReverse(expression)
    其中,参数expression是一个字符串,应用StrReverse函数后将返回与该字符串顺序相反的字符串。如果expression是一个长度为零的字符串(“”),则返回一个长度为零的字符串;如果expression为Null,则产生一个错误。
    展开全文
  • VBA字符串处理函数 (2)

    千次阅读 2012-11-08 02:29:25
    可使用InStr函数返回一字符串在另一字符串中的位置,因此,也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为: InStr([Start,]string1,string2[,compare]) 其中,参数Start为可选参数,设置查找...
    2.6 查找字符串
    2.6.1 InStr函数
    可使用InStr函数返回一字符串在另一字符串中的位置,因此,也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为:
    InStr([Start,]string1,string2[,compare])
    其中,参数Start为可选参数,设置查找的起点,如果省略,则从第一个字符的位置开始查找,当指定了参数Compare时,则要指定此参数。参数string1为被查找的字符串,参数string2为要查找的字符串,这两个参数都是必需的。
    如果在String1中没有找到String2,返回0;如果找到String2,则返回String2第一个出现的首字符位置(即1到String1的长度);如果String2的长度为零,返回Start。
    可看看下面的示例:
    Sub test()
    Dim SearchString, SearchChar, MyPos
    SearchString = "XXpXXpXXPXXP"   &apos;被搜索的字符串
      SearchChar = "P"   &apos;要查找字符串 "P"
     &apos;从第四个字符开始,以文本比较的方式找起,返回值为 6(小写 p)
    &apos;小写 p 和大写 P 在文本比较下是一样的
      MyPos = InStr(4, SearchString, SearchChar, 1)
    Debug.Print MyPos
    &apos;从第一个字符开使,以二进制比较的方式找起,返回值为 9(大写 P)
    &apos;小写 p 和大写 P 在二进制比较下是不一样的
      MyPos = InStr(1, SearchString, SearchChar, 0)
    Debug.Print MyPos
      &apos;缺省的比对方式为二进制比较(最后一个参数可省略)
      MyPos = InStr(SearchString, SearchChar)    &apos;返回 9
      Debug.Print MyPos
    MyPos = InStr(1, SearchString, "W")   &apos;返回 0
    Debug.Print MyPos
    End Sub
    2.6.2 InStrRev函数
    也可以使用InStrRev函数返回一个字符串在另一个字符串中出现的位置,与InStr函数不同的是,从字符串的末尾算起。其语法为:
    InStrRev(String1,String2[,[Start[,compare])
    参 数String1为被查找的字符串,参数String2为要查找的字符串,这两个参数都是必需的。参数Start为可选参数,设置每次查找开始的位置,若 忽略则使用-1,表示从上一个字符位置开始查找。参数Compare为可选参数,表示所使用的比较方法,如果忽略则执行二进制比较。
    下面的示例使用了InStr函数和InStrRev函数,相应的结果不同:
    Sub test()
    Dim myString As String
    Dim sSearch As String
    myString = "I like the functionality that InsStrRev gives"
    sSearch = "th"
    Debug.Print InStr(myString, sSearch) &apos;返回8
      Debug.Print InStrRev(myString, sSearch) &apos;返回26
    End Sub
    - - - - - - - - - - - - - - - - - - - - - - -
    2.7 提取字符/字符串
    2.7.1 Left函数
    Left函数可以从字符串的左边开始提取字符或指定长度的字符串,即返回包含字符串中从左边算起指定数量的字符。其语法为:
    Left(String,CharNum)
    其中,如果参数String包含Null,则返回Null;如果参数CharNum的值大于或等于String的字符数,则返回整个字符串。
    例如,下面的代码返回指定字符串的前两个字符:
    strLeft=Left(“This is a pig.”,2)
    Left函数与InStr函数结合,返回指定字符串的第一个词,例如下面的代码:
    str = "This is a pig."
    FirstWord = Left(str, InStr(str, " ") - 1)
    2.7.2 Right函数
    与Left函数不同的是,Right函数从字符串的右边开始提取字符或指定长度的字符串,即返回包含字符串中从右边起指定数量的字符。其语法为:
    Right(String,CharNum)
    例如:
    AnyString = "Hello World"    &apos; 定义字符串
    MyStr = Right(AnyString, 1)   &apos; 返回 "d"
    MyStr = Right(AnyString, 6)    &apos; 返回 " World"
    MyStr = Right(AnyString, 20)   &apos; 返回 "Hello World"
    如果存放文件名的字符串中没有反斜杠(\),下面的代码将反斜杠(\)添加到该字符串中:
    If Right(strFileName,1) <> “” Then
    strFileName=strFileName & “\”
    End If
    下面的函数假设传递给它的参数或者是文件名,或者是包含完整路径的文件名,从字符串的末尾开始返回文件名。
    Private Function ParseFileName(strFullPath As String)
    Dim lngPos As Long, lngStart As Long
    Dim strFilename As String
    lngStart = 1
    Do
    lngPos = InStr(lngStart, strFullPath, "\")
    If lngPos = 0 Then
    strFilename = Right(strFullPath, Len(strFullPath) - lngStart + 1)
    Else
    lngStart = lngPos + 1
    End If
    Loop While lngPos > 0
    ParseFileName = strFilename
    End Function
    2.7.3 Mid函数
    Mid函数可以从字符串中提取任何指定的子字符串,返回包含字符串中指定数量的字符的字符串。其语法为:
    Mid(String,Start[,Len])
    其中,如果参数String包含Null,则返回Null;如果参数Start超过了String的字符数,则返回零长度字符串(“”);如果参数Len省略或超过了文本的字符数,则返回字符串从Start到最后的所有字符。
    例如,下面的代码:
    Str=Mid(“This is a pig.”,6,2)
    将返回文本“is”。
    下面的代码:
    MyString = "Mid Function Demo"   &apos;建立一个字符串
    FirstWord = Mid(MyString, 1, 3)   &apos;返回 "Mid"
    LastWord = Mid(MyString, 14, 4)    &apos;返回 "Demo"
    MidWords = Mid(MyString, 5)   &apos;返回 "Funcion Demo"
    Mid函数常用于在字符串中循环,例如,下面的代码将逐个输出字符:
    Dim str As String
    Dim i As Integer
    Str=”Print Out each Character”
    For i=1 to Len(str)
    Debug.Print Mid(str,i,1)
    Next i
    2.7.4 Mid语句
    Mid语句可以用另一个字符串中的字符替换某字符串中指定数量的字符。其语法为:
    Mid(Stringvar,Start[,Len])=string
    其中,参数Stringvar代表为要被更改的字符串;参数Start表示被替换的字符开头位置;参数Len表示被替换的字符数,若省略则全部使用string;参数string表示进行替换的字符串。
    被替换的字符数量总小于或等于Stringvar的字符数;如果string的数量大于Len所指定的数量,则只取string的部分字符。示例如下:
    MyString = "The dog jumps"   &apos; 设置字符串初值
    Mid(MyString, 5, 3) = "fox"    &apos; MyString = "The fox jumps"
    Mid(MyString, 5) = "cow"   &apos; MyString = "The cow jumps"
    Mid(MyString, 5) = "cow jumped over"    &apos; MyString = "The cow jumpe"
    Mid(MyString, 5, 3) = "duck"    &apos; MyString = "The duc jumpe"
    - - - - - - - - - - - - - - - - - - - - - - -
    2.8 删除空格
    LTrim函数删除字符串前面的空格;
    RTrim函数删除字符串后面的空格;
    Trim函数删除两头的空格。
    示例如下:
    MyString = "  <-Trim->  "    &apos; 设置字符串初值
    TrimString = LTrim(MyString)    &apos; TrimString = "<-Trim->  "
    TrimString = RTrim(MyString)   &apos; TrimString = "  <-Trim->"
    TrimString = LTrim(RTrim(MyString))    &apos; TrimString = "<-Trim->"
    &apos; 只使用 Trim 函数也同样将两头空格去除
    TrimString = Trim(MyString)   &apos; TrimString = "<-Trim->"
    - - - - - - - - - - - - - - - - - - - - - - -
    2.9 返回字符代码
    Asc函数返回指定字符串表达式中第一个字符的字符代码。示例如下:
    MyNumber = Asc("A")   &apos; 返回 65
    MyNumber = Asc("a")    &apos; 返回 97
    MyNumber = Asc("Apple")   &apos; 返回 65
    [编程方法和技巧]
    (1) 在数据验证中用Asc来决定一些条件,如第一个字符是大写还是小写、是字母还是数字。
    Private Sub CommandButton1_Click()
    Dim sTest As String
    Dim iChar As Integer
    sTest = TextBox1.Text
    If Len(sTest) > 0 Then
    iChar = Asc(sTest)
    If iChar >= 65 And iChar <= 90 Then
    MsgBox "第一个字符是大写"
    ElseIf iChar >= 97 And iChar <= 122 Then
    MsgBox "第一个字符是小写"
    Else
    MsgBox "第一个字符不是字母"
    End If
    Else
    MsgBox "请在文本框中输入"
    End If
    End Sub
    (2) 用Asc函数和Chr函数来创建基本加密的方法。
    Private Sub CommandButton2_Click()
    Dim MyName As String, MyEncryptedString As String
    Dim MyDecryptedString As String
    Dim i As Integer
    MyName = "fanjy"
    For i = 1 To Len(MyName)
    MyEncryptedString = MyEncryptedString & Chr(Asc(Mid(MyName, i, 1)) + 25)
    Next i
    MsgBox "您好!我的名字是" & MyEncryptedString
    For i = 1 To Len(MyName)
    MyDecryptedString = MyDecryptedString & Chr(Asc(Mid(MyEncryptedString, i, 1)) - 25)
    Next i
    MsgBox "您好!我的名字是" & MyDecryptedString
    End Sub- - - - - - - - - - - - - - - - - - - - - - -
    2.10 返回数值代表的相应字符
    Chr函数返回指定字符码所代表的字符,其语法为:
    Chr(charcode)
    其中参数charcode代表字符码,一般为0~255。例如:
    MyChar = Chr(65)  &apos; 返回 A
    MyChar = Chr(97)   &apos; 返回 a
    MyChar = Chr(62)  &apos; 返回 >
    MyChar = Chr(37)  &apos; 返回 %
    [编程方法和技巧]
    (1) 使用Chr(34)将引号嵌入字符串,如
    Chr(34) & sString & Chr(34)
    (2) 下面列出了在调用Chr函数时比较常用的字符代码:
    代码  值    描述
    0   Null   相当于vbNullChar常数
    8   BS   相当于vbBack常数
    9   TAB   相当于vbTab常数
    10   CR   相当于vbCr和vbCrLf常数
    13   LF   相当于vbLf和vbCrLf常数
    34   “”   引号
    - - - - - - - - - - - - - - - - - - - - - - -
    2.11 使用字节的函数
    VBA 中返回字符串的函数有两种格式,一种以$结尾,返回字符串,不需要进行类型转换,所以速度较快,但如果输入值是包含Null的Viarant,则会发生运 行错误;一种没有$,返回Viarant数据类型,如果输入值是包含Null的Viarant,则返回Null。因而,如果要使得程序运行速度快,则使用 带有$的函数且要避免向这些函数传递空值。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.12 返回数组的函数
    2.12.1 Filter函数
    Filter函数返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。其语法为:
    Filter(sourcearray,match[,include[,compare]])
    其 中,参数sourcearray必需,是要执行搜索的一维字符串数组;参数match必需,是要搜索的字符串;参数include可选,Boolean 值,表示返回子串包含还是不包含match字符串,如果include为True,返回包含match子字符串的数组子集,如果include为 False,返回不包含match子字符串的数组子集;参数compare可选,表示所使用的字符串比较类型,其设置值为:-1(常数为 vbUseCompareOption)表示使用Option Compare语句的设置值来执行比较;0(常数为vbBinaryCompare)表示执行二进制比较;1(常数为vbTextCompare)表示执 行文字比较;2(常数为vbDatabaseCompare)只用于Microsoft Access,表示基于数据库信息来执行比较。
    如果在sourcearray中没有发现与match相匹配的值,Filter函数返回一个空数组;如果sourcearray是Null或不是一个一维数组,则产生错误。
    Filter函数所返回的数组,其元素数是所找到的匹配项目数。
    [编程方法和技巧]
    (1) Filter函数也可以过滤数字值。此时,应指定Variant类型的字符串sourcearray,并用数字值给数组赋值。同时,也可以将字符串、 Variant、Long或Integer数据传递给match。但应注意,返回的字符串表现为被过滤数字的字符串的形式。例如:
    Sub test()
    Dim varSource As Variant, varResult As Variant
    Dim strMatch As String, i
    strMatch = CStr(2)
    varSource = Array(10, 20, 30, 21, 22, 32)
    varResult = Filter(varSource, strMatch, True, vbBinaryCompare)
    For Each i In varResult
    Debug.Print i
    Next
    End Sub
    将返回20,21,22,32
    (2) Filter函数可以和Dictionary对象很好地配合使用。可以把Dictionary对象产生的Key值作为一种过滤Dictionary对象成员的快速方法传递给Filter函数,如:
    Sub test()
    Dim i As Integer
    Dim sKeys() As Variant
    Dim sFiltered() As String
    Dim sMatch As String
    Dim blnSwitch As Boolean
    Dim oDict As Dictionary
    Set oDict = New Dictionary
    oDict.Add "Microsoft", "One Microsoft Way"
    oDict.Add "AnyMicro Inc", "31 Harbour Drive"
    oDict.Add "Landbor Data", "The Plaza"
    oDict.Add "Micron Co.", "999 Pleasant View"
    sKeys = oDict.Keys
    sMatch = "micro"
    blnSwitch = True
      &apos;寻找包含字符串macro(不区分大小写)的所有键
    sFiltered() = Filter(sKeys, sMatch, blnSwitch, vbTextCompare)
    For i = 1 To UBound(sFiltered)
    Debug.Print sFiltered(i) & "," & oDict.Item(sFiltered(i))
    Next i
    End Sub
    2.12.2 Split函数
    Split函数返回一个下标从零开始的一维数组,包含指定数目的子字符串。其语法为:
    Split(expression[,delimiter[,limit[,compare]]])
    其 中,参数expression必需,表示包含子字符串和分隔符的字符串,若expression是一个长度为零的字符串(“”),该函数则返回一个没有元 素和数据的空数组;参数delimiter用于标识子字符串边界的字符串字符,若忽略则使用空格(“ “)作为分隔符,若是一个长度为零的字符串则返回仅包含一个元素的数组,该元素是expression所表示的字符串;参数limit表示要返回的子字符 串数,-1表示返回所有的子字符串;参数compare表示判别子字符串时使用的比较方式,其值与Filter函数的设置值相同。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.13 连接字符串
    Join函数返回连接某数组中的多个子字符串而组成的字符串,即将数组中的字符串连接起来。其语法为:
    Join(sourcearray[,delimiter])
    其中,参数sourcearray必需,是包含被连接子字符串的一维数组;参数delimiter可选,代表在所返回的字符串中用于分隔子字符串的字符,若忽略则使用空(“ ”)来分隔,若为零长字符串(“”),则所有项目都连接在一起,中间没有分隔符。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.14 替换字符串
    Replace函数返回一个被替换了的字符串,该字符串中指定的子字符串已被替换成另一个子字符串,并且替换指定次数。其语法为:
    Replace(expression,find,replace[,start[,count[,compare]]])
    其 中,参数expression必需,表示所要替换的子字符串;参数find必需,表示要搜索到的子字符串;参数replace必需,表示用来替换的子字符 串;参数start表示开始搜索的位置,若忽略,则从1开始;参数count表示进行替换的次数,缺省值是-1,表示进行所有可能的替换;参数 compare表示判别子字符串时所用的比较方式,与Filter函数的设置值相同。
    如果expression的长度为零,Replace返回零 长度字符串(“”);如果expression为Null,则返回错误;如果find的长度为零,则返回expression的副本;如果replace 的长度为零,则返回删除了所有出现find的字符串的副本;如果start的值大于expression的长度,则返回长度为零的
    字符串;如果count 为0,则返回expression的副本。
    Replace函数返回的字符串是从参数start所指定的位置开始到expression结尾已经进行过替换的字符串。
    注意:
    (1) 如果没有使用参数count,那么当替换较短字符串时就要注意,防止形成一个不相关的字符。
    (2) 如果start值大于1,返回的字符串将从start开始,而不是从原有字符串的第一个字符开始。
    - - - - - - - - - - - - - - - - - - - - - - -
    2.15 反向字符串
    StrReverse函数返回与指定字符串顺序相反的字符串,其语法为:
    StrReverse(expression)
    其中,参数expression是一个字符串,应用StrReverse函数后将返回与该字符串顺序相反的字符串。如果expression是一个长度为零的字符串(“”),则返回一个长度为零的字符串;如果expression为Null,则产生一个错误。
    展开全文
  • Sub 查找文档中有多少个指定字符串() dai_cha_zhao_text = InputBox("请输入您要查找到字符串:", " 包含多少个字符串查找") With ActiveDocument.Content.Find Do While .Execute(FindText:=dai_cha_zhao_text...
    Sub 查找文档中有多少个指定字符串()
    
    
    dai_cha_zhao_text = InputBox("请输入您要查找到字符串:", "                           包含多少个字符串查找")
    
    With ActiveDocument.Content.Find
    
         Do While .Execute(FindText:=dai_cha_zhao_text) = True
    
              count_number = count_number + 1
    
         Loop
    
    End With
    
    MsgBox ("当前文档共查找到" & Str(count_number) & "个" & dai_cha_zhao_text), , "     查找结果"
    
    
    End Sub

    查找文档中有多少个指定字符串?

    展开全文
  • 1、open 文件名 for output(写入覆盖数据)/...3、instr(a,b)函数返回为long形式,意为指定字符串(b)在另一字符串(a)中最先出现的位置,返回值为具体位置,如果返回0则表示不存在。 4、dir(a)返回为stri
  • 学习Excel技术,关注微信公众号:excelperfectLike运算符用于判断给定的字符串是否与指定的模式相匹配,其语法为:结果=<字符串> Like <模式>其中:1.<字符串>为文本字符串或者对包含文本字符串的...
  • 我有一个2列,其中包含一些组件的规格 . 基本上,如果两个指定列的首字母与S不同,我想删除整行 .我的表看起来像这样我希望删除每一行,如果列“从设备”和“到设备”开始用G或C(或者,更具体地说,如果“from”和...
  • 字符函数Chr():返回一个字符串,其中包含指定的字符代码关联的字符。如何输入字符,在vba编程过程中是一个基本常识。本节主要介绍一下,字符集对应的数值,以及如何输入字符。很显然,函数Chr即可输出相应数值的...
  • 指定字符拆分字符串VBA中,使用函数Split实现将一个字符串以指定分隔符拆分出多个字符串。 Split函数返回下标下界从零开始的一维数组,包含以指定分隔符拆分后形成的子字符串,其语法格式如下。 Split...
  • Dir 函数 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。...用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到 path
  • VBA知识:Like运算符详解

    万次阅读 2019-09-06 13:36:42
    Like运算符用于判断给定的字符串是否与指定的模式相匹配,其语法为: 结果=<字符串> Like<模式> 其中: 1.<字符串>为文本字符串或者对包含文本字符串的单元格的引用,是要与<模式>相...
  • vba rename name

    2016-06-29 07:21:11
    重新命名一个文件、目录、或文件夹。 语法 Name oldpathname As newpathname ...Name 语句的语法具有以下几个部分: ...字符串表达式,指定已存在的...字符串表达式,指定新的文件名和位置,可以包含目录或文件...
  • Split 函数 -- 来自微软官方文档返回包含指定数目的子字符串的从零开始的一维数组语法Split(expression,[定界符,[ limit,[ compare ]]])参数 含义express 需要拆分的字符串delimiter 参数为拆分的分隔符,如果...
  • VBA实现超链接

    千次阅读 2018-11-13 18:34:03
    vb中提供的成员函数dir:返回一个满足...其中参数Pathname通常为一个文件名,此文件名可以包含目录或文件夹以及驱动器符号,如果没有找到指定的Pathname,dir语句将返回一个零长度的字符串("")。 支持多...
  • VBA Dir 函数

    万次阅读 2015-12-31 14:39:36
    Dir函数 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、...用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到 pathname,则会返回零长...
  • 在文本内容中查找、搜索指定的文本字符串,可以指定是否忽略大小写、查找起始位置、文本是否遵循对象的形状或边框的路径、指定要查找的文本索引类型等。索引类型可以是字符、单词或段落。 使用 Text 类提供的 Find ...
  • 14.从右边开始查找指定字符字符串中的位置 15.从右边开始查找指定字符字符串中的位置 16.计算工龄 17.计算日期差,除去星期六、星期日 18.将英文字反转的自定函数 19.计算个人所得税 20.一个能计算是否有重复...
  • 如果要根据用户的决定更改操作的_criteria_参数, 可以指定条件来自窗体上的控件... 此控件表达式应与字符串表达式分开, 这样 Access 将先计算控件表达式, 并将其与字符串表达式的其余部分相连接, 然后再执行相应的操...
  • 函数作用:从右边开始查找指定字符字符串中的位置...43 '15.函数作用:从右边开始查找指定字符字符串中的位置...44 '16.函数作用:计算工龄.................................44 '17.函数作用:计算日期差,除去星期...
  • VBA技巧(二):Split函数用法

    万次阅读 2009-03-12 18:14:00
    Split函数描述返回一个下标从零开始的一维数组,它包含指定数目的子字符串语法Split(expression[, delimiter[, limit[, compare]]]) Dim mutname As StringDim mutDim count As Integer mut = Split(mutname, ",")...
  • 来自窗体控件的数值条件使用方法。 如果要根据用户的决定更改操作的_criteria_参数, 可以指定条件来自窗体上的控件。 例如,可以指定来自于含有... 此控件表达式应与字符串表达式分开, 这样 Access 将先计算控件...
  • vba 设置txt文件只读,隐藏属性

    千次阅读 2008-10-06 09:37:00
    SetAttr 语句 为一个文件设置属性信息。 语法 SetAttr pathname, attributes SetAttr 语句的语法含有以下这些命名参数: 部分 描述 pathname 必要参数。用来指定一个文件名的字符串表达式,可能包含
  • 03011引用工作表名称中包含特定字符串的工作表 03012获取工作表名称 03013获取全部工作表名称 03014判断某个表是否为工作表 03015获取工作表的显示状态 03016获取工作表的保护状态 03017判断工作表是否处于筛选模式 ...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     8.3.5 字符串的使用  8.3.6 日期的使用  8.4 赋值语句  8.5 数组  8.5.1 数组的声明  8.5.2 多维数组的声明  8.5.3 动态数组的声明  8.6 对象变量  8.7 用户定义数据类型  8.8 内置函数  8.9 对象和集合...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
     8.3.5 字符串的使用  8.3.6 日期的使用  8.4 赋值语句  8.5 数组  8.5.1 数组的声明  8.5.2 多维数组的声明  8.5.3 动态数组的声明  8.6 对象变量  8.7 用户定义数据类型  8.8 内置函数  8.9 对象和集合...
  • 语法ChDir path必要的 path 参数是一个字符串表达式,它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动器,则 ChDir 在当前的驱动器上改变缺省目录或文件夹。说明 ChDir...
  • FindExcelFile.xlsm

    2020-08-12 17:37:01
    用Excel的VBA查找指定路径以及所有子目录下的所有Excel文件,把Excel文件内包含指定字符串(值)的所有Excel文件的路径表示出来。
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    StrReverse 函数 返回一字符串,其中字符的顺序与指定字符串中的顺序相反。 Sub 语句 声明形成 Sub 过程体的名称、参数和代码。 减法运算符 (-) 求两数之差,或表示某数值表达式的相反数。 Tan 函数 返回角度的...
  • VBSCRIP5 -ASP用法详解

    2010-09-23 17:15:46
    StrReverse 函数 返回一字符串,其中字符的顺序与指定字符串中的顺序相反。 Sub 语句 声明形成 Sub 过程体的名称、参数和代码。 减法运算符 (-) 求两数之差,或表示某数值表达式的相反数。 语法错误 VBScript ...
  • vb Script参考文档

    2009-07-28 22:13:02
    StrReverse 函数 返回一字符串,其中字符的顺序与指定字符串中的顺序相反。 Sub 语句 声明形成 Sub 过程体的名称、参数和代码。 减法运算符 (-) 求两数之差,或表示某数值表达式的相反数。 Tan 函数 返回角度的...

空空如也

空空如也

1 2 3 4
收藏数 72
精华内容 28
关键字:

vba字符串包含指定字符