Làm thế nào để đặt giá trị ô trong đầu trang / chân trang trong Excel?

Chúng tôi có thể dễ dàng chèn đầu trang hoặc chân trang chứa đường dẫn tệp, tên tệp, ngày hiện tại hoặc thông tin khác bằng tính năng của Excel, nhưng đôi khi, chúng tôi muốn sử dụng giá trị ô làm đầu trang hoặc chân trang trong Excel. Làm cách nào chúng ta có thể đưa nội dung của ô vào đầu trang hoặc chân trang trong sổ làm việc?

Đặt giá trị ô vào đầu trang hoặc chân trang của trang tính với mã VBA

Đặt giá trị ô vào đầu trang hoặc chân trang của tất cả các trang tính bằng mã VBA

Chèn thông tin tệp vào đầu trang / chân trang với Kutools cho Excel

Đặt giá trị ô vào đầu trang hoặc chân trang của trang tính với mã VBA

Nếu bạn muốn đặt nội dung ô trong đầu trang hoặc chân trang của trang tính hiện tại, mã VBA sau có thể giúp bạn. Vui lòng thực hiện theo các bước sau:

1. Kích hoạt trang tính của bạn mà bạn muốn chèn phần mã hoặc chân trang với một giá trị ô, sau đó nhấn giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2.Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: đặt một giá trị ô được chỉ định trong tiêu đề của trang tính

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. Sau đó nhấn F5 để chạy mã này, một hộp thoại sẽ bật ra để nhắc bạn chọn một ô mà bạn muốn đưa nội dung của nó vào tiêu đề.

4. Và sau đó nhấp vào OK, giá trị ô được chỉ định này đã được chèn vào tiêu đề bên trái của trang tính hiện tại. Bạn có thể xem tiêu đề bằng cách nhấp vào Tập tin > In. Xem ảnh chụp màn hình:

Ghi chú:

1. Nếu bạn muốn sử dụng nội dung ô làm chân trang của trang tính đang hoạt động, bạn có thể áp dụng mã này:

Mã VBA: đặt một giá trị ô đã chỉ định ở chân trang của trang tính

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2. Bạn cũng có thể áp dụng các mã trên để chèn giá trị ô vào đầu trang / chân trang bên phải hoặc đầu trang / chân trang ở giữa, chỉ cần thay thế Tiêu đề bên trái / Chân trái với tiêu đề bên phải / Chân phải or Tiêu đề trung tâm / Trung tâmFooter trong các mã.

Đặt giá trị ô vào đầu trang hoặc chân trang của tất cả các trang tính bằng mã VBA

Đôi khi, bạn muốn chèn đầu trang hoặc chân trang với nội dung của ô đã chọn vào tất cả các trang tính của sổ làm việc đang mở của mình, với đoạn mã trên, bạn cần lặp lại chúng nhiều lần. Trong trường hợp này, mã VBA sau có thể thêm nội dung ô vào phần xếp hoặc chân trang của toàn bộ sổ làm việc cùng một lúc.

1. Kích hoạt sổ làm việc của bạn mà bạn muốn chèn phần đệm hoặc chân trang với một giá trị ô, sau đó nhấn giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: đặt một giá trị ô được chỉ định ở chân trang của tất cả các trang tính

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. Sau đó nhấn F5 để thực thi mã này, một hộp thoại sẽ bật ra để nhắc bạn chọn một ô mà bạn muốn đưa nội dung của nó vào chân trang của toàn bộ sổ làm việc.

4. Và sau đó nhấp vào OK, giá trị ô đã chọn này đã được thêm vào chân trang bên trái của tất cả các trang tính. Bạn có thể xem chân trang bằng cách nhấp vào Tập tin > In. Xem ảnh chụp màn hình:

Ghi chú:

1. Nếu bạn muốn sử dụng nội dung ô làm tiêu đề của toàn bộ sổ làm việc, bạn có thể áp dụng mã này:

Mã VBA: đặt một giá trị ô được chỉ định trong tiêu đề của tất cả các trang tính

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2. Thay thế RightHeader / Footer or CenterHeader / Footer cho LeftHeader / Footer trong các mã trên nếu bạn muốn đầu trang hoặc chân trang của mình được định vị khác.

Chèn thông tin tệp vào đầu trang / chân trang với Kutools cho Excel

Nếu bạn muốn chèn thông tin bộ lọc vào đầu trang hoặc chân trang, chẳng hạn như tên trang tính / sổ làm việc, đường dẫn sổ làm việc, v.v., bạn có thể sử dụng Kutools cho Excel'S Chèn thông tin sổ làm việc tiện ích nếu bạn đã cài đặt Kutools cho Excel.

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. nhấp chuột Kutools Plus > Bảng tính > Chèn thông tin sổ làm việc. Xem ảnh chụp màn hình:

2. bên trong Chèn thông tin sổ làm việc hộp thoại, kiểm tra thông tin bạn cần để chèn dưới Thông tin phần và kiểm tra Tiêu đề or Footer như bạn muốn.

Mẹo: bạn có thể chèn thông tin ở ba vị trí của đầu trang hoặc chân trang: giữa, trái hoặc phải.

3. nhấp chuột Ok. Sau đó, bạn có thể đi đến Xem > Page Layout để xem tiêu đề.

Với Chèn thông tin sổ làm việc, bạn cũng có thể chèn thông tin tệp vào một ô hoặc một dải ô. Nhấn vào đây để biết thêm về tiện ích này.

Bản demo: Chèn thông tin sổ làm việc vào ô/đầu trang/chân trang

Tiền boa.Nếu bạn muốn nhanh chóng chia sổ làm việc thành nhiều sổ làm việc / tệp pdf hoặc tệp csv riêng biệt, hãy thử sử dụng Kutools cho Excel's Chia sổ làm việc như thể hiện trong ảnh chụp màn hình sau. Nó có đầy đủ chức năng không giới hạn trong 30 ngày, vui lòng tải xuống và dùng thử miễn phí ngay bây giờ.

Các bài liên quan:

Làm cách nào để chèn tên tệp hoặc đường dẫn vào ô / đầu trang hoặc chân trang trong Excel?

Làm cách nào để chèn và xóa ảnh đầu trang, chân trang và đầu trang trong Excel?