Sao chép đầu trang và chân trang (Microsoft Excel)
Excel cho phép bạn chỉ định đầu trang và chân trang cho trang tính của mình. Bạn có thể muốn sao chép các đầu trang và chân trang này từ trang tính này sang trang tính khác. Làm như vậy trong sổ làm việc tương đối dễ dàng, nhưng làm như vậy từ sổ làm việc này sang sổ làm việc khác có thể khó khăn hơn.
Nếu đầu trang và chân trang là phần mà bạn sử dụng khá nhiều trong các sổ làm việc mới và mối quan tâm chính của bạn là có sẵn đầu trang và chân trang trong các sổ làm việc mới đó (không phải trong các sổ làm việc hiện có), thì cách tốt nhất sẽ là tạo một sổ làm việc mẫu . Chỉ cần thiết lập một sổ làm việc như mong muốn, bao gồm đặc điểm kỹ thuật của đầu trang và chân trang. Sau đó, lưu sổ làm việc dưới dạng mẫu Excel (định dạng XLT). Sau đó, bạn có thể tạo sổ làm việc của mình dựa trên mẫu này và nó sẽ có đầu trang và chân trang mà bạn mong muốn.
Một cách để sao chép đầu trang và chân trang từ trang tính trong sổ làm việc này sang trang tính trong trang tính khác là sử dụng các phương pháp chỉnh sửa truyền thống là sao chép và dán. Nói cách khác, bạn có thể chọn tài liệu tiêu đề bạn muốn sao chép, nhấn Ctrl + C, hiển thị tiêu đề trong trang tính mục tiêu, rồi nhấn Ctrl + V. Hạn chế của cách tiếp cận này là nó có thể bao gồm khá nhiều bước. Rốt cuộc, có ba phần (trái, giữa và phải) cho mỗi đầu trang và ba phần cho mỗi chân trang. Điều này có nghĩa là bạn phải thực hiện sáu thao tác sao chép và dán để sao chép đầu trang và chân trang hoàn chỉnh.
Một cách khác để sao chép đầu trang và chân trang từ sổ làm việc này sang sổ làm việc khác liên quan đến việc sử dụng các lệnh Excel gốc để tạo bản sao của trang tính.
Làm theo các bước sau:
-
Mở sổ làm việc đích; cái mà bạn muốn sao chép đầu trang và chân trang.
-
Mở sổ làm việc là nguồn của đầu trang và chân trang của bạn và đảm bảo trang tính mong muốn được hiển thị.
-
Chọn Di chuyển hoặc Sao chép Trang tính từ menu Chỉnh sửa. Excel sẽ hiển thị hộp thoại Di chuyển hoặc Sao chép. (Xem Hình 1.)
-
Sử dụng danh sách thả xuống Để đặt sách, chọn sổ làm việc đích mà bạn đã mở ở bước 1.
-
Sử dụng vùng Trước trang tính, chỉ ra nơi bạn muốn sao chép trang tính.
-
Đảm bảo rằng hộp kiểm Tạo bản sao được chọn.
-
Nhấp vào OK. Trang tính được sao chép vào sổ làm việc đích.
-
Đóng sổ làm việc nguồn từ bước 2.
-
Trong sổ làm việc đích, hiển thị trang tính bạn vừa sao chép.
-
Trong khu vực tab ở cuối cửa sổ, nhấp chuột phải và chọn Chọn Tất cả Trang tính. Tất cả các trang tính hiện đã được chọn.
-
Hiển thị hộp thoại Thiết lập Trang. (Chọn Thiết lập Trang từ menu Tệp.)
-
Đảm bảo rằng tab Đầu trang / Chân trang được chọn. (Xem Hình 2.)
-
Sử dụng danh sách thả xuống Đầu trang và Chân trang, chọn đầu trang và chân trang được sử dụng trong trang tính bạn vừa sao chép.
-
Nhấp vào OK.
-
Xóa trang tính bạn đã sao chép trong các bước từ 1 đến 7.
Những gì bạn làm về cơ bản là sao chép trang tính có chứa đầu trang và chân trang bạn muốn, sau đó bạn sao chép đầu trang và chân trang đó sang các trang tính khác trong sổ làm việc, sau đó bạn xóa trang tính gốc.
Mặc dù các bước này hoạt động tốt, chúng có thể tẻ nhạt nếu bạn cần sao chép đầu trang và chân trang vào một số sổ làm việc khác nhau. Trong trường hợp này, sử dụng macro để sao chép là cách tiếp cận tốt hơn. Hai macro sau có thể được sử dụng để sao chép đầu trang và chân trang trong một bước đơn giản. Tất cả những gì bạn cần làm là hiển thị trang tính nguồn và sử dụng macro GetHeaders. Macro này sao chép thông tin đầu trang và chân trang vào các biến chuỗi. Sau đó, bạn có thể lần lượt hiển thị từng trang tính mà bạn muốn có cùng đầu trang và chân trang và chạy macro DoHeaders.
Option Explicit Dim strHeadLeft As String Dim strHeadCenter As String Dim strHeadRight As String Dim strFootLeft As String Dim strFootCenter As String Dim strFootRight As String Dim bGotHeaders As Boolean Sub GetHeaders() With ActiveSheet.PageSetup strHeadLeft = .LeftHeader strHeadCenter = .CenterHeader strHeadRight = .RightHeader strFootLeft = .LeftFooter strFootCenter = .CenterFooter strFootRight = .RightFooter bGotHeaders = True End With End Sub
Sub DoHeaders() If bGotHeaders Then With ActiveSheet.PageSetup .LeftHeader = strHeadLeft .CenterHeader = strHeadCenter .RightHeader = strHeadRight .LeftFooter = strFootLeft .CenterFooter = strFootCenter .RightFooter = strFootRight End With Else MsgBox "Select the sheet with the " _ & "headers you want to copy," _ & vbCrLf & "then run 'GetHeaders'", _ vbExclamation, "No Headers In Memory" End If End Sub
Bạn thậm chí có thể gán macro cho các nút trên thanh công cụ, nếu muốn, điều này có thể làm cho chúng trở nên thuận tiện hơn trong việc sao chép đầu trang và chân trang.
Nếu bạn có khá nhiều trang tính và sổ làm việc mà bạn muốn sao chép đầu trang và chân trang, có một cách tiếp cận macro khác mà bạn có thể sử dụng. Macro sau sẽ sao chép đầu trang và chân trang từ trang tính hiện hoạt sang tất cả các trang tính khác trong tất cả các sổ làm việc đang mở khác.
Sub CopyHeaderFooter() Dim PS As PageSetup Dim WB As Workbook Dim WS As Worksheet Set PS = ActiveSheet.PageSetup For Each WB In Workbooks For Each WS In WB.Worksheets With WS.PageSetup .LeftHeader = PS.LeftHeader .CenterHeader = PS.CenterHeader .RightHeader = PS.RightHeader .LeftFooter = PS.LeftFooter .CenterFooter = PS.CenterFooter .RightFooter = PS.RightFooter End With Next Next End Sub
Nói cách khác, nếu bạn muốn sao chép đầu trang và chân trang từ trang tính hiện tại sang 150 trang tính khác trải rộng trên 15 sổ làm việc khác nhau, tất cả những gì bạn cần làm là mở 15 sổ làm việc cùng một lúc, hiển thị trang tính nguồn và chạy macro .
_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 (2696) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: