Makro ile Özel Alt Bilgi Ekleme

Bu dosya, Excel VBA ile yazdırılan sayfalara otomatik alt bilgi eklemeyi gösteren makrolu bir örnektir. Alt bilgi, çalışma kitabı her açıldığında makro tarafından yeniden ayarlanır; böylece sayfa sonu mesajı elle girilmez.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: E4:E33 aralığında veri bulunan tek çalışma sayfasıdır. Alt bilgi ayarı bu sayfanın sayfa yapısına uygulanır.
• BuÇalışmaKitabı modülü: İçinde Workbook_Open olayını barındıran belge modülüdür.

Makrolar​

• Workbook_Open: Dosya açıldığında kendiliğinden çalışır. Sayfa1 için PageSetup.RightFooter özelliğini ayarlayarak sağ alt bilgiye Segoe UI yazı tipinde, kalın ve 8 punto bir metin yazar. Metin, Format(Now(), "dd mmmm yyyy dddd") ifadesiyle üretilen günün tarihini (gün, ay adı, yıl ve gün adı) ve "ExcelDepo tarafından üretilmiştir" ifadesini içerir.
• Makro dosya silme ya da dışarıya bağlantı gibi bir işlem yapmaz; yalnızca sayfa yapısındaki alt bilgi ayarını değiştirir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1 üzerinde yazdırma önizlemesini açın veya yazdırın; sağ alt bilgide günün tarihi ve mesaj görünür.
3. Yazı tipini, boyutunu veya mesajı değiştirmek için Alt+F11 ile VBA düzenleyicisini açın, BuÇalışmaKitabı modülündeki Workbook_Open satırını düzenleyin.
4. Aynı yapıyı kendi çalışmanızda kullanmak için Sayfa1 adını kendi sayfanızın koduyla değiştirin ve prosedürü kendi dosyanızın BuÇalışmaKitabı modülüne ekleyin; dosyayı .xlsm olarak kaydedin.