返回列表 上一主題 發帖

[發問] 儲存格內的多段文字字串變粗

本帖最後由 stillfish00 於 2019-12-4 17:53 編輯

回復 1# wind6424
  1. Sub Test()
  2.     MyForm Sheets("Sheet1").[A2]
  3. End Sub
複製代碼
  1. Sub MyForm(rng As Range)
  2.     Dim text As String
  3.     Dim re As Object: Set re = CreateObject("vbscript.regexp")
  4.    
  5.     With re
  6.         .Pattern = "^\d+([.]\d+)+\s.*"
  7.         .MultiLine = True
  8.         .Global = True
  9.     End With
  10.     For Each cell In rng
  11.         text = cell.Value
  12.         For Each mch In re.Execute(text)
  13.             cell.Characters(Start:=mch.FirstIndex, Length:=mch.Length).Font.Bold = True
  14.         Next
  15.     Next
  16. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

回復 5# wind6424
翻譯過來就是匹配開頭的第一組字是以至少一個 . 分隔數字的字組。
有興趣可以參考一下
http://www.study-area.org/coobila/tutorial_441.html
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 受人點水之恩,須當湧泉以報。
返回列表 上一主題