六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

从右边查找字符的宏代码

Admin | 2014-11-10 11:38:38 | ReadNums | 2433 | 标签 六合开奖结果现场直播 | 打印本页
     

   代码功能:从右边开始查找字符。 

 Public Function MyInStrRev(MainStr As String, SubStr As String) As Integer
    Dim Counter As Integer
    Dim Success As Boolean
    If VBA.Len(MainStr) < VBA.Len(SubStr) Then
        MyInStrRev = 0
    Else
        For Counter = VBA.Len(SubStr) To VBA.Len(MainStr)
            If VBA.Left(VBA.Right(MainStr, Counter), VBA.Len(SubStr)) = SubStr Then
                Success = True
                Exit For
            End If
        Next Counter
        If Success Then
            MyInStrRev = VBA.Len(MainStr) - Counter + 1
        Else
            MyInStrRev = 0
        End If
    End If
End Function

  知识拓展:

  查找右边第一个"]"所在位置 (右起第3位)

  =LEN(A1)-FIND("@",SUBSTITUTE(A1,"]","@",LEN(A1)-LEN(SUBSTITUTE(A1,"]",""))),1)+1

   LEN(A1)-LEN(SUBSTITUTE(A1,"]",""): 字符串长度 - 不为"]"的个数 = 3

  SUBSTITUTE(A1,"]","@",LEN(A1)-LEN(SUBSTITUTE(A1,"]",""))) 用"☆"替换第3次出现的"]"

  FIND("@",SUBSTITUTE(A1,"]","@",LEN(A1)-LEN(SUBSTITUTE(A1,"]",""))),1) 从第一个字符开始找到"@"第一次出现的位。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日