Làm cách nào để áp dụng các đầu trang hoặc chân trang khác nhau trên mỗi trang trên bảng tính Excel?

Theo mặc định, khi chèn đầu trang hoặc chân trang vào một trang tính, nội dung đầu trang hoặc chân trang sẽ được áp dụng cho tất cả các trang. Đối với nhiều người, các trang khác nhau có thể có nội dung khác nhau trong trang tính của họ. Và họ có xu hướng phân biệt các trang này với nội dung đầu trang hoặc chân trang sau khi in trang tính ra. Làm thế nào để áp dụng các đầu trang hoặc chân trang khác nhau trên mỗi trang trên trang tính? Phương pháp trong bài viết này có thể giúp bạn.

Áp dụng các đầu trang hoặc chân trang khác nhau trên mỗi trang bằng mã VBA

Áp dụng các đầu trang hoặc chân trang khác nhau trên mỗi trang bằng mã VBA

Mã VBA sau có thể giúp bạn áp dụng các đầu trang hoặc chân trang khác nhau trên mỗi trang của trang tính. Hãy làm như sau.

1. Nhấn nút Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho ứng dụngcửa sổ s.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào Mã cửa sổ. Xem ảnh chụp màn hình:

Mã VBA: Áp dụng các tiêu đề khác nhau trên mỗi trang trong Excel

Sub DifferentHeaderFooter()
    Dim ws As Worksheet
    Dim vLeft As Variant, vRight As Variant, xRg As Variant
    Set ws = ActiveSheet
    On Error Resume Next
    vLeft = Array("First page", "Second page", "Third page", "fourth page")
    xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")

    Application.ScreenUpdating = False
    For i = 0 To UBound(vLeft)
        With ws.PageSetup
        .PrintArea = xRg(i)
        .LeftHeader = vLeft(i)
        End With
        ws.PrintPreview
    Next i
    Application.ScreenUpdating = True
    ws.PageSetup.PrintArea = ""
End Sub

Chú ý:

3. Nhấn nút F5 phím để chạy mã. Sau đó Xem trước cửa sổ bật lên, vui lòng nhấp vào In để bắt đầu in các trang có đầu trang hoặc chân trang khác nhau.

Chú thích: Nếu có 4 trang in được chỉ định trong trang tính, bạn cần nhấp vào In nút bốn lần để hoàn thành toàn bộ quá trình in.