Tạo dòng có mầu cuối dòng trong file excel (1 người xem)

[thao82]

Kính chào các Anh chị của GPE, chúc anh chị năm mới mọi việc đều tốt đẹp vào GPE ngày càng lớn mạnh hơn nữa!
Tôi có câu hỏi rất mong các ACE giúp đỡ là làm sao dùng Conditional Formatting để đánh dấu các dòng cuối mỗi trang thành mầu khác (như file đính kèm)
Chân thành cám ơn các ACE đã lắng nghe và giúp đỡ!

 

[comet_1701]

Kính chào các Anh chị của GPE, chúc anh chị năm mới mọi việc đều tốt đẹp vào GPE ngày càng lớn mạnh hơn nữa!
Tôi có câu hỏi rất mong các ACE giúp đỡ là làm sao dùng Conditional Formatting để đánh dấu các dòng cuối mỗi trang thành mầu khác (như file đính kèm)
Chân thành cám ơn các ACE đã lắng nghe và giúp đỡ!

Sub Tomau_PageBreak()
Dim sh As Worksheet
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
    Set sh = ActiveSheet
    sh.ResetAllPageBreaks
    ActiveWindow.View = xlPageBreakPreview
    For i = 1 To sh.HPageBreaks.Count
        sh.HPageBreaks(i).Location.Offset(-1).EntireRow.Interior.ColorIndex = 6
    Next
    ActiveWindow.View = xlNormalView
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Bạn thử đoạn này xem sao

 

[thao82]

Xin cám ơn bạn comet_1701 đã gửi câu trả lời giúp mình. Tuy nhiên, đây là cách dùng VBA. Cách này mình đã tham khảo rồi. Tuy nhiên, không phải cách mình muốn sử dụng vì khi mình thêm bớt các dòng trong vùng dữ liệu dẫn đến các dòng cuối trang sẽ bị thay đổi theo. Như vậy các dòng đã bôi mầu trước vẫn không thay đổi. Mình mong muốn là khi thêm bớt các dòng trong vùng dữ liệu thì các dòng cuối trang đó đổi thành mầu khác!
Rất mong sự giúp đỡ của Bạn và các ACE trong ngôi nhà GPE của chúng ta!
Chân thành cám ơn ACE!