- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 236
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-11-27
       
|
如何設定儲存格部分字串的顏色
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 |
|
發表於 2018-3-13 16:01
| 
