Tô màu số liệu

[thanhtrg]

Kính chào diễn đàn
Tôi có một file số liệu gồm 2 sheet, trong đó, sheet1 chứa dữ liệu báo giá hàng hoá từ 3 nhà cung cấp có màu đỏ, xanh, tím . Trong sheet2 là bảng giá hàng hoá lấy từ nhà cung cấp có giá thấp nhất . Vấn đề đặt ra là làm thế nào để giá mỗi sản phẩm có cùng màu với nhà cung cấp được chọn . Có ai biết xin chỉ giùm, tôi xin cám ơn và hậu tạ .

 

[tintam7251]

Bạn cho hỏi nếu 2 hoặc cả 3 nhà cung cấp có cùng giá thì tô màu của nhà cung cấp nào?

 

[thanhtrg]

Bạn cho hỏi nếu 2 hoặc cả 3 nhà cung cấp có cùng giá thì tô màu của nhà cung cấp nào?

Tô màu theo nhà cung cấp được chọn, nếu cùng giá thì chọn nhà cung cấp nào cũng được

 

[Quang_Hải]

Tô màu theo nhà cung cấp được chọn, nếu cùng giá thì chọn nhà cung cấp nào cũng được

Tô màu font chữ tự động chắc phải dùng VBA rồi
Ý mình thì nên làm như trong file
Hỏng trúng ý thì thôi hé

 

[tintam7251]

Góp vui thêm một cách. Cách này gọn nhưng nhanh thì không chắc lắm.

Private Sub CommandButton1_Click()
Dim dl, rngFind, dlmin As Long
dl = Range([D4], [d65536].End(3)).Resize(, 3).Value
   For i = 1 To UBound(dl)
        dlmin = Application.Min(dl(i, 1), dl(i, 2), dl(i, 3))
           Set rngFind = Range("D" & i + 3 & ":F" & i + 3).Find(dlmin)
               If Not rngFind Is Nothing Then
                   rngFind.Copy Sheet2.Cells(i + 2, 4)
                End If
   Next
End Sub

 

[Quang_Hải]

Đây cũng là 1 cách ngắn gọn, vừa lấy giá và kèm theo nhà cung cấp

Nhưng bài toán này dùng công thức lấy giá nhỏ nhất và nhà cung cấp là đủ rồi, sao phải tô màu chi rồi lúc cần lại phải dò tìm nhà cung cấp nữa

Sub ToMauGia()
Dim dl, i
Set dl = Range([D4], [d65536].End(3)).Resize(, 5)
   For i = 1 To dl.Rows.Count
      dl(i, 4) = Application.Min(dl(i, 1), dl(i, 2), dl(i, 3))
         Range(dl(i, 1), dl(i, 3)).Find(dl(i, 4)).Copy dl(i, 4)
      dl(i, 5) = Cells(3, Range(dl(i, 1), dl(i, 3)).Find(dl(i, 4)).Column)
   Next
End Sub

 

[thanhtrg]

xin cảm ơn bạn quanghai, tuy nhiên cái vụ VBA này tui gà mù lắm, nếu bạn có cách nào hay hơn xin chỉ giáo

 

[Hong.Van]

xin cảm ơn bạn quanghai, tuy nhiên cái vụ VBA này tui gà mù lắm, nếu bạn có cách nào hay hơn xin chỉ giáo

Tôi thấy yêu cầu của bạn chỉ có code đáp ứng được thôi. Còn sử dụng Conditional Formatting khó đáp ứng tô màu cho bạn được!

 

[Ba Tê]

xin cảm ơn bạn quanghai, tuy nhiên cái vụ VBA này tui gà mù lắm, nếu bạn có cách nào hay hơn xin chỉ giáo

Nếu dùng công thức thì lọc ra giá thấp nhất, lấy nhà cung cấp đầu tiên có giá thấp nhất nếu bằng nhau, không cần tô màu cũng biết là của ai rồi.