使用參考範圍的Excel條件格式化

我有一個手錶範圍，某些單元格突出顯示爲黃色。對於這些單元中的每一個，都有一個對應的參考值，全部位於一列內。使用參考範圍的Excel條件格式化

我想突出顯示目標範圍內的所有單元格red，對應的參考單元格中的值與目標單元格中的值匹配。

我想到的代碼如下，但有一些我無法修復的編譯錯誤。顯然，手錶範圍不能包含「多個範圍」。

Sub Highlight_pairAB() 
Dim WatchRange As Range, Target As Range, cell As Range, ref As Range 
Set Target = Range("Y3:Y274", "AC3:AC274") 'change column ref as required 
Set WatchRange = Range("B3:B274", "E3:E274", "H3:H274", "K3:K274") 
Set RefRange = Range("A3:A102") 

For Each cell In Target.Cells 
    If Application.WorksheetFunction.CountIf(WatchRange, cell.Value) > 0 Then 
     cell.Interior.ColorIndex = 3 
     For Each watchCell In WatchRange.Cells 
      If watchCell.Interior.ColorIndex = 6 And RefRange.Value = Target.Value Then: targetCell.Interior.ColorIndex = 3 
     Next watchCell 
    Else: cell.Interior.ColorIndex = xlNone 
    End If 
Next cell 
End Sub

來源

2009-10-14 e9.

以防萬一這有助於：變化：

Set WatchRange = Range("B3:B274", "E3:E274", "H3:H274", "K3:K274")

要：

Set WatchRange = Range("B3:B274,E3:E274,H3:H274,K3:K274")

來源

2009-10-14 21:50:49 Crispy

我試過這之前發佈，它沒有奏效。 – 2009-10-15 01:39:49

你可以嘗試將另一件事與取代

For Each watchCell In WatchRange.Cells

For Each area In WatchRange.Areas 
    For Each watchCell In area.Cells

編輯：你還需要兩個「Next」語句來匹配它。所以一定要做到這一點

Next watchCell 
Next area

來源

2009-10-14 22:00:37 jakber

這看起來很有希望，但現在我在這裏得到「Else without If」的錯誤：「Else：cell.Interior.ColorIndex = xlNone」 – 2009-10-15 01:41:12

已更新的答案。 – jakber 2009-10-15 20:09:25

使用參考範圍的Excel條件格式化

回答

相關問題