Chèn đầu trang và chân trang bằng VBA trong Microsoft Excel 2010

Posted on: 2020年11月13日 2020年11月13日
Tags: printing-in-vba

Nếu bạn muốn chèn thông tin nhất định vào đầu trang / chân trang của trang tính như tên tệp / đường dẫn tệp hoặc ngày hoặc số trang hiện tại, bạn có thể thực hiện bằng cách sử dụng mã bên dưới. Nếu chỉ là một trang tính, bạn có thể thực hiện theo cách thủ công, nhưng nếu đó là nhiều trang tính hoặc tất cả các trang tính trong sổ làm việc cần thông tin này để điền, bạn có thể thực hiện việc này bằng cách sử dụng vba macro / code đơn giản.

Macro mẫu này sẽ chèn đầu trang / chân trang trong mọi trang tính trong sổ làm việc đang hoạt động. Nó cũng sẽ chèn đường dẫn hoàn chỉnh đến sổ làm việc.

Option Explicit

Sub InsertHeaderFooter()

Dim wsAs Worksheet

Application.ScreenUpdating = False

Each wsInThisWorkbook.Worksheets

With ws.PageSetup

.LeftHeader = “Company Name:”

.CenterHeader = “Page &P of &N”

.RightHeader = “Printed &D &T”

.LeftFooter = “Path : “ &ActiveWorkbook.Path

.CenterFooter = “Workbook Name: & F”

.RightFooter = “Sheet: &A”

End With

Next ws

Set ws = Nothing

Application.ScreenUpdating = True

End Sub

Để sao chép mã này vào sổ làm việc của bạn, hãy nhấn Alt + F11 trên bàn phím của bạn.

Sau đó, ở phía bên tay trái, bạn sẽ thấy Microsoft Excel Objects. Nhấp chuột phải và chọn Chèn. Sau đó nhấp vào Mô-đun và sao chép mã này vào cửa sổ mã bên phải.

Hãy chia nhỏ từng phần của mã – Chúng ta bắt đầu với câu lệnh Dim thông thường, nơi chúng ta khai báo các biến.

Trong trường hợp này, chúng ta chỉ có 1 biến – ws cho trang tính. Sau đó, chúng tôi tắt cập nhật màn hình.

Bây giờ, trong vòng lặp FOR, chúng ta lặp qua từng trang tính trong sổ làm việc có chứa macro. Và chúng tôi thiết lập từng tham số trong Thiết lập trang. & P, & N, & D, & T, & F và & A là các mã định dạng nhất định có thể được áp dụng cho đầu trang và chân trang. & P in số trang. & N in tổng số trang trong tài liệu. & D in ngày hiện tại. & T in thời gian hiện tại. & F in tên của tài liệu và & A in tên của tab sổ làm việc.

Cuối cùng, chúng tôi đặt trang tính không có gì và giải phóng đối tượng và bật cập nhật màn hình.

Đây là 2 hình ảnh. 1 ^ st ^ một hiển thị cho bạn đầu trang và 2 ^ nd ^ một là chân trang sau khi macro đã được chạy.

Tiêu đề có nhãn Tên công ty. Tên chưa được nhập vì chúng tôi chưa liên kết nó với bất kỳ ô nào hoặc được đưa vào bất kỳ văn bản nào cho Tên công ty. Nếu bạn nhập bất kỳ thứ gì vào mã hoặc trong trang tính excel và tham chiếu nó, thì tên sẽ được chọn và điền tại đây.

Trang số 0 cho thấy hiện tại chúng tôi có 0 trang trong tệp, vì chúng tôi đã chạy mã này trên tệp trống. Nếu bạn chạy mã này trên một tệp chứa dữ liệu, nó sẽ hiển thị cho bạn số trang.

In <Ngày> <Thời gian> cung cấp cho bạn ngày và giờ macro được chạy cùng với văn bản “Đã in”.

Trong Footer, nhãn Path sẽ hiển thị cho bạn đường dẫn của tệp hiện tại.

Tên tệp của chúng tôi là Book1.xlsx hiện là tệp chưa được lưu. Do đó không có đường dẫn nào hiển thị cho nhãn Đường dẫn.

Số trang tính được điền ở bên phải của chân trang.

Nếu bạn thích blog của chúng tôi, hãy chia sẻ nó với bạn bè của bạn trên Facebook. Và bạn cũng có thể theo dõi chúng tôi trên Twitter và Facebook.

Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện, bổ sung hoặc đổi mới công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi tại [email protected]