Tô màu theo từng group.

[hoatranh]

Xin chào các bạn. Nhờ các bạn xem lại giúp code VBA. Mình muốn tô màu xen kẽ theo từng group nhóm tài khoản theo cột A như file chia sẻ nhưng làm code VBA chạy không thành công. Mình sửa code nhiều lần nhưng chưa đúng. Cảm ơn rất nhiều ạ!

 

[snow25]

Xin chào các bạn. Nhờ các bạn xem lại giúp code VBA. Mình muốn tô màu theo từng group nhưng không thành công. Mình sửa code nhiều lần nhưng chưa thành công. Cảm ơn rất nhiều ạ!

Tô màu làm gì vậy bạn.

 

[giaiphap]

Xin chào các bạn. Nhờ các bạn xem lại giúp code VBA. Mình muốn tô màu theo từng group nhưng không thành công. Mình sửa code nhiều lần nhưng chưa thành công. Cảm ơn rất nhiều ạ!

Mô tả rõ hơn vấn đề mình mong muốn. Tô màu theo điều kiện gì? Các màu tô cùng màu hay khác màu? ...

 

[huuthang_bd]

Có thể dùng Conditional Formatting

=MOD(SUM(--($A$2:$A2<>$A$1:$A1)),2)

 

[phulien1902]

Xin chào các bạn. Nhờ các bạn xem lại giúp code VBA. Mình muốn tô màu theo từng group nhưng không thành công. Mình sửa code nhiều lần nhưng chưa thành công. Cảm ơn rất nhiều ạ!

Bạn muốn tô mỗi tài khoản 1 màu cho dễ nhìn phải không?

 

[hoatranh]

Đúng ạ! như bảng excel đã mô tả. Nghĩa là mỗi tài khoản khác nhau sẽ tô màu theo nhóm để phân biệt. Mình có viết code VBA nhưng chạy không đúng. Nhờ các bạn chỉnh code lại giúp!

 

[be_09]

Đúng ạ! như bảng excel đã mô tả. Nghĩa là mỗi tài khoản khác nhau sẽ tô màu theo nhóm để phân biệt. Mình có viết code VBA nhưng chạy không đúng. Nhờ các bạn chỉnh code lại giúp!

Không lẽ có 100 tài khoản lại tô 100 loại màu khác nhau, nên tô màu theo loại tài khoản chính.
Tôi không là dân kế toán nên không hiểu từng nhóm tài khoản là như thế nào.

 

[hoatranh]

Không lẽ có 100 tài khoản lại tô 100 loại màu khác nhau, nên tô màu theo loại tài khoản chính.
Tôi không là dân kế toán nên không hiểu từng nhóm tài khoản là như thế nào.

Vâng đúng rồi bạn! chỉ tô hai màu thôi! mục đích là phân biệt nhìn cho rõ thôi chứ không có gì khác.

 

[Ba Tê]

Vâng đúng rồi bạn! chỉ tô hai màu thôi! mục đích là phân biệt nhìn cho rõ thôi chứ không có gì khác.

Thử cái này xem:

Sub ToMau()
Dim I As Long, R As Long, K As Long, Mau As Long
    R = Range("A10000").End(xlUp).Row + 1
    For I = 2 To R
        K = K + 1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            Mau = IIf(Mau = 0, 36, 0)
            Range("A" & I).Offset(-K).Resize(K, 3).Interior.ColorIndex = Mau
            K = 0
        End If
    Next I
End Sub


Sub xoa()
    Columns("A:C").Interior.ColorIndex = 0
End Sub

 

[hoatranh]

Thử cái này xem:

Sub ToMau()
Dim I As Long, R As Long, K As Long, Mau As Long
    R = Range("A10000").End(xlUp).Row + 1
    For I = 2 To R
        K = K + 1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            Mau = IIf(Mau = 0, 36, 0)
            Range("A" & I).Offset(-K).Resize(K, 3).Interior.ColorIndex = Mau
            K = 0
          
        End If
    Next I
End Sub


Sub xoa()
    Columns("A:C").Interior.ColorIndex = 0
End Sub

Whao! thật đơn giản mà hiệu quả! cảm ơn bạn rất nhiều ạ!