Tô màu theo conditinal formating

Tô màu từ giá trị nhỏ nhất đến lớn nhất theo thang màu

Chúng ta có thể làm việc tương tự với conditional formating trong thẻ home của excel. ( Color scale )
Tuy nhiên làm việc với nhiều cột liên quan ( các thuộc tính liên quan đến cột chính cần tô màu) thì nên sử dụng VBA.

Sub to_mau()
 dong_cuoi= cells(Rows.count, 1).Rnd(x1UP).Row
for i=6 to dong_cuoi
gia_tri=Int(cells(i,4).value/1000)

With Cells(i,1).Resize(1,4).Interior
.Pattern = ...
.Patterncolor
.color = cells(5,9).Interrior.color
....
End with
Next i
End sub

Để thực hiện bước tô màu, nên sử dụng Macro Recorder để xem cách máy tô màu.