Định dạng có điều kiện bằng cách sử dụng VBA

Question

Tôi muốn mã phù hợp để sử dụng định dạng có điều kiện. Tôi có dữ liệu cho tổng của 4 hình thức bán hàng quý ("K8: K207"). Tôi muốn áp dụng định dạng có điều kiện, nơi tôi có 3 điều kiện:

1. Highlight Cột K (Tổng số bán hàng năm) cho năm lớn hơn 1,00,000 như xanh
2. giữa 90.000 đến 1,00,000 như hổ phách
3. và ít hơn 90.000 là màu đỏ

Vui lòng giúp tôi cách viết mã bằng vòng lặp.

Answer 1

Bạn không cần vòng lặp cho việc này. Bạn chỉ có thể thêm một FormatCondition mới vào đối tượng phạm vi của bạn.

lLow = 90000 
lHigh = 100000 

Set rng = Range("K8:K207") 
rng.FormatConditions.Delete ' delete any pre-existing formatting 

' add greater than condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & lHigh) 
    .Interior.Color = rgbLimeGreen 
End With 

' add middle condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:="=" & lLow, Formula2:="=" & lHigh) 
    .Interior.Color = rgbGold 
End With 

' add less than condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=" & lLow) 
    .Interior.Color = rgbRed 
End With