Jak umieścić wartość komórki w nagłówku / stopce w programie Excel?
Możemy łatwo wstawić nagłówek lub stopkę zawierającą ścieżkę do pliku, nazwę pliku, aktualną datę lub inne informacje z funkcją Excela, ale czasami chcemy użyć wartości komórki jako nagłówka lub stopki w Excelu. Jak możemy umieścić zawartość komórki w nagłówku lub stopce w skoroszycie?
Umieść wartość komórki w nagłówku lub stopce arkusza z kodem VBA
Umieść wartość komórki w nagłówku lub stopce wszystkich arkuszy z kodem VBA
Wstaw informacje o pliku do nagłówka / stopki za pomocą Kutools for Excel
Umieść wartość komórki w nagłówku lub stopce arkusza z kodem VBA
Jeśli chcesz umieścić zawartość komórki w nagłówku lub stopce bieżącego arkusza roboczego, może Ci pomóc poniższy kod VBA. Wykonaj następujące czynności:
1. Aktywuj arkusz roboczy, do którego chcesz wstawić herder lub stopkę z wartością komórki, a następnie przytrzymaj klawisz ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2.Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
Kod VBA: umieść określoną wartość komórki w nagłówku arkusza
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. Następnie naciśnij F5 Aby uruchomić ten kod, pojawi się okno dialogowe przypominające o wybraniu komórki, w której chcesz umieścić jej zawartość w nagłówku.
4. A następnie kliknij OK, ta określona wartość komórki została wstawiona do lewego nagłówka bieżącego arkusza. Możesz wyświetlić nagłówek, klikając filet > . Zobacz zrzut ekranu:
Uwagi:
1. Jeśli chcesz użyć zawartości komórki jako stopki aktywnego arkusza, możesz zastosować ten kod:
Kod VBA: umieść określoną wartość komórki w stopce arkusza
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. Możesz również zastosować powyższe kody do wstawienia wartości komórki do prawego nagłówka / stopki lub środkowego nagłówka / stopki, po prostu zastąp Lewy nagłówek / Lewa stopka w Prawy nagłówek / Prawa stopka or Nagłówek środkowy / Środkowy Stopka w kodach.
Umieść wartość komórki w nagłówku lub stopce wszystkich arkuszy z kodem VBA
Czasami chcesz wstawić nagłówek lub stopkę z zawartością wybranej komórki do wszystkich arkuszy roboczych twojego otwierającego skoroszytu, z powyższym kodem, musisz je powtarzać raz za razem. W takim przypadku poniższy kod VBA może jednocześnie dodać zawartość komórki do herdera lub stopki całego skoroszytu.
1. Aktywuj skoroszyt, do którego chcesz wstawić pasterz lub stopkę z wartością komórki, a następnie przytrzymaj klawisz ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: umieść określoną wartość komórki w stopce wszystkich arkuszy
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. Następnie naciśnij F5 Aby wykonać ten kod, pojawi się okno dialogowe przypominające o wybraniu komórki, której zawartość chcesz umieścić w stopce całego skoroszytu.
4. A następnie kliknij OK, ta wybrana wartość komórki została dodana do lewej stopki wszystkich arkuszy. Możesz wyświetlić stopkę, klikając filet > . Zobacz zrzut ekranu:
Uwagi:
1. Jeśli chcesz użyć zawartości komórki jako nagłówka całego skoroszytu, możesz zastosować ten kod:
Kod VBA: umieść określoną wartość komórki w nagłówku wszystkich arkuszy
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. Zastępstwo RightHeader / Footer or CenterHeader / Footer dla LeftHeader / Footer w powyższych kodach, jeśli chcesz, aby Twój nagłówek lub stopka były inaczej ustawione.
Wstaw informacje o pliku do nagłówka / stopki za pomocą Kutools for Excel
Jeśli chcesz wstawić informacje o filerze do nagłówka lub stopki, takie jak nazwa arkusza / skoroszytu, ścieżka skoroszytu itp., Możesz użyć Kutools dla programu Excel'S Wstaw informacje ze skoroszytu narzędzie, jeśli zainstalowałeś Kutools for Excel.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. | ||
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. kliknij Kutools Plus > skoroszyt > Wstaw informacje ze skoroszytu. Zobacz zrzut ekranu:
2. w Wstaw informacje ze skoroszytu w oknie dialogowym sprawdź informacje, które chcesz wstawić pod Informacja sekcję i sprawdź Nagłówek or Footer jak chcesz.
Wskazówka: możesz wstawić informacje w trzech miejscach nagłówka lub stopki: na środku, w lewo lub w prawo.
3. kliknij Ok. Wtedy możesz iść do Zobacz i wysłuchaj > Układ strony aby wyświetlić nagłówek.
Wstawianie informacji ze skoroszytu umożliwia również wstawianie informacji o pliku do komórki lub zakresu komórek. Kliknij tutaj, aby dowiedzieć się więcej o tym narzędziu.
Wstaw informacje ze skoroszytu w komórce / nagłówku / stopce
Podobne artykuły:
Jak wstawić nazwę pliku lub ścieżkę do komórki / nagłówka lub stopki w programie Excel?
Jak wstawiać i usuwać nagłówek, stopkę i obraz nagłówka w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!