Site icon JAFN's note

【教學】Excel 如何使用 VBA 設定儲存格內部分文字變色?簡單步驟馬上搞定!

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 設定儲存格內部分文字變色?簡單步驟馬上搞定!
Exit mobile version