1.選中需要調整的工作表區域，這裡選擇A列。首選選擇需要設定的區域，在 開始->條件格式->新建規則：
3.在彈出來的條件格式規則管理器中，選擇“新建規則”。
4.選擇“使用公式確定要設定格式的單元格”。
5.輸入公式：
=SEARCH("合格",A1)
之後，在A列裡面輸入內容，只要單元格里面出現“合格”兩個字，填充色就會變為黃色。
如果需要改為其他的字，或者修改條件格式的區域，都可以在前面的步驟中進行修改。
其他：
1.開啟需要應用的excel。
2.按 ALT+F11，會彈出程式碼編輯框。
3.在左邊會顯示出上下兩個類別框裡，名字分別是Project-VBAProject和Properties-sheet1（這個sheet幾是你當前編輯的表單）
4.在上面的框邊有三個小圖示，view code（檢視程式碼）,view project（檢視專案），toggle folder（開啟或摺疊資料夾）。
5.選擇view code，會彈出一個編輯框。
6.在編輯框裡黏貼下面的語言：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
"清除工作表單元格的背景色
.Parent.Cells.Interior.ColorIndex = xlNone
"設定選中區域所在行的背景色
.EntireRow.Interior.Color = vbGreen
"設定選中區域所在列的背景色
.EntireColumn.Interior.Color = vbGreen
End With
End Sub
7. 貼完之後，關閉對話方塊。關閉編輯框，返回到excel。
vbBlack 黑
vbRed 紅
vbGreen 綠
vbYellow 黃
vbBlue 藍
vbMagenta 洋紅
vbCyan 青
vbWhite 白
上面的辦法對已經有填充色的表格是個災難，它會清楚原有顏色。
你也可以試試下面的方法：
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 7
這個雖然只能顯示行不能顯示列，但是不會破壞原有填充色。
1.選中需要調整的工作表區域，這裡選擇A列。首選選擇需要設定的區域，在 開始->條件格式->新建規則：
3.在彈出來的條件格式規則管理器中，選擇“新建規則”。
4.選擇“使用公式確定要設定格式的單元格”。
5.輸入公式：
=SEARCH("合格",A1)
之後，在A列裡面輸入內容，只要單元格里面出現“合格”兩個字，填充色就會變為黃色。
如果需要改為其他的字，或者修改條件格式的區域，都可以在前面的步驟中進行修改。
其他：
1.開啟需要應用的excel。
2.按 ALT+F11，會彈出程式碼編輯框。
3.在左邊會顯示出上下兩個類別框裡，名字分別是Project-VBAProject和Properties-sheet1（這個sheet幾是你當前編輯的表單）
4.在上面的框邊有三個小圖示，view code（檢視程式碼）,view project（檢視專案），toggle folder（開啟或摺疊資料夾）。
5.選擇view code，會彈出一個編輯框。
6.在編輯框裡黏貼下面的語言：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
"清除工作表單元格的背景色
.Parent.Cells.Interior.ColorIndex = xlNone
"設定選中區域所在行的背景色
.EntireRow.Interior.Color = vbGreen
"設定選中區域所在列的背景色
.EntireColumn.Interior.Color = vbGreen
End With
End Sub
7. 貼完之後，關閉對話方塊。關閉編輯框，返回到excel。
vbBlack 黑
vbRed 紅
vbGreen 綠
vbYellow 黃
vbBlue 藍
vbMagenta 洋紅
vbCyan 青
vbWhite 白
上面的辦法對已經有填充色的表格是個災難，它會清楚原有顏色。
你也可以試試下面的方法：
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 7
End With
End Sub
這個雖然只能顯示行不能顯示列，但是不會破壞原有填充色。