Giúp em tìm kiếm, so sánh và tô màu theo điều kiện (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

fan.8051

Thành viên mới
Tham gia
29/3/12
Bài viết
13
Được thích
0
Em đang làm Excel nhưng bí đoạn này quá. Tình hình là thế này:
Lấy lần lượt từng ô dữ liệu trong cột A, sau đó mang đi so sánh với tất cả dữ liệu trong cột X và Y. Nếu dữ liệu mang đi so sánh mà thuộc cột X thì tô màu Đỏ, còn nếu thuộc cột Y thi tôt màu Xanh.
Mục đích la để người khác khi nhìn vào các dữ liệu ở cột A, người ta sẽ phân biệt được cái nào thuộc cột X, cái nào thuộc cột Y.
Mọi người giúp em với ạ !
p/s: em có đính kèm file excel

ex.jpg
 

File đính kèm

Cám ơn anh n0thing1988, em làm được rồi nhưng chỉ làm được cho 1 ô, giờ muốn quét cho tất cả các ồ thì sao anh ? tại vì em có hơn 100 ô nên ko thể làm từng ô một được
Anh giúp em với nha
 
Cám ơn anh n0thing1988, em làm được rồi nhưng chỉ làm được cho 1 ô, giờ muốn quét cho tất cả các ồ thì sao anh ? tại vì em có hơn 100 ô nên ko thể làm từng ô một được
Anh giúp em với nha
Làm cho 1 ô là sao nhỉ? Mình tô màu được cả cột A mà. Có thể bạn chưa chọn cột A từ bước đầu
 
Lần chỉnh sửa cuối:
Minh làm được rôi n0thing1988 ! Cám ơn bạn vì đã nhiệt tình giúp đỡ :D
 
Em đang làm Excel nhưng bí đoạn này quá. Tình hình là thế này:
Lấy lần lượt từng ô dữ liệu trong cột A, sau đó mang đi so sánh với tất cả dữ liệu trong cột X và Y. Nếu dữ liệu mang đi so sánh mà thuộc cột X thì tô màu Đỏ, còn nếu thuộc cột Y thi tôt màu Xanh.
Mục đích la để người khác khi nhìn vào các dữ liệu ở cột A, người ta sẽ phân biệt được cái nào thuộc cột X, cái nào thuộc cột Y.
Mọi người giúp em với ạ !
p/s: em có đính kèm file excel
Bạn thử Code cùi này xem:
[GPECODE=vb]Sub To_mau()
Dim Dic As Object
Dim rng As Range
Set Dic = CreateObject("Scripting.Dictionary")
For Each rng In Range([A3], [A65536].End(xlUp))
If rng <> "" Then
If Not Dic.exists(rng.Value) Then
Dic.Add rng.Value, Empty
End If
End If
Next
For Each rng In Range([A3], [A65536].End(xlUp))
If rng.Offset(, 23) <> "" Then
If Dic.exists(rng.Offset(, 23).Value) Then
rng.Offset(, 23).Interior.ColorIndex = 3
End If
End If
If rng.Offset(, 24) <> "" Then
If Dic.exists(rng.Offset(, 24).Value) Then
rng.Offset(, 24).Interior.ColorIndex = 4
End If
End If
Next
End Sub[/GPECODE]
 
Web KT

Bài viết mới nhất

Back
Top Bottom