Tô màu theo điều kiện (1 người xem)

[SonJG]

Chào các bạn, mình muốn hỏi các bạn vấn đề tô mầu theo điều kiện như sau:

-Những ô mình khoanh vùng nếu chứa "Q345" hoặc "SS400" hoặc "ATOS60" sẽ có màu như ảnh của minh. Cảm ơn các bạn

 

[khuongvietphong]

Chào các bạn, mình muốn hỏi các bạn vấn đề tô mầu theo điều kiện như sau:

-Những ô mình khoanh vùng nếu chứa "Q345" hoặc "SS400" hoặc "ATOS60" sẽ có màu như ảnh của minh. Cảm ơn các bạn

Bạn nhập liệu trong vùng B2:B25

 

[doveandrose]

Q345 , SS400 chắc là ký hiệu Thép nhập khẩu từ "chị Na" chăng ? hi hi

 

[doatmenhhon]

Q345 , SS400 chắc là ký hiệu Thép nhập khẩu từ "chị Na" chăng ? hi hi

Có người sắp lên sao vàng đứng im thì phải nên hôm nay hoạt động tích cực thế

 

[SonJG]

Bạn nhập liệu trong vùng B2:B25

Cảm ơn bạn đúng là cái mình cần nhưng mình vẫn chưa làm được. Mình làm theo thì toàn bộ vùng tương tự B225 sẽ chuyển thành 1 mầu. Không biết mình làm sai chỗ nào. Bạn có thể hướng dẫn giúp mình rõ hơn 1 chút được ko?

Mình xem lại công thức thì đúng như của bạn rồi nhưng vẫn ko được.

Ban đầu mình tạo vùng B2:B25, sau đó vào manage rules và chọn mục use a formula to... và nhập lệnh như bạn mà toàn bị cả vùng 1 mầu.

Cảm ơn bạn !

 

[khuongvietphong]

Cảm ơn bạn đúng là cái mình cần nhưng mình vẫn chưa làm được. Mình làm theo thì toàn bộ vùng tương tự B225 sẽ chuyển thành 1 mầu. Không biết mình làm sai chỗ nào. Bạn có thể hướng dẫn giúp mình rõ hơn 1 chút được ko?

Mình xem lại công thức thì đúng như của bạn rồi nhưng vẫn ko được.

Ban đầu mình tạo vùng B2:B25, sau đó vào manage rules và chọn mục use a formula to... và nhập lệnh như bạn mà toàn bị cả vùng 1 mầu.

Cảm ơn bạn !

Bạn có thể đưa File bạn làm lên đây không

 

[SonJG]

Bạn có thể đưa File bạn làm lên đây không

Đây, bạn xem giúp mình với

 

[comet_1701]

Chào các bạn, mình muốn hỏi các bạn vấn đề tô mầu theo điều kiện như sau:

-Những ô mình khoanh vùng nếu chứa "Q345" hoặc "SS400" hoặc "ATOS60" sẽ có màu như ảnh của minh. Cảm ơn các bạn

Còn đây là sub nhỏ chạy bằng VBA nhé, em cứ làm quen dần, vì xu hướng giờ thấy dùng VBA cũng nhiều

Sub Mau_Me()
Dim Sarr, Darr, i, j, k, Rng As Range
Dim Ws As Worksheet
Set Ws = Sheets("Sheet2")
Set Rng = Ws.Range("B2:D" & Ws.[B65000].End(xlUp).Row)
Sarr = Rng.Value2
Ws.Range("B2:D" & Ws.[B65000].End(xlUp).Row).Interior.ColorIndex = xlNone
For i = 1 To UBound(Sarr, 1)
    For j = 1 To UBound(Sarr, 2)
        If Sarr(i, j) = "Q345" Or Sarr(i, j) = "SS400" Or Sarr(i, j) = "ATOS60" Then
            Rng(i, j).Interior.ColorIndex = 6
        End If
    Next j
Next i
Set Rng = Nothing


End Sub

https://www.youtube.com/watch?v=nYVh...ature=youtu.be
Còn đây là cách Enable Macro nhé

 

[SonJG]

À mình biết lỗi ở đâu rồi. Mình làm được rồi. Cảm ơn bạn nhiều nhé @khuongvietphong

Vâng, e cũng cảm ơn anh/chị comet_1701 ạ