Bỏ qua nội dung chính

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 ý kiến ​​hay3

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 đề.doc-insert-cell-value-to-header1

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:doc-insert-cell-value-to-header1

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ã.

Đô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.

doc-insert-cell-value-to-header1

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:

doc-insert-cell-value-to-header1

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.

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.

Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 
Tải xuống miễn phí
miễn phí đầy đủ tính năng trong 30 ngày

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:
doc kte 1

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.
doc chèn đường dẫn sổ làm việc 1

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

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.



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ờ.

doc chia sổ làm việc

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?

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (9)
No ratings yet. Be the first to rate!
Neil
Neil
This comment was minimized by the moderator on the site
This doesn't appear to make a dynamic link, i.e., the value entered into the header doesn't change when the value of the cell does. So what is the purpose of the VBA code, when a copy/paste will do the same?
Reply
0
0
skyyang
skyyang     Neil
This comment was minimized by the moderator on the site
Hello, Neil,
If you want to link the cell value to the header or footer dynamically, please apply the following VBA code:

Note: You should insert the code into the sheet code not the normal Module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


Please have a try, hope it can help you
Reply
Report
0
0
DJ
DJ     skyyang
This comment was minimized by the moderator on the site
maksudnya bagaimana?
Reply
0
0
Dani
Dani
This comment was minimized by the moderator on the site
Hi,

This appears to only work once.
What if the value of the cell changes?
Is there a way to link the cell so the header changes when the cell value changes?

I have a workbook where I have three sheets.

Sheet 1 labeled "Deletion Sheet" - Sheet we send to the warehouse with info what to palatalize for the order
Sheet 2 labeled "OA" - My order acknowledgement to the customer which pulls most of the data from the first sheet including the Order number which I need to have in my header. So I am trying to link the Header to the cell in this page with the order number (F5) which gets it's value from (C7) in the first work sheet ("Deletion Sheet")
Sheet 3 labeled "Invoice - Invoice which also pulls most of the same information from the first sheet which would also need the header to include the value (F5) of this sheet taken from (C7) in "Deletion Sheet"
Reply
0
0
Mickey
Mickey
This comment was minimized by the moderator on the site
When using your "VBA code: put a specified cell value in header of all worksheets", I would like the value placed to be formatted: Tahoma, bold, in font size 12.
How can this be added to your code?
Reply
0
0
Claire
Claire
This comment was minimized by the moderator on the site
Hi There, Is there a way that you can add a cell value which takes account of applied filters? For example... A1 = Monday A2 = Tuesday A3 = Wednesday. Using the VBA code to display cell A1 will work initially, but once I apply a filter on days of the week, the "top" cell value is no longer A1. Is there a way to pick up the variable? Many thanks,
Reply
0
0
saeid mohammadi
saeid mohammadi
This comment was minimized by the moderator on the site
I want to insert four cells in header.This VB is only for one cell. How can I do it. Thanks
Reply
0
0
Ridhwan
Ridhwan     saeid mohammadi
This comment was minimized by the moderator on the site
You can try Concatenating the value of rht four cells into a single cell and then use the single cell as the header.
Reply
0
0
Jeffrey Hulbert
Jeffrey Hulbert
This comment was minimized by the moderator on the site
I needed to insert an active payroll date range into multiple sheets. The user opens the Payroll Date sheet, enters the date range and before she prints it updates all the sheets in the workbook. Here is how I am able to insert multiple cells into the range with a bit less code 2010 compatible: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup.RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations