Dosya adı / dosya yolu veya geçerli tarih veya sayfa numarası gibi çalışma sayfasının üstbilgi / altbilgisine belirli bilgileri eklemek istiyorsanız, bunu aşağıdaki kodu kullanarak yapabilirsiniz. Yalnızca bir çalışma sayfasıysa, bunu manuel olarak yapabilirsiniz, ancak bu bilgilerin doldurulması gereken birden çok sayfa veya çalışma kitabındaki tüm sayfalarsa, bunu basit bir vba makrosu / kodu kullanarak yapabilirsiniz.
Bu örnek makro, etkin çalışma kitabındaki her çalışma sayfasına bir üstbilgi/altbilgi ekleyecektir. Ayrıca çalışma kitabının tam yolunu da ekleyecektir.
Seçenek Explicit Sub InsertHeaderFooter() Dim wsAs Worksheet Application.ScreenUpdating = False Her wsInThisWorkbook.Worksheets with ws.PageSetup .LeftHeader = “Şirket Adı:” .CenterHeader = “Sayfa &P of &N” .RightHeader &D =”Ter “Yol : “ &ActiveWorkbook.Path .CenterFooter = “Çalışma Kitabı Adı: & F” .RightFooter = “Sayfa: &A” Sonraki ws Set ws = Hiçbir Şey Uygulaması ile Bitiş.ScreenUpdating = True End Sub
Bu kodu çalışma kitabınıza kopyalamak için klavyenizde Alt + F11 tuşlarına basın. Ardından sol tarafta Microsoft Excel Nesneleri göreceksiniz. Sağ tıklayın ve Ekle'yi seçin. Ardından Modül'e tıklayın ve bu kodu sağdaki kod penceresine kopyalayın.
Kodun her bir parçasını parçalayalım -
Değişkenleri bildirdiğimiz olağan Dim ifadesiyle başlıyoruz. Bu durumda, çalışma sayfası için sadece 1 değişkenimiz var - ws. Ardından ekran güncellemesini devre dışı bırakıyoruz.
Şimdi, FOR döngüsünde, çalışma kitabındaki makroyu içeren her bir çalışma sayfasında dolaşıyoruz. Ve her parametreyi Sayfa Yapısında ayarlıyoruz. &P, &N, &D, &T, &F ve &A, üstbilgilere ve altbilgilere uygulanabilen belirli biçim kodlarıdır. &P sayfa numarasını yazdırır. &N, belgedeki toplam sayfa sayısını yazdırır. &D geçerli tarihi yazdırır. &T geçerli saati yazdırır. &F, belgenin adını yazdırır ve &A, çalışma kitabı sekmesinin adını yazdırır.
Sonunda, çalışma sayfasını hiçbir şeye ayarladık ve nesneyi serbest bıraktık ve ekran güncellemesini etkinleştirdik.
İşte 2 resim. 1NS biri size başlığı ve 2'yi gösterirnd makro çalıştırıldıktan sonraki altbilgi.
Başlıkta Şirket Adı etiketi bulunur. Şirket Adı için herhangi bir hücreye bağlanmadığımız veya herhangi bir metinle beslenmediğimiz için ad henüz girilmemiştir. Eğer koda veya excel sayfasına herhangi bir şey girerseniz ve buna referans verirseniz, isim alınır ve burada doldurulur.
Sayfa # / 0, bu kodu boş bir dosyada çalıştırdığımız için şu anda dosyada 0 sayfamız olduğunu gösteriyor. Bu kodu veri içeren bir dosya üzerinde çalıştırırsanız, size sayfa numarasını gösterecektir.
Yazdırıldı, size makronun çalıştırıldığı tarih ve saati "Yazdırıldı" metniyle birlikte verir.
Altbilgide, Yol etiketi size geçerli dosyanın yolunu gösterecektir.
Dosya adımız şu anda kaydedilmemiş bir dosya olan Book1.xlsx. Bu nedenle, Yol etiketi için görünen bir yol yoktur.
Sayfa numarası, altbilginin sağında doldurulur.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın