excel中date函數的使用方法「excel單元格根據內容變顏色」

Excel的功能雖然很強大，但還是有一些難以解決的問題，比如說如何將下圖表格中的部分文字標紅呢？例如將A2:C4單元格中所有的字元「河北」兩字，字體顏色設置為紅色。

如果直接用Excel的「查找和替換」功能處理這個問題，就比較難辦了，因為Excel的查找和替換功能只能查找和替換整個單元格的內容，而不能查找和替換單元格中的部分字元內容。

如下圖所示：

選中A2:C4單元格數據區域，按下快捷鍵「Ctrl+H」，調出「查找和替換」的對話框。

查找內容：輸入「河北」

替換為：輸入「河北」

然後點擊「選項」按鈕，再點擊「替換為」右邊的「格式」按鈕，設置「替換為」內容的格式，將字體顏色設置為紅色。即替換為紅色字體顏色的「河北」兩字。

最後點擊「全部替換」，我們發現含有「河北」兩字的整個單元格的內容全部變成了紅色。所以這種方法是錯誤的，難以實現正確的效果。

方法①｜利用Word文檔的查找和替換

首先將Excel中內容複製到Word文檔中，如下圖所示：

然後利用Word文檔中的「查找和替換」功能來實現。

先按下快捷鍵「Ctrl+H」打開「查找和替換」的對話框。

在「查找內容」中輸入內容，這裡輸入的是「河北」；

在「替換為」中輸入內容，這裡同樣輸入的是「河北」；

在替換中直接選擇「更多」，點擊「格式」，選擇「字體」，將字體顏色設置為紅色，

即將查找出來的「河北」兩字替換為紅色字體顏色的「河北」兩字。

最後點擊「全部替換」按鈕，即可將A2:C4單元格中所有的字元「河北」兩字，字體顏色設置為紅色。

最後直接將Word文檔中的內容複製到Excel表格中即可。如下圖所示：

方法②｜VBA代碼替換法

除了利用Word的方法作為間接轉換，我們也可直接使用VBA代碼進行批量替換字體顏色。下面小編來介紹一下具體的操作方法。

如下圖所示：

右擊點擊名稱為「公眾號 Excel情報局」工作表名稱標籤，點擊「查看代碼」按鈕，調出VBA代碼編輯窗口，將下面的一段VBA代碼複製粘貼進去，然後點擊上方的「運行-運行子過程/用戶窗體」按鈕，這時候會彈出一個「宏」的提示對話框，我們在這個界面中，隨意輸入一個「宏名稱」，本例中輸入的是一個字母「A」，然後點擊「創建」按鈕。最後將VBA代碼窗口全部關閉。回到Excel工作表主界面。

代碼如下：

Private Sub CommandButton1_Click()
Cells.Font.ColorIndex = 1
End Sub
Print
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, i As Integer
Dim T As String
Dim C As Integer
For Each rng In Selection
T = "河北"   'T是要批量替換顏色的目標文字
C = 3   'C是顏色，通過設定不同的值，代表對應的顏色
i = 1
Do While InStr(i, rng, T) > 0
rng.Characters(InStr(i, rng, T), Len(T)).Font.ColorIndex = C
i = InStr(i, rng, T) + 1
Loop
Next
End Sub

最重要的一步來了，我們直接滑鼠框選選中A2:C4單元格數據區域，我們發現選中的區域內，所有單元格中的「河北」兩個字元的字體顏色就變為了紅色。如下圖所示：