Wendy muốn đưa số trang vào tiêu đề của bản in trang tính của cô ấy, nhưng có một sự thay đổi — Trang 21A trên trang 1, Trang 21B trên trang 2, Trang 21C trên trang 3, v.v. Cô ấy tự hỏi làm thế nào để tạo ra một số trang như vậy kế hoạch.

Có một số cách bạn có thể thực hiện để giải quyết vấn đề này, tất cả chúng đều liên quan đến việc sử dụng macro. Nếu bạn thực sự muốn in tất cả các trang tính trong sổ làm việc hiện tại và không trang nào trong số đó có độ dài trên một trang (khi in), thì macro sau sẽ đặt phần chính giữa của tiêu đề theo yêu cầu:

Sub PageNums1()

Dim sheet As Worksheet     Dim J As Integer

J = 1     On Error Resume Next     For Each sheet In Worksheets         Sheets(J).PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

J = J + 1     Next End Sub

Lưu ý rằng macro không thực sự in bất cứ thứ gì; tất cả những gì nó làm là thay đổi thông tin tiêu đề. Nếu bạn thực sự chỉ muốn in trang tính hiện tại và trang tính đó sẽ yêu cầu nhiều trang trên bản in, thì cách sau sẽ hoạt động tốt:

Sub PageNums2()

Dim X As Integer     Dim Y As Integer     Dim Z As Integer

Z = 1     For X = 1 To ActiveSheet.HPageBreaks.Count + 1         For Y = 1 To ActiveSheet.VPageBreaks.Count + 1             ActiveSheet.PageSetup.CenterHeader = _               "Page 21" & Chr$(64 + Z)

Worksheets.PrintOut Z, Z             Z = Z + 1         Next Y     Next X End Sub

Macro này tính toán các trang dựa trên vị trí của ngắt trang ngang (HPageBreaks) và dọc (VPageBreaks) trên bản in.

Bạn cũng có thể thử làm việc với bộ sưu tập Trang, theo cách này:

Sub PageNums3()

Dim J As Integer

For J = 1 To ActiveSheet.PageSetup.Pages.Count         ActiveSheet.PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

Worksheets.PrintOut J, J     Next J End Sub

Bạn nên lưu ý rằng bất kể cách tiếp cận bạn chọn là gì, bạn sẽ gặp sự cố nếu bản in yêu cầu nhiều hơn 26 trang.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (12548) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365.