Note: The other languages of the website are Google-translated. Back to English

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 dobry pomysł 3


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.dokument-wstaw-wartość-komórki-do-nagłówka1

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:dokument-wstaw-wartość-komórki-do-nagłówka1

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 z Prawy nagłówek / Prawa stopka or Nagłówek środkowy / Środkowy Stopka w kodach.


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.

dokument-wstaw-wartość-komórki-do-nagłówka1

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:

dokument-wstaw-wartość-komórki-do-nagłówka1

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.


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:
dokumentacja 1

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.
doc wstaw ścieżkę do skoroszytu 1

3. kliknij Ok. Wtedy możesz iść do Zobacz i wysłuchaj > Układ strony aby wyświetlić nagłówek.
dokumentacja 3

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.



Wskazówka.Jeśli chcesz szybko podzielić skoroszyt na wiele skoroszytów / plików pdf lub plików csv osobno, spróbuj użyć Kutools dla Excela Podziel skoroszyt jak pokazano na poniższym zrzucie ekranu. To pełna funkcja bez ograniczeń 30 dni, pobierz i wypróbuj teraz bezpłatną wersję próbną.

skoroszyt podzielony na dokumenty

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

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (9)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Musiałem wstawić aktywny zakres dat listy płac do wielu arkuszy. Użytkownik otwiera arkusz Data listy płac, wprowadza zakres dat i przed wydrukowaniem aktualizuje wszystkie arkusze w skoroszycie. Oto jak mogę wstawić wiele komórek do zakresu z nieco mniejszym kodem zgodnym z 2010: 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("'Data rozliczenia"!A1").Value & vbCr & Range("'Data rozliczenia'!A2").Value Następny koniec Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Chcę wstawić cztery komórki w header.This VB jest tylko dla jednej komórki. Jak mogę to zrobić. Dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Możesz spróbować połączyć wartość czterech komórek rht w pojedynczą komórkę, a następnie użyć pojedynczej komórki jako nagłówka.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Czy istnieje sposób na dodanie wartości komórki, która uwzględnia zastosowane filtry? Na przykład... A1 = poniedziałek A2 = wtorek A3 = środa. Używanie kodu VBA do wyświetlania komórki A1 będzie początkowo działać, ale gdy zastosuję filtr w dni tygodnia, „górna” wartość komórki nie będzie już A1. Czy istnieje sposób na pobranie zmiennej? Wielkie dzięki,
Ten komentarz został zminimalizowany przez moderatora na stronie
Korzystając z „kodu VBA: umieść określoną wartość komórki w nagłówku wszystkich arkuszy”, chciałbym, aby umieszczana wartość była sformatowana: Tahoma, pogrubiona, czcionką o rozmiarze 12.
Jak można to dodać do kodu?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,

Wydaje się, że działa to tylko raz.
Co się stanie, jeśli zmieni się wartość komórki?
Czy istnieje sposób na połączenie komórki, aby nagłówek zmieniał się, gdy zmienia się wartość komórki?

Mam skoroszyt, w którym mam trzy arkusze.

Arkusz 1 oznaczony "Arkusz usuwania" - Arkusz wysyłamy do magazynu z informacją, co zmiękczyć dla zamówienia
Arkusz 2 oznaczony "OA" - Potwierdzenie mojego zamówienia dla klienta, które pobiera większość danych z pierwszego arkusza, w tym numer zamówienia, który muszę mieć w nagłówku. Próbuję więc połączyć nagłówek z komórką na tej stronie z numerem zamówienia (F5), który pobiera swoją wartość z (C7) w pierwszym arkuszu roboczym ("Arkusz usuwania")
Arkusz 3 oznaczony „Faktura — faktura, który również pobiera większość tych samych informacji z pierwszego arkusza, który również wymagałby nagłówka zawierającego wartość (F5) tego arkusza pobraną z (C7) w „Arkuszu usuwania”
Ten komentarz został zminimalizowany przez moderatora na stronie
To nie wydaje się tworzyć dynamicznego łącza, tj. wartość wprowadzona do nagłówka nie zmienia się, gdy zmienia się wartość komórki. Jaki jest więc cel kodu VBA, kiedy kopiowanie/wklejanie zrobi to samo?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Neilu,
Jeśli chcesz dynamicznie połączyć wartość komórki z nagłówkiem lub stopką, zastosuj następujący kod VBA:

Uwagi: Powinieneś wstawić kod do kodu arkusza, a nie do normalnego modułu.
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


Spróbuj, mam nadzieję, że może ci to pomóc
Ten komentarz został zminimalizowany przez moderatora na stronie
maksudnya bagaimana?
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL