ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 178|回复: 13
打印 上一主题 下一主题

[求助] 如何判断字符串,是符合单元格address写法规则。

[复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2018-1-2 08:16 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
.Pattern = "[A-Z0-9]" 匹配"a$C$12"结果不正确,见下图。
问:.Pattern = "[A-Z0-9]" 怎么写能判断字符串,符合单元格的Address的写法规则。






  • Sub test()
  •     Dim Str
  •     Dim RegX As New RegExp
  •     Dim MahtColl As MatchCollection
  •     Dim Arr(1)
  •     Arr(0) = "C12"
  •     Arr(1) = "$C$12"
  •     Arr(1) = "a$C$12"
  •    
  •     With RegX
  •         .Pattern = "[A-Z0-9]"
  •         .Global = True
  •         .IgnoreCase = True
  •         For ii = 0 To UBound(Arr)
  •            Set MathColl = .Execute(Arr(ii))
  •            Stop
  •         Next ii
  •         Stop
  •     End With
  • End Sub
  • 复制代码


    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏 分享分享 有用有用 无用无用
    TA的精华主题TA的得分主题
    2
    发表于 2018-1-2 08:55 来自手机 | 只看该作者
    本帖最后由 duquancai 于 2018-1-2 09:18 编辑

    ^\$?[A-Z]{1,2}\$?\d+$
    TA的精华主题TA的得分主题
    3
     楼主| 发表于 2018-1-2 13:05 | 只看该作者 |楼主

    谢谢,高手的解答。

    正则看起来不复杂,就是组合应用起来不好掌握。
    一定要学习^\$?[A-Z]{1,2}\$?\d+$的组合应用
    分解学习
    ^\$?确定位置的组合?
    {1,2} 匹配一个或两个字符
    \$?→这就是不能灵活应用正则的交痛点。
    \d+$
    TA的精华主题TA的得分主题
    4
    发表于 2018-1-2 21:04 | 只看该作者
    ning84 发表于 2018-1-2 13:05
    谢谢,高手的解答。

    正则看起来不复杂,就是组合应用起来不好掌握。

    .Pattern = "^\$?[A-Z]{1,3}\$?\d+$"
    TA的精华主题TA的得分主题
    5
    发表于 2018-1-2 21:19 | 只看该作者
    本帖最后由 duquancai 于 2018-1-2 21:49 编辑

    Sub test()
        Dim RegX As Object, Arr, ii As Integer
        Arr = Array("C12", "$C$12", "a$C$12", "C$12", "$C12")
        Set RegX = CreateObject("VBScript.Regexp")
        RegX.Pattern = "^\$?[A-Z]{1,3}\$?\d+$"
        RegX.IgnoreCase = True
        For ii = 0 To UBound(Arr)
            If RegX.test(Arr(ii)) Then
                MsgBox """" & Arr(ii) & """字符串是符合单元格address写法规则的"
            Else
                MsgBox """" & Arr(ii) & """字符串是不符合单元格address写法规则的"
            End If
        Next ii
    End Sub
    TA的精华主题TA的得分主题
    6
     楼主| 发表于 2018-1-13 07:26 | 只看该作者 |楼主
    duquancai 发表于 2018-1-2 21:19
    Sub test()
        Dim RegX As Object, Arr, ii As Integer
        Arr = Array("C12", "$C$12", "a$C$12", "C ...

    谢谢提供的代码,花了n时间,才搞出这么一个代码有个问题。
    !前面用...?有问题,见下图。
    .......?\!?\$?[A-Z]{1,3}\$?\!?\d+
    Sheet1!$A$13 & " V=" & Sheet3!C4 & " δ=" &  Sheet3!D4


    TA的精华主题TA的得分主题
    7
     楼主| 发表于 2018-1-13 07:35 | 只看该作者 |楼主
    duquancai 发表于 2018-1-2 21:19
    Sub test()
        Dim RegX As Object, Arr, ii As Integer
        Arr = Array("C12", "$C$12", "a$C$12", "C ...


    .......?\!?\$?[A-Z]{1,3}\$?\!?\d+
    分离这段字符,出现的问题是没法分离字符串中的A4和$A$1236单元格。
    Sheet1!$A$13 & " V=" & Sheet3!C4 & " δ=" &  Sheet3!D4 & A4 & Sheet3!AD4 & $A$1236



    TA的精华主题TA的得分主题
    8
    发表于 2018-1-13 13:52 | 只看该作者
    ning84 发表于 2018-1-13 07:35
    .......?\!?\$?[A-Z]{1,3}\$?\!?\d+
    分离这段字符,出现的问题是没法分离字符串中的A4和$A$1236单元格 ...

    我只是根据你的代码(特别是你“举例的文本”)修改的,现在你“举例的文本”又出现新的情况了!那就自己玩吧!如果现在又给解决了新的问题,到时候你的“举例的文本”又来变化,永远没完没了!!!
    TA的精华主题TA的得分主题
    9
    发表于 2018-1-13 14:02 | 只看该作者
    ning84 发表于 2018-1-13 07:35
    .......?\!?\$?[A-Z]{1,3}\$?\!?\d+
    分离这段字符,出现的问题是没法分离字符串中的A4和$A$1236单元格 ...

    Sub test()
        sr$ = "Sheet1!$A$13 & "" V="" & Sheet3!C4 & "" δ="" &  Sheet3!D4 & A4 & Sheet3!AD4 & $A$1236"
        Set RegX = CreateObject("VBScript.Regexp")
        RegX.Pattern = "(?:Sheet\d+!)?\$?[A-Z]{1,3}\$?\d+"
        RegX.IgnoreCase = True: RegX.Global = True
        For Each mt In RegX.Execute(sr)
            MsgBox mt
        Next
    End Sub
    TA的精华主题TA的得分主题
    10
     楼主| 发表于 2018-1-13 20:34 | 只看该作者 |楼主
    duquancai 发表于 2018-1-13 14:02
    Sub test()
        sr$ = "Sheet1!$A$13 & "" V="" & Sheet3!C4 & "" δ="" &  Sheet3!D4 & A4 & Sheet3!AD ...




    谢谢回复,学了半天才知道()是组合应用的一个要点。
    现在重点学习
    (?:xxxx\d+!)?
    \$?xxxx\$?

    ******************

    (?:Sheet\d+!)?\$?[A-Z]{1,3}\$?\d+
    您需要登录后才可以回帖 登录 | 免费注册
    本版积分规则
    关闭

    最新热点上一条 /1 下一条

    关注官方微信,每天坐享新鲜教程
    手机版|关于我们|联系我们|ExcelHome    GMT+8, 2018-1-18 19:37 , Processed in 0.099171 second(s), 9 queries , Gzip On, MemCache On.
    Powered by Discuz! X3.3 © 2001-2017 Wooffice Inc.
        沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
    快速回复 返回顶部 返回列表
    99uu优优