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

Excel'de üstbilgi / altbilgiye hücre değeri nasıl eklenir?

Excel'in özelliği ile dosya yolunu, dosya adını, geçerli tarihi veya diğer bilgileri içeren üstbilgi veya altbilgiyi kolayca ekleyebiliriz, ancak bazen Excel'de üstbilgi veya altbilgi olarak bir hücre değeri kullanmak istiyoruz. Çalışma kitabındaki bir hücrenin içeriğini üstbilgi veya altbilgiye nasıl yerleştirebiliriz?

VBA kodu ile bir çalışma sayfasının üstbilgisine veya altbilgisine hücre değeri koyun

VBA kodu ile tüm çalışma sayfalarının üstbilgisine veya altbilgisine hücre değeri koyun

Kutools for Excel ile dosya bilgilerini üstbilgi / altbilgiye ekleyin iyi fikir3


Geçerli çalışma sayfasının üstbilgisine veya altbilgisine bir hücre içeriği yerleştirmek istiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir. Lütfen aşağıdaki adımları uygulayın:

1. Herder veya altbilgi eklemek istediğiniz çalışma sayfanızı bir hücre değeri ile etkinleştirin, ardından ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2.Tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: bir çalışma sayfasının başlığına belirli bir hücre değeri koyun

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basarsanız, içeriğini başlığa yerleştirmek istediğiniz bir hücreyi seçmenizi hatırlatan bir iletişim kutusu açılır.doc-insert-cell-value-to-header1

4. Ve sonra tıklayın OK, bu belirtilen hücre değeri, geçerli çalışma sayfasının sol başlığına eklenmiştir. Başlığı tıklayarak görüntüleyebilirsiniz. fileto > Print . Ekran görüntüsüne bakın:doc-insert-cell-value-to-header1

Notlar:

1. Hücre içeriğini etkin çalışma sayfasının altbilgisi olarak kullanmak istiyorsanız, bu kodu uygulayabilirsiniz:

VBA kodu: bir çalışma sayfasının altbilgisine belirli bir hücre değeri koyun

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. Hücre değerini sağ üstbilgi / altbilgi veya orta üstbilgi / altbilgiye eklemek için yukarıdaki kodları da uygulayabilirsiniz, Sol Başlık / Sol Ayak ile Sağ Başlık / Sağ Ayak or Orta Başlık / OrtaAltbilgi kodlarda.


Bazen, açılış çalışma kitabınızın tüm çalışma sayfalarına seçilen hücrenin içeriğini içeren üstbilgi veya altbilgi eklemek istersiniz, yukarıdaki kodla, bunları defalarca tekrarlamanız gerekir. Bu durumda, aşağıdaki VBA kodu, hücre içeriğini aynı anda tüm çalışma kitabının herderine veya altbilgisine ekleyebilir.

1. Herder veya altbilgi eklemek istediğiniz çalışma kitabınızı bir hücre değeriyle etkinleştirin ve ardından ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: tüm çalışma sayfalarının altbilgisine belirli bir hücre değeri koyun

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basarsanız, içeriğini tüm çalışma kitabının altbilgisine yerleştirmek istediğiniz bir hücreyi seçmenizi hatırlatan bir iletişim kutusu açılır.

doc-insert-cell-value-to-header1

4. Ve sonra tıklayın OK, bu seçilen hücre değeri tüm çalışma sayfalarının sol altbilgisine eklendi. Altbilgiyi tıklayarak görüntüleyebilirsiniz. fileto > Print . Ekran görüntüsüne bakın:

doc-insert-cell-value-to-header1

Notlar:

1. Hücre içeriğini tüm çalışma kitabının başlığı olarak kullanmak istiyorsanız, şu kodu uygulayabilirsiniz:

VBA kodu: tüm çalışma sayfalarının başlığına belirli bir hücre değeri koyun

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. Yedek Sağ Üstbilgi / Altbilgi or CenterHeader / Footer için Sol Üstbilgi / Altbilgi üstbilginizin veya altbilginizin farklı şekilde konumlandırılmasını istiyorsanız yukarıdaki kodlarda.


Üstbilgi veya altbilgiye çalışma sayfası / çalışma kitabı adı, çalışma kitabı yolu vb. Gibi dosya bilgileri eklemek istiyorsanız, Kutools for Excel'S Çalışma Kitabı Bilgilerini Ekleyin Kutools for Excel'i yüklediyseniz yardımcı program.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. tık Kutools Artı > alıştırma kitabı > Çalışma Kitabı Bilgilerini Ekleyin. Ekran görüntüsüne bakın:
doktor kte 1

2. içinde Çalışma Kitabı Bilgilerini Ekleyin iletişim kutusunun altına eklemeniz gereken bilgileri kontrol edin Bilgi bölümü ve kontrol edin üstbilgi or Altbilgi istediğiniz gibi.

Bahşiş: bilgileri üstbilgi veya altbilginin üç konumuna ekleyebilirsiniz: merkez, sol veya sağ.
doc çalışma kitabı ekleme yolu 1

3. tık Ok. O zaman gidebilirsin Görüntüle > Sayfa Düzeni başlığı görüntülemek için.
doktor kte 3

Çalışma Kitabı Bilgisi Ekle ile, bir hücreye veya bir hücre aralığına dosya bilgileri de ekleyebilirsiniz. Bu yardımcı program hakkında daha fazla bilgi edinmek için burayı tıklayın.



İpucu.Bir çalışma kitabını hızlı bir şekilde birden çok çalışma kitabına / pdf dosyasına veya csv dosyasına ayrı ayrı bölmek istiyorsanız, lütfen Kutools for Excel'i kullanmayı deneyin. Çalışma Kitabını Böl aşağıdaki ekran görüntüsünde gösterildiği gibi. Sınırlama olmaksızın tam işlevseldir 30 gün, lütfen şimdi indirin ve ücretsiz deneme yapın.

belge bölme çalışma kitabı

İlgili yazılar:

Excel'de hücre / üstbilgi veya altbilgiye dosya adı veya yolu nasıl eklenir?

Excel'de üstbilgi, altbilgi ve üstbilgi resmi nasıl eklenir ve silinir?


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (9)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Birden çok sayfaya aktif bir bordro tarih aralığı eklemem gerekiyordu. Kullanıcı Bordro Tarihi sayfasını açar, tarih aralığını girer ve yazdırmadan önce çalışma kitabındaki tüm sayfaları günceller. 2010 uyumlu biraz daha az kodla aralığa birden çok hücreyi şu şekilde ekleyebiliyorum: Private Sub Workbook_BeforePrint(Boolean Olarak İptal Et) Dim WorkRng As Range On Error On Her ws İçin Devam Et Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Aralık("'Bordro Tarihi'!A1").Value & vbCr & Range("'Bordro Tarihi'!A2").Value Next End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Başlığa dört hücre eklemek istiyorum. Bu VB sadece bir hücre içindir. Nasıl yapabilirim. teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
rht dört hücrenin değerini tek bir hücrede birleştirmeyi deneyebilir ve ardından tek hücreyi başlık olarak kullanabilirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Uygulanan filtreleri hesaba katan bir hücre değeri eklemenin bir yolu var mı? Örneğin... A1 = Pazartesi A2 = Salı A3 = Çarşamba. A1 hücresini görüntülemek için VBA kodunu kullanmak başlangıçta işe yarayacak, ancak haftanın günlerinde bir filtre uyguladığımda "en üst" hücre değeri artık A1 değil. Değişkeni almanın bir yolu var mı? Çok teşekkürler,
Bu yorum sitedeki moderatör tarafından en aza indirildi
"VBA kodunuzu: tüm çalışma sayfalarının başlığına belirli bir hücre değeri koyun" seçeneğini kullanırken, yerleştirilen değerin biçimlendirilmesini istiyorum: Tahoma, kalın, yazı tipi boyutu 12.
Bu, kodunuza nasıl eklenebilir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Bu sadece bir kez çalışıyor gibi görünüyor.
Hücrenin değeri değişirse ne olur?
Hücre değeri değiştiğinde başlığın değişmesi için hücreyi bağlamanın bir yolu var mı?

Üç sayfam olan bir çalışma kitabım var.

"Silme Sayfası" etiketli Sayfa 1 - Sipariş için neyin tadına bakılacağı bilgisini içeren depoya gönderdiğimiz sayfa
"OA" etiketli Sayfa 2 - Başlığımda bulunması gereken Sipariş numarası da dahil olmak üzere verilerin çoğunu ilk sayfadan çeken müşteriye sipariş onayım. Bu yüzden, Başlığı bu sayfadaki hücreye, ilk çalışma sayfasındaki ("Silme Sayfası") (C5) değerini alan sipariş numarası (F7) ile bağlamaya çalışıyorum.
Sayfa 3 etiketli "Fatura - Aynı bilgilerin çoğunu ilk sayfadan da çeken ve aynı zamanda "Silme Sayfası"nda (C5)'den alınan bu sayfanın değerini (F7) dahil etmek için başlığa ihtiyaç duyacak olan Fatura
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunun dinamik bir bağlantı oluşturduğu görülmez, yani, hücrenin değeri değiştiğinde başlığa girilen değer değişmez. Peki, bir kopyala/yapıştır aynı şeyi yaptığında VBA kodunun amacı nedir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Nil,
Hücre değerini üstbilgiye veya altbilgiye dinamik olarak bağlamak istiyorsanız, lütfen aşağıdaki VBA kodunu uygulayın:

not: Kodu normal Modüle değil sayfa koduna girmelisiniz.
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


Lütfen bir deneyin, umarım size yardımcı olabilir
Bu yorum sitedeki moderatör tarafından en aza indirildi
maksudnya bagaimana?
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır