Bạn diễn tả không hiểu được , ví dụ ngày 3 , KH 74 làm sao biết thuộc đơn hàng nào
Bạn thử file mình gửi xem có đúng không!?
Bạn dùng thử code này xem:
Sub Text()
Dim TongHD As Long
[F1:L3].Interior.Pattern = xlNone
For Each Rng In [F3:L3]
TongHD = 0
For Each Rng1 In [B2:B5]
TongHD = TongHD + Rng1
If Rng <= TongHD Then
Rng.Offset(-2).Resize(3, 1).Interior.ColorIndex = Rng1.Interior.ColorIndex
Exit For
End If
Next
Next
End SubBạn đã thử chưa mà bảo là không được. Trong file của bạn có để màu mẫu. Tôi chạy Macro thấy ra màu y hệt. Vậy chưa đúng chỗ nào??
Sửa tạm , bạn kiểm tra xem
File của bác đã được rồi bác ạ. tuy nhiên khi tổng số lượng kế hoạch lớn hơn tổng số lượng ĐH thì màu nó lại quay về mầu của ĐH1. em muốn trong trường hợp này nó không thể hiện màu, các bác giúp em tiếp nhé!
Tôi thấy đoạn code của tôi ở bài #11:
Sub Text()
Dim TongHD As Long
[F1:L3].Interior.Pattern = xlNone
For Each Rng In [F3:L3]
TongHD = 0
For Each Rng1 In [B2:B5]
TongHD = TongHD + Rng1
If Rng <= TongHD Then
Rng.Offset(-2).Resize(3, 1).Interior.ColorIndex = Rng1.Interior.ColorIndex
Exit For
End If
Next
Next
End SubBạn phải chạy MACRO thì mới thấy kết quả chứ ???????????!!!!!!!!!!!!!!!!!!!!!!!!.Khó hiểu!
Tôi không nghĩ là phải nói bạn chạy Macro. Vì thường thì cái này ai cũng biết. Nếu bạn muốn nó tự động thì sửa lại. Đưa nó vào sự kiện Worksheet_Change là xong.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TongHD As Long
[F1:L3].Interior.Pattern = xlNone
For Each Rng In [F3:L3]
TongHD = 0
For Each Rng1 In [B2:B5]
TongHD = TongHD + Rng1
If Rng <= TongHD Then
Rng.Offset(-2).Resize(3, 1).Interior.ColorIndex = Rng1.Interior.ColorIndex
Exit For
End If
Next
Next
End Sub
