前言｜職場實(shí)例 Excel的功能雖然很強(qiáng)大，但還是有一些難以解決的問題，比如說如何將下圖表格中的部分文字標(biāo)紅呢？例如將A2:C4單元格中所有的字符“河北”兩字，字體顏色設(shè)置為紅色。 如果直接用Excel的“查找和替換”功能處理這個(gè)問題，就比較難辦了，因?yàn)镋xcel的查找和替換功能只能查找和替換整個(gè)單元格的內(nèi)容，而不能查找和替換單元格中的部分字符內(nèi)容。選中A2:C4單元格數(shù)據(jù)區(qū)域，按下快捷鍵“Ctrl+H”，調(diào)出“查找和替換”的對話框。然后點(diǎn)擊“選項(xiàng)”按鈕，再點(diǎn)擊“替換為”右邊的“格式”按鈕，設(shè)置“替換為”內(nèi)容的格式，將字體顏色設(shè)置為紅色。即替換為紅色字體顏色的“河北”兩字。最后點(diǎn)擊“全部替換”，我們發(fā)現(xiàn)含有“河北”兩字的整個(gè)單元格的內(nèi)容全部變成了紅色。所以這種方法是錯(cuò)誤的，難以實(shí)現(xiàn)正確的效果。首先將Excel中內(nèi)容復(fù)制到Word文檔中，如下圖所示：然后利用Word文檔中的“查找和替換”功能來實(shí)現(xiàn)。先按下快捷鍵“Ctrl+H”打開“查找和替換”的對話框。在“查找內(nèi)容”中輸入內(nèi)容，這里輸入的是“河北”；在“替換為”中輸入內(nèi)容，這里同樣輸入的是“河北”；在替換中直接選擇“更多”，點(diǎn)擊“格式”，選擇“字體”，將字體顏色設(shè)置為紅色，即將查找出來的“河北”兩字替換為紅色字體顏色的“河北”兩字。最后點(diǎn)擊“全部替換”按鈕，即可將A2:C4單元格中所有的字符“河北”兩字，字體顏色設(shè)置為紅色。最后直接將Word文檔中的內(nèi)容復(fù)制到Excel表格中即可。如下圖所示：除了利用Word的方法作為間接轉(zhuǎn)換，我們也可直接使用VBA代碼進(jìn)行批量替換字體顏色。下面小編來介紹一下具體的操作方法。
右擊點(diǎn)擊名稱為“公眾號(hào) Excel情報(bào)局”工作表名稱標(biāo)簽，點(diǎn)擊“查看代碼”按鈕，調(diào)出VBA代碼編輯窗口，將下面的一段VBA代碼復(fù)制粘貼進(jìn)去，然后點(diǎn)擊上方的“運(yùn)行-運(yùn)行子過程/用戶窗體”按鈕，這時(shí)候會(huì)彈出一個(gè)“宏”的提示對話框，我們在這個(gè)界面中，隨意輸入一個(gè)“宏名稱”，本例中輸入的是一個(gè)字母“A”，然后點(diǎn)擊“創(chuàng)建”按鈕。最后將VBA代碼窗口全部關(guān)閉。回到Excel工作表主界面。代碼如下： Private Sub CommandButton1_Click()Cells.Font.ColorIndex = 1End SubPrintSub Worksheet_SelectionChange(ByVal Target As Range)Dim rng As Range, i As IntegerDim T As StringDim C As IntegerFor Each rng In SelectionT = "河北" 'T是要批量替換顏色的目標(biāo)文字C = 3 'C是顏色，通過設(shè)定不同的值，代表對應(yīng)的顏色i = 1Do While InStr(i, rng, T) > 0rng.Characters(InStr(i, rng, T), Len(T)).Font.ColorIndex = Ci = InStr(i, rng, T) + 1LoopNextEnd Sub 最重要的一步來了，我們直接鼠標(biāo)框選選中A2:C4單元格數(shù)據(jù)區(qū)域，我們發(fā)現(xiàn)選中的區(qū)域內(nèi)，所有單元格中的“河北”兩個(gè)字符的字體顏色就變?yōu)榱思t色。如下圖所示：
這是我們需要查找替換字體顏色的字符，在使用該程序時(shí)只需要修改雙引號(hào)中的內(nèi)容即可。這是我們需要替換的顏色代碼。3代表紅色，1代表黑色，2代表白色，4代表鮮綠色，5代表藍(lán)色，6代表黃色，7代表粉紅色，8代表青綠色，9代表深紅色，10代表綠色等。 |
