Câu lệnh If và With trong VBA

Sử dụng câu lệnh If để tô màu xanh cho ô không âm, đỏ cho ô âm

Đầu tiên mở Editor
Để viết, chúng ta cần 1 module
Bấm Ctr + R, chọn insert module ( tương đương : View/project explorer)

Sub to_mau_cho_cell()
if selection.value >= 0 then
    selection.interior.colorindex = 4
elseif selection.value < 0
          selection.interior.colorindex = 3
End Sub

Sử dụng activecell cũng tương đương.
Chúng ta có 56 colorindex
Ở đây màu đỏ = 3 ; màu xanh = 4

Nếu sử dụng With, chúng ta sẽ viết code nhanh hơn

With selection
       if .value >= 0 then
           .interior.colorindex = 4
        elseif .value < 0
           .interior.colorindex = 3

Tất cả được thực hiện với Selection nên không cần viết lại. Lưu ý, vẫn phải ghi dấu "." trước các thuộc tính