如何使用RegEXP方法將字串中的數字改其字型大小及顏色

shi353

附件中有說明轉變後情況，煩請專家提供vba宏碼 謝謝了

lsdongjh

兄弟，要设置局部 字符的大小及颜色，只能用Range.Characters属性，RegEXP对象顶多是找出所在位置。
像你这样规则的字符串，用instr和len两个函数，加上Range.Characters就能实现的

不知何故

与http://club.excelhome.net/forum.php?mod=viewthread&tid=1438024的提问一样。


zzz1.zip (12.55 KB, 下载次数: 14)

2018-9-30 12:54 上传

点击文件名下载附件

Chip_Kenny

1. Sub zz()
   
2. Dim a, s$, rng As Range, k, t
   
3. Set rng = [a3:a15]
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "\d+"
   
6.     For Each k In rng
   
7.         s = k.Value
   
8.         If .test(s) Then
   
9.             t = .Execute(s)(0)
   
10.             With k.Characters(InStr(s, t), Len(t)).Font
    
11.                 .Size = 14
    
12.                 .Color = vbBlue
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End With
    
17. End Sub

复制代码

lsdongjh

1. Sub chan()
   
2.     Dim rng As Range
   
3.     Dim objReg As Object, strVal As String, objMatchs As Object, objMatch As Object
   
4.     Dim intStart As Integer, intLen As Integer
   
5.    
   
6.     Set objReg = CreateObject("vbscript.regexp")
   
7.     objReg.Global = True
   
8.     objReg.Pattern = "\d+"
   
9.    
   
10.     For Each rng In [A3:A15]
    
11.         strVal = rng.Text
    
12.         Set objMatchs = objReg.Execute(strVal)
    
13.         For Each objMatch In objMatchs
    
14.             intStart = objMatch.FirstIndex + 1
    
15.             intLen = objMatch.Length
    
16.             With rng.Characters(intStart, intLen).Font
    
17.                 .Size = 24
    
18.                 .Color = vbBlue
    
19.             End With
    
20.         Next
    
21.     Next
    
22. End Sub

复制代码

shi353

謝謝樓上各位提供的宏碼，確實都能達成我要的執行結果

shi353

再麻煩各位先進專家們如果只想讓字串中間數字 變色及變大小(請看附件所要的效果)
代碼該如何寫呢?  好像是用 Submatch? 最後這個問題再請幫忙解惑