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單元格數據區域，我們發現選中的區域內，所有單元格中的“河北”兩個字符的字體顏色就變為了紅色。如下圖所示：