儲存格內的多段文字字串變粗 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 儲存格內的多段文字字串變粗

返回列表下一主題上一主題發帖

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

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2019-12-4 17:44 | 顯示全部帖子

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

回復 1# wind6424

Sub Test()
MyForm Sheets("Sheet1").[A2]
End Sub

複製代碼

Sub MyForm(rng As Range)
Dim text As String
Dim re As Object: Set re = CreateObject("vbscript.regexp")
With re
.Pattern = "^\d+([.]\d+)+\s.*"
.MultiLine = True
.Global = True
End With
For Each cell In rng
text = cell.Value
For Each mch In re.Execute(text)
cell.Characters(Start:=mch.FirstIndex, Length:=mch.Length).Font.Bold = True
Next
Next
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2019-12-5 11:00 | 顯示全部帖子

回復 5# wind6424
翻譯過來就是匹配開頭的第一組字是以至少一個 . 分隔數字的字組。
有興趣可以參考一下
http://www.study-area.org/coobila/tutorial_441.html

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 小事不做、大事難成。

返回列表下一主題上一主題