帖子: 450
主題: 110
精華: 0
積分: 557
點名: 78
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-4-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-3-13 16:01 | 只看該作者

如何設定儲存格部分字串的顏色

Dear 各位先進,
在網路上有找到設定儲存格部分字串的顏色的VBA語法(如下)
這語法關鍵字串為 " / "
我想改成關鍵字串為 " 倉管課 " ，那我的語法該如何修改呢？謝謝各位

'這個讓你新打的內容所有"/"都變紅
Private Sub Worksheet_Change(ByVal Target As Range)
'先將字體都改成黑
Target.Font.ColorIndex = xlAutomatic
'將所有"/"都變紅
redSlash Target
End Sub

'更改"/"顏色為紅色
'引數為選擇區或輸入區儲存格
Sub redSlash(Target As Range)
Dim Rng As Range          '儲存格索引
Dim i As Long, j As Long 'i 為返回位置, j 為搜尋比對起始位置
'遍歷區域所有儲存格
For Each Rng In Target.Cells
'搜尋起始位置
j = 1
With Rng
      Do    '一直找到沒有"/"
         '尋找"/"位置
         i = VBA.InStr(j, .Text, "/")
         '如果找到將那個"/"字改為紅色
         If i > 0 Then .Characters(i, 1).Font.ColorIndex = 3
         '移動下次搜尋位置
         j = i + 1
      Loop While i > 0
End With
Next
End Sub

樓主熱帖

Just do it.

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

2^#

發表於 2018-3-13 16:22 | 只看該作者

回復 1# jsc0518
i = VBA.InStr(j, .Text, "倉管課")
If i > 0 Then .Characters(i, 3).Font.ColorIndex = 3

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 450
主題: 110
精華: 0
積分: 557
點名: 78
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-4-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2018-3-14 07:58 | 只看該作者

回復 2# jcchiang

您好！感謝您的回覆，TEST OK。

請問一下，那這一段語法中的redSlash Target不是指說將所有"/"都變紅

是否需修改呢？

Private Sub Worksheet_Change(ByVal Target As Range) '這個讓你新打的內容所有"/"都變紅

Target.Font.ColorIndex = xlAutomatic '先將字體都改成黑
redSlash Target '將所有"/"都變紅

End Sub

Just do it.

TOP

jcchiang