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
VBA kodu ile bir çalışma sayfasının üstbilgisine veya altbilgisine hücre değeri koyun
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.
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:
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.
VBA kodu ile tüm çalışma sayfalarının üstbilgisine veya altbilgisine hücre değeri koyun
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.
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:
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.
Kutools for Excel ile dosya bilgilerini üstbilgi / altbilgiye ekleyin
Ü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:
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ğ.
3. tık Ok. O zaman gidebilirsin Görüntüle > Sayfa Düzeni başlığı görüntülemek için.
Ç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.
Çalışma kitabı bilgilerini hücre / üstbilgi / altbilgiye ekle
İ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 Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!