TÔ MÀU TỰ ĐỘNG BẰNG VBA

[babygirl_8990]

Chào mọi người, hôm nay nhờ mọi người làm giúp em mã code tô màu tự động bằng VBA ạ, em muốn tô màu theo số ngày ở cột C.
Em có gửi file mẫu, cảm ơn mọi người ạ

 

[Ba Tê]

Chào mọi người, hôm nay nhờ mọi người làm giúp em mã code tô màu tự động bằng VBA ạ, em muốn tô màu theo số ngày ở cột C.
Em có gửi file mẫu, cảm ơn mọi người ạ

Thử cái "mã code" này xem sao:

Public Sub MauMe()
Dim I As Long, J As Long, N As Long, R As Long
R = Range("C1000").End(xlUp).Row
Range("R10:R" & R).Resize(, 78).Interior.ColorIndex = 0
For I = 10 To R
    If Cells(I, 2) <> Empty Then J = 18
    If Cells(I, 3) <> Empty Then
        N = Cells(I, 3) * 6
        Cells(I, J).Resize(, N).Interior.ColorIndex = 15
        J = J + N
    End If
Next I
End Sub

 

[nguyen6571gpex]

?

 

[babygirl_8990]

Public Sub MauMe() Dim I As Long, J As Long, N As Long, R As Long R = Range("C1000").End(xlUp).Row Range("R10:R" & R).Resize(, 78).Interior.ColorIndex = 0 For I = 10 To R If Cells(I, 2) <> Empty Then J = 18 If Cells(I, 3) <> Empty Then N = Cells(I, 3) * 6 Cells(I, J).Resize(, N).Interior.ColorIndex = 15 J = J + N End If Next I End Sub

Em cảm ơn thầy nhiều ạ, code chạy rất ổn, nhưng thầy thêm giúp em phân loại cột I là JJIS thì màu nâu, ASTM thì màu đỏ giúp em nhé, xin lỗi thầy là từ đầu em quên mất điều kiện này

 

[minhtri1507]

Dear chủ thớt,

Về vấn đề tiến trình này thì bạn vào link dưới tham khảo nhé, mình có vấn đề này còn phức tạp hơn mà chưa tìm ra cách, nhờ các cao thủ giúp ạ, Có thể dùng hàm hay VBA đều được.

Câu hỏi: Mình có một dòng trên có nhiều mã hàng và mỗi mã có số ngày sản xuất mình muốn mỗi mã hàng thể hiện một màu và mỗi khi bắt đầu một màu thì tên mã hàng thể hiện ở đầu màu đó và theo số ngày đã định sẵn và trừ chủ nhật ra, nếu trong tuần, hoặc tháng có chủ nhật, Có nhiếu tổ như Sheet đính kèm.
Mọi chi tiết góp ý các cao thủ gửi giúp theo địa chỉ email sau: trivduy@gmail.com
Chân thành cảm ơn.

 

[Ba Tê]

Em cảm ơn thầy nhiều ạ, code chạy rất ổn, nhưng thầy thêm giúp em phân loại cột I là JJIS thì màu nâu, ASTM thì màu đỏ giúp em nhé, xin lỗi thầy là từ đầu em quên mất điều kiện này

Chuyện của mình mà "quên" thì đúng là phiền thiệt.

Public Sub MauMe()
Dim I As Long, J As Long, N As Long, R As Long, Mau As Long
R = Range("C1000").End(xlUp).Row  'Xác định dòng cuối trong cột C'
Range("R10:R" & R).Resize(, 78).Interior.ColorIndex = 0 'Xoa bỏ màu có sẵn'
For I = 10 To R              'Bắt đầu từ dòng 10 xuống'
    If Cells(I, 2) <> Empty Then J = 18 'Bắt đầu từ cột R'
    If Cells(I, 3) <> Empty Then
        N = Cells(I, 3) * 6   'Số cột cần tô màu'
        Mau = IIf(Cells(I, 9) = "JIS", 15, 3) 'Màu phải tô'
        Cells(I, J).Resize(, N).Interior.ColorIndex = Mau
        J = J + N
    End If
Next I
End Sub

 

[Excel365]

Em cảm ơn thầy nhiều ạ, code chạy rất ổn, nhưng thầy thêm giúp em phân loại cột I là JJIS thì màu nâu, ASTM thì màu đỏ giúp em nhé, xin lỗi thầy là từ đầu em quên mất điều kiện này

Bạn chỉnh code của anh Bate lại

Public Sub MauMe()
    Dim I As Long, J As Long, N As Long, R As Long
    R = Range("C1000").End(xlUp).Row
    Range("R10:R" & R).Resize(, 78).Interior.ColorIndex = 0
    For I = 10 To R
        If Cells(I, 2) <> Empty Then J = 18
        If Cells(I, 3) <> Empty And Cells(I, 9) = "JIS" Then
            N = Cells(I, 3) * 6
            Cells(I, J).Resize(, N).Interior.ColorIndex = 3
            J = J + N
        ElseIf Cells(I, 3) <> Empty And Cells(I, 9) = "ASTM" Then
            N = Cells(I, 3) * 6
            Cells(I, J).Resize(, N).Interior.ColorIndex = 9
            J = J + N
        End If
    Next I
End Sub

 

[babygirl_8990]

Chuyện của mình mà "quên" thì đúng là phiền thiệt.

Public Sub MauMe()
Dim I As Long, J As Long, N As Long, R As Long, Mau As Long
R = Range("C1000").End(xlUp).Row
Range("R10:R" & R).Resize(, 78).Interior.ColorIndex = 0
For I = 10 To R
    If Cells(I, 2) <> Empty Then J = 18
    If Cells(I, 3) <> Empty Then
        N = Cells(I, 3) * 6
        Mau = IIf(Cells(I, 9) = "JIS", 15, 3)
        Cells(I, J).Resize(, N).Interior.ColorIndex = Mau
        J = J + N
    End If
Next I
End Sub

Đúng ý em rồi ạ, cảm ơn thầy, lần sau em lưu ý hơn ạ

 

[minhtri1507]

Dear chủ thớt,

Về vấn đề tiến trình này thì bạn vào link dưới tham khảo nhé, mình có vấn đề này còn phức tạp hơn mà chưa tìm ra cách, nhờ các cao thủ giúp ạ, Có thể dùng hàm hay VBA đều được.

Câu hỏi: Mình có một dòng trên có nhiều mã hàng và mỗi mã có số ngày sản xuất mình muốn mỗi mã hàng thể hiện một màu và mỗi khi bắt đầu một màu thì tên mã hàng thể hiện ở đầu màu đó và theo số ngày đã định sẵn và trừ chủ nhật ra, nếu trong tuần, hoặc tháng có chủ nhật, Có nhiếu tổ như Sheet đính kèm.
Mọi chi tiết góp ý các cao thủ gửi giúp theo địa chỉ email sau: trivduy@gmail.com
Chân thành cảm ơn.

Có ai giúp mình với,

 

[Ba Tê]

Câu hỏi: Mình có một dòng trên có nhiều mã hàng và mỗi mã có số ngày sản xuất mình muốn mỗi mã hàng thể hiện một màu và mỗi khi bắt đầu một màu thì tên mã hàng thể hiện ở đầu màu đó và theo số ngày đã định sẵn và trừ chủ nhật ra, nếu trong tuần, hoặc tháng có chủ nhật, Có nhiếu tổ như Sheet đính kèm.
Mọi chi tiết góp ý các cao thủ gửi giúp theo địa chỉ email sau: trivduy@gmail.com

1/ Không ai tự nhận mình là cao thủ.
2/ Xem và trả lời ngay tại Topic này người khác còn "tốn công", chuyện gửi mail theo địa chỉ của bạn càng làm tốn công thêm nên khó ai chịu giúp.
3/ Mỗi mã hàng một màu, 100 mã hàng 100 màu sao? 2 màu là nhìn thấy choáng rồi.

 

[minhtri1507]

1/ Không ai tự nhận mình là cao thủ.
2/ Xem và trả lời ngay tại Topic này người khác còn "tốn công", chuyện gửi mail theo địa chỉ của bạn càng làm tốn công thêm nên khó ai chịu giúp.
3/ Mỗi mã hàng một màu, 100 mã hàng 100 màu sao? 2 màu là nhìn thấy choáng rồi.

Dù gì cũng cám ơn bạn đã reply, thực tế mình đang gặp tình trạng như vậy mà không có cách nào giải quyết được, một trăm mã hàng thì không đến nhưng tầm 10->15 mã hàng là có, mà các ngày san xuất và mã hàng có thể bị thay đổi liên tục nên tự làm thủ công toét hết cả mắt. Hic,