帖子: 60
主題: 20
精華: 0
積分: 87
點名: 0
作業系統: WinXP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-4
最後登錄: 2020-5-25

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2019-12-4 12:45 | 只看該作者

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

有一份文件表格內容類似下面得敘述,
因為儲存格很多,
我想要用VBA的方式把儲存格內的多段文字字串變粗 ,
使用 InStr 這個公式找出字串位置後用Characters(x, y).Font.Bold = True 來做,
第一個字串沒問題,但是到第二組字串,一直有問題

主要是想把"4.2.2 FW version check" 這段整個變粗
以下除了前面編號是變數外,後面文字是固定的,
我想把這些文字加編號的部分也變粗,不知道要如何寫程式來處理,
能否有大大可以幫忙要如寫程式處理
4.2.2.1 Test Steps:
4.2.2.2 Test Command:
4.2.2.3 Test Command Feedback:
4.2.2.4 Pass Criteria:

變成如下的顯示
4.2.2 FW version check

4.2.2.1 Test Steps:
Check product firmware version.

4.2.2.2 Test Command:

Test plan1.zip (6.53 KB)

樓主熱帖

wind6424

中學生 Rank: 2

帖子: 60
主題: 20
精華: 0
積分: 87
點名: 0
作業系統: WinXP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-4
最後登錄: 2020-5-25

7^#

發表於 2019-12-5 18:15 | 只看該作者

本帖最後由 wind6424 於 2019-12-5 18:16 編輯

回復 6# stillfish00
stillfish00 大
您這網址讓我有找到寶庫的感覺,
真的非常感謝指點.

TOP

stillfish00

大學生 Rank: 4

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

6^#

發表於 2019-12-5 11:00 | 只看該作者

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

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

TOP

wind6424

中學生 Rank: 2

帖子: 60
主題: 20
精華: 0
積分: 87
點名: 0
作業系統: WinXP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-4
最後登錄: 2020-5-25

5^#

發表於 2019-12-5 10:34 | 只看該作者

回復 3# stillfish00
謝謝大大,我在試看看
另外可以跟您請教這個程式碼內 .Pattern = "^\d+([.]\d+)+\s.*" 後面 ^\d+([.]\d+)+\s.* 這些字串的意思?

TOP

wind6424

中學生 Rank: 2

帖子: 60
主題: 20
精華: 0
積分: 87
點名: 0
作業系統: WinXP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-4
最後登錄: 2020-5-25

4^#

發表於 2019-12-5 10:26 | 只看該作者

回復 2# hcm19522
感謝您的協助,但是抱歉我看不懂您的意思?

TOP

stillfish00

大學生 Rank: 4

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

3^#

發表於 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

複製代碼

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

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1796
主題: 184
精華: 0
積分: 1985
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-9-24

熱烈參與勳章

2^#

發表於 2019-12-4 14:36 | 只看該作者

G2 可預先下拉到多格如G99=IF(F2="","",IF(COUNTIFS(B$2:B2,B2,C$2:C2,C2,D$2:D2,D2)=1,IF(COUNTIFS(B$2:B2,B2,C$2:C2,C2)=1,"",LOOKUP(1,0/(B$1:B1=B2)/(C$2:C2=C2),G$1:G1)&"+")&D2&"("&F2&")",D2&"("&SUMIFS(F$2:F2,B$2:B2,B2,C$2:C2,C2,$D$2:D2,D2)&")"))

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP