Tô màu có điều kiện cho từng ô trong excel (1 người xem)

[NGUYENTHIBAOHIEN]

CHÀO CÁC ANH CHỊ THÂN MẾN,
em có chút vấn đề với excel, anh chị nào biết giúp em với nha.
em muốn tô màu có điều kiện cho ô trong excel, nhưng không biết phải làm thế nào?
ví dụ: em có 3 cột: cột A, cột B, cột C.
nếu số ở cột A, bằng hoặc lớn hơn với số ở cột B thì ô ở cột C sẽ tô màu đỏ, còn nếu không thì vẫn bình thường, không tô màu.
có ai biết cái này chỉ giúp em với nhá

 

[phihndhsp]

CHÀO CÁC ANH CHỊ THÂN MẾN,
em có chút vấn đề với excel, anh chị nào biết giúp em với nha.
em muốn tô màu có điều kiện cho ô trong excel, nhưng không biết phải làm thế nào?
ví dụ: em có 3 cột: cột A, cột B, cột C.
nếu số ở cột A, bằng hoặc lớn hơn với số ở cột B thì ô ở cột C sẽ tô màu đỏ, còn nếu không thì vẫn bình thường, không tô màu.
có ai biết cái này chỉ giúp em với nhá

sau này nhớ gởi file lên ? bạn xem như vậy có đúng không?

 

[NGUYENTHIBAOHIEN]

Em cảm ơn anh, nhưng làm sao mà lập điều kiện tô mà trong cột c được vậy anh ơi,
ý em là em lập sẵn điều kiện, và khi nào có kết quả trong cột a và cột b thì cột c sẽ tự động tô màu, chứ không phải mình tự tô đâu.
Tại 1 đến 2 số thì tự tô được, chứ cái file của em, một ngày có đến cả hàng ngàn kết quả, nên khó để tự tô quá.

 

[phihndhsp]

Bạn có chịu đưa cái file lên đâu mà tôi làm cho bạn, còn nếu bạn biết cách làm thì bạn xem trong file và làm theo, trong file tôi làm cả 1000000 ngàn dòng.

 

[thang314]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i
For i = 1 To Range("a65000").End(xlUp).Row
If Range("a" & i) >= Range("b" & i) Then
Range("c" & i).Interior.ColorIndex = 3
Else
Range("c" & i).Interior.ColorIndex = 0
End If
Next
End Sub
thử xem sao. góp vui tí@!>>>

 

[NGUYENTHIBAOHIEN]

cảm ơn các anh nhé
chúc mọi người một buổi chiều bình an và tốt lành.

 

[Kyne1001]

Tính năng bạn phi sử dụng là Conditioning Formatting đấy. Bạn cứ Search diễn đàn này sẽ có hướng dẫn.

 

[OZOCUONG]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i
For i = 1 To Range("a65000").End(xlUp).Row
If Range("a" & i) >= Range("b" & i) Then
Range("c" & i).Interior.ColorIndex = 3
Else
Range("c" & i).Interior.ColorIndex = 0
End If
Next
End Sub
thử xem sao. góp vui tí@!>>>

Anh ơi cách sử dụng làm sao anh . em copy về rồi dán vào module xong rồi sao nữa anh .

 

[nhung020287]

Mình không biết sử dụng cái này
loay hoay mãi chưa biết cách làm

 

[maithanhvan]

Bạn có chịu đưa cái file lên đâu mà tôi làm cho bạn, còn nếu bạn biết cách làm thì bạn xem trong file và làm theo, trong file tôi làm cả 1000000 ngàn dòng.

Cam on ban rat nhieu, xem file cua ban minh da biet cach lam roi