Dosya simgesi

Excel'de Kapatma Mesajı

Bu dosya, çalışma kitabı kapatılırken kullanıcıya otomatik olarak bir mesaj kutusu gösteren makro örneğidir. Kapatma mesajı vermek isteyenler için kodu ve çalışma yapısını tek bir sayfada sunar.

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

Dosyanın içeriği​

  • Sheet1: F2 hücresinde "Resme Tıklat" yazısı bulunur. F10 hücresinde ise dosyanın adı formülle gösterilir.
  • Module1: İki prosedür içeren VBA modülüdür: auto_close ve FileName.

Kullanılan formüller​

F10 hücresinde, dosyanın adını veren özel fonksiyon çağrılır:
Excel formülü
=FileName()
Bu fonksiyon Excel'in yerleşik fonksiyonu değil, modüldeki FileName işlevidir. Sonuç olarak açık olan çalışma kitabının adı (uzantısıyla birlikte) hücreye yazılır.

Makrolar​

  • auto_close: Çalışma kitabı kapatılırken otomatik olarak çalışır. Ekranda MsgBox ile bir veda mesajı gösterilir; mesajda ExcelDepo'ya eklenen dosyaları incelemeye yönelik bir hatırlatma yer alır. Elle çalıştırmak gerekmez.
  • FileName: ThisWorkbook.Name değerini döndüren işlevdir. F10 hücresindeki formül bu işlevi kullanır.
Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem yoktur; yalnızca mesaj kutusu gösterilir ve dosya adı okunur.

Nasıl kullanılır​

  1. Dosyayı açın ve makroları etkinleştirin.
  2. Sheet1 sayfasında F10 hücresinde dosya adının göründüğünü kontrol edin.
  3. Dosyayı kapatın; kapanırken mesaj kutusu görüntülenir.
  4. Kendi dosyanızda kullanmak için Alt+F11 ile VBA düzenleyicisini açın, auto_close prosedürünü kendi çalışma kitabınızdaki bir modüle kopyalayın ve MsgBox içindeki metni değiştirin.
  5. Dosyayı makro içerebilen biçimde (.xlsm) kaydedin.

ExcelDepo tarafından daha fazla dosya

Detaylar
Yazar
ExcelDepo
İndirme
18
Gösterim
2,333
İlk sürüm
Güncel
SHA-256
3cae516bc7bed213da0062c5ebf2b2cc7ef9fe02b4cb3f2bf4d3eeff9570c02c

Puanlar

5.00 Oylama 1 İnceleme

En son değerlendirmeler

Çok teşekkür ederim, elinize sağlık.
Geri
Üst