请教提取的问题

ntyyz

獨一無2 发表于 2018-7-15 09:12
Sub 提取()
Dim result, regx, iLoop, re
    Sheet1.Cells(1, "C").Value = ""

谢谢，代码很好用，有个问题再请教下，以A1为列，每次更改其中的部份数据，或者粘贴用新的数据后，需要执行宏才能得到所需结果，可否我更改原始数据后，宏自动跟进进行更改。

獨一無2

可以使用Worksheet_Change事件，判断如果是A1值有变化，则执行宏内的代码。Worksheet_Change为工作表事件
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target =Sheet1.Range("A1") Then
   
     Dim result, regx, iLoop, re
     Sheet1.Cells(1, "C").value = ""
     Set regx = CreateObject("vbscript.regexp")
     With regx
         .Global = True
         .Pattern = "([一-龢]+\d+\D?\d?)"
     Set result = .Execute(Sheet1.Cells(1, "A").value)
     
     For iLoop = 0 To result.Count - 1
         If "." = Right(result(iLoop).submatches(0), 1) Then
             Sheet1.Cells(1, "C").value = Sheet1.Cells(1, "C").value + result(iLoop).submatches(0) + "0"
         Else
             Sheet1.Cells(1, "C").value = Sheet1.Cells(1, "C").value + result(iLoop).submatches(0)
         End If
     Next iLoop
     End With
    End If
End Sub

ntyyz

duquancai 发表于 2018-7-15 20:31

谢谢，代码很好用，你的代码直接得到最后的结果，有个问题再请教下，以A1为列，每次更改其中的部份数据，或者粘贴用新的数据后，需要执行宏才能得到所需结果，可否我更改原始数据后，宏自动跟进进行更改。安全性已设了低没用，因为每次粘贴新数据时不一定是我，别人可能不知道怎么操作，如能在每次更改粘贴时，所需数据也自动显示出来最好。

tudarong

duquancai 发表于 2018-7-15 20:31

大侠，有正则表达式的书或资料推荐下吗？

jiminyanyan

tudarong 发表于 2018-7-15 21:02
大侠，有正则表达式的书或资料推荐下吗？

http://club.excelhome.net/forum. ... mp;authorid=2259283

jiminyanyan

tudarong 发表于 2018-7-15 21:02
大侠，有正则表达式的书或资料推荐下吗？

du老师用的是：JavaScript。

tudarong

jiminyanyan 发表于 2018-7-15 21:03
http://club.excelhome.net/forum.php?mod=viewthread&tid=1128647&page=1&authorid=2259283

这个帖子我啃了至少有10遍了，还是挺懵懂的。
这个正则，感觉好难

活在理想的世界

tudarong 发表于 2018-7-15 21:26
这个帖子我啃了至少有10遍了，还是挺懵懂的。
这个正则，感觉好难

花点钱，花点时间，这比什么都快。
正则的对象并不复杂（方法就2个，属性也不多），也不是重点。
但是元字符想弄明白真心得下点功夫，毕竟正则表达式的灵魂在于元字符。

jiminyanyan

tudarong 发表于 2018-7-15 21:26
这个帖子我啃了至少有10遍了，还是挺懵懂的。
这个正则，感觉好难

18楼老师说的有道理；
花点钱，花点时间，这比什么都快。

tudarong

活在理想的世界 发表于 2018-7-15 21:31
花点钱，花点时间，这比什么都快。
正则的对象并不复杂（方法就2个，属性也不多），也不是重点。
但是 ...

元字符确实得下功夫才行
明白了