excel 部分文字變色 更改特定文字 顏色
Step 1 在功能列「開發人員」中程式碼選擇「巨集」
找不到「開發人員」？點我看文章
Step 2 新增一個巨集後，將下方程式碼貼上，並執行巨集即可完成
Dim R As Range
For Each R In Cells.SpecialCells(xlCellTypeConstants)
If InStr(R, "無糖") > 0 Then
For i = 1 To Len(R)
If Mid(R, i, Len("無糖")) = "無糖" Then
R.Characters(i, Len("無糖")).Font.ColorIndex = 3 '紅色，5為藍色
i = i + Len("無糖") - 1
End If
Next
End If
Next【教學】Excel 如何使用 VBA 設定儲存格內部分文字變色？簡單步驟馬上搞定！
老師您好
想請教
1.若我要再多設一個條件, 想將飲料”溫”也改成紅色
這樣巨集該如何呈現??
2. 在嘗試做完您的範例後, 以巨集方式儲存, 再重新開啓檔案,, 卻發生大半的儲存格資料不見了, 這是什麼原因呢
可以嘗試將巨集添加下方內容試試看~
Dim R As Range
For Each R In Cells.SpecialCells(xlCellTypeConstants)
If InStr(R, “無糖”) > 0 Then
For i = 1 To Len(R)
If Mid(R, i, Len(“無糖”)) = “無糖” Then
R.Characters(i, Len(“無糖”)).Font.ColorIndex = 3 ‘紅色，5為藍色
i = i + Len(“無糖”) – 1
End If
Next
End If
If InStr(R, “溫”) > 0 Then
For j = 1 To Len(R)
If Mid(R, j, Len(“溫”)) = “溫” Then
R.Characters(j, Len(“溫”)).Font.ColorIndex = 3 ‘紅色，5為藍色
j = j + Len(“溫”) – 1
End If
Next
End If
Next
謝謝老師, 我再試一下