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考勤计算系统
12
返回列表 发新帖
楼主: ning84
打印 上一主题 下一主题

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

[复制链接]
TA的精华主题TA的得分主题
11
 楼主| 发表于 2018-1-13 20:37 | 只看该作者
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+
TA的精华主题TA的得分主题
12
发表于 2018-1-13 21:11 | 只看该作者
ning84 发表于 2018-1-13 20:37
谢谢回复,学了半天才知道()是组合应用的一个要点。
现在重点学习
(?:xxxx\d+!)?

你截了一个图 给我看,是啥意思嘛???
TA的精华主题TA的得分主题
13
 楼主| 发表于 2018-1-13 22:26 | 只看该作者
duquancai 发表于 2018-1-13 21:11
你截了一个图 给我看,是啥意思嘛???

谢谢回复。
学正则好几年了,就是学不会,现在找了个最笨的方法。提高对正则的理解。

现在把网络上的习题都用这种方法学习,详见我做习题的方法。
Excel 展开submatches属性,学习正则方法。-ExcelVBA程序开发-ExcelHome技术论坛 -  http://club.excelhome.net/forum. ... p;page=1#pid9377060
TA的精华主题TA的得分主题
14
 楼主| 发表于 2018-1-17 07:29 | 只看该作者
duquancai 发表于 2018-1-13 21:11
你截了一个图 给我看,是啥意思嘛???

又反复看了《正则表达式入门与提高》的帖子,在高手的正则表达式基础上,反复测试,

(?:Sheet\d+!)?\$?[A-Z]{1,3}\$?\d+改为→
([^.+]\d+!)?\$?[A-Z]{1,3}\$?\d+
还不知道是否适用,需要进一步高度。学习结果见附图。


TA的精华主题TA的得分主题
15
 楼主| 发表于 2018-1-19 00:10 | 只看该作者
ning84 发表于 2018-1-17 07:29
又反复看了《正则表达式入门与提高》的帖子,在高手的正则表达式基础上,反复测试,

(?:Sheet\d+!)?\$ ...


现在的问题不能解决中英混合使用。


汉字表名不成立!$A$13 & " V=" & Sheet3!C4 & " δ=" &  D6       
用下面patern→分离→
(\w+\d+!)?\$?[A-Z]{1,3}\$?\d+

结果见下图,与目标还是有点差距,只能是英文,不能用中文,不能实现中英文混合使用。





TA的精华主题TA的得分主题
16
发表于 2018-1-19 19:21 | 只看该作者
ning84 发表于 2018-1-19 00:10
现在的问题不能解决中英混合使用。

你这是自言自语,自己回复自己的贴????????????
TA的精华主题TA的得分主题
17
 楼主| 发表于 2018-2-10 17:31 | 只看该作者
duquancai 发表于 2018-1-19 19:21
你这是自言自语,自己回复自己的贴????????????

再自言自语一把。


= R3 & "+" & S3 & "=" & A3 & "(kg)"

采用  .Pattern = "(\w+\d+!)?\$?[A-Z]{1,3}\$?\d+"

实现单元格R3,S3,A3转换成$R$3,$S$3$A$3目标需求


= $R$3 & "+" & $S$3 & "=" & $A$3 & "(kg)"







  • Private Sub del20180210()
  •     ''以这个帖子为依据,快速实现快速转单元格的方法
  •     ''= R3 & "+" & S3 & "=" & A3 & "(kg)"
  •     ''= $R$3 & "+" & $S$3 & "=" & $A$3 & "(kg)"
  •     ''http://club.excelhome.net/thread-1389204-1-1.html
  •     Dim RegX As New RegExp
  •     Dim MatColl As MatchCollection
  •     Dim Rng As Range, oRng As Range
  •     Dim Str
  •         Set Rng = Selection
  •             Str = Rng.Formula
  •         With RegX
  •             .Pattern = "(\w+\d+!)?\$?[A-Z]{1,3}\$?\d+" ' "^\$?[A-Z]{1,3}\$?\d+$"
  •             .Global = True
  •             .MultiLine = True
  •             Set MatColl = .Execute(Str)
  •         End With
  •         ''
  •         With MatColl
  •              For ii = 0 To .Count - 1
  •                 Set oRng = Range(.Item(ii))
  •                 Str = Replace(Str, .Item(ii), oRng.Address)
  •              Next ii
  •         End With
  •         Rng.Offset(, 3) = Str
  •         Debug.Print Str
  • End Sub
  • 复制代码



    您需要登录后才可以回帖 登录 | 免费注册
    本版积分规则
    关闭

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

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