根據單元格值選擇特定的行

Question

對於您的專家來說，這可能是一個瑣碎的問題：

根據輸入（周），首先在該特定周（WK）和下一個周（WK + 1）上過濾表。 然后，我將所有WK + 1單元格格式化為灰色。

到現在為止還挺好。 現在的問題。 如何更改下面的代碼，使包含WK + 1值的單元格的整行變為灰色？

ActiveSheet.Range("B5").AutoFilter Field:=1, Criteria1:=WK, Operator:=xlOr, _
Criteria2:=(WK + 1)

With ActiveSheet.Range("$B:$B").FormatConditions _
.Add(xlCellValue, xlEqual, "=" & WK + 1)
With .Font
.Bold = True
.ColorIndex = 15
End With
End With

提前致謝！ 蘋果電腦

Answer 1

使用xlExpression類型的FormatCondition可以做到這一點。 例：

ActiveSheet.Range("$A:$Z").FormatConditions.Delete
ActiveSheet.Range("A1").Activate
With ActiveSheet.Range("$A:$Z").FormatConditions _
 .Add(Type:=xlExpression, Formula1:="=($B1=" & WK + 1 & ")")
 With .Font
  .Bold = True
  .ColorIndex = 15
 End With
End With

我先刪除FormatConditions，然后再添加新的。 因為如果不這樣做，則多次調用此代碼將導致多個FormatConditions具有相同的條件，但可能具有WK的其他值。 這是因為代碼每次運行時都會添加一個新的FormatCondition。

問候

阿克塞爾