Tô mầu tự động khi dữ liệu thỏa mãn điều kiện

[ncicacc]

Dear các bạn,

Hàng tuần tôi phải làm một báo cáo thống kê, yêu cầu phải hightline các giá trị khi giá trị đó thỏa mãn một điều kiện nào đó. Làm thủ công là cópy dữ liệu sang một sheet khác, sau đó tính toán và hightlight từng cell, sau đó lại copy format vào báo cáo. Rất mất thời gian và có thể gây nhầm lẫn

Nhờ các cao thủ giúp đỡ ( File đính kèm có ghi rõi yêu cầu)

 

[solomon2211]

Bạn dùng Conditional Formating.

Xem file đính kèm.

 

[ncicacc]

To Solomon2210: Nếu làm như cách của bạn cũng mất rất nhiều thời gian. Vì mỗi một cell mình lại phải vào Condition Formating để lập công thức -> Bao nhieu cell thì bấy nhiêu lần làm như vậy. Các bạn có cách nào nhanh hơn không??

 

[ti8pro]

To Solomon2210: Nếu làm như cách của bạn cũng mất rất nhiều thời gian. Vì mỗi một cell mình lại phải vào Condition Formating để lập công thức -> Bao nhieu cell thì bấy nhiêu lần làm như vậy. Các bạn có cách nào nhanh hơn không??

Chỉ làm 2 công thức điều kiện cho cả vùng dữ liệu được select thôi mà bạn

 

[SA_DQ]

Còn nếu lười nữa, ta gán tổ hợp {CTRL}+{SHIFT}+C cho macro sau & bấm nó khi muốn tô

Option Explicit
Sub BackColor()
 Dim Rng0 As Range, Rng As Range, Clls As Range
 Dim Vg As Byte, Hg As Byte, Timer_ As Double
 
 Timer_ = Timer
 Set Rng0 = Range([e9], [e9].End(xlToRight))
 Set Rng = [E10].Resize([e65500].End(xlUp).Row, Rng0.Columns.Count)
 Vg = [d38].Interior.ColorIndex:       Hg = [d39].Interior.ColorIndex
 For Each Clls In Rng
   With Cells(9, Rng0.Column)
   If Clls.Value < 0.5 * .Value And Clls.Value > 0 Then
      Clls.Interior.ColorIndex = Hg
   ElseIf Clls.Value >= 0.5 * .Value And Clls.Value < 0.7 * .Value Then
      Clls.Interior.ColorIndex = Vg
   End If
   End With
 Next Clls
 [d38].Value = Timer() - Timer_
End Sub