Excelde Eşek Şakası

Herşey çok monoton gidiyor ve siz heyecan istiyorsanız bu şaka tam sizin için!

Hafta içi her sabah 8.30 da bilgisayarını açıp 8.45’ te exceli açan iş arkaşınıza , excelde proje yapan ev arkadaşınıza, veya pek hoşlanmadığınız birisine bu şakayı yapabilirsiniz. 🙂

Şaka kişi exceli açtıktan 20 saniye sonra exceli kapatıyor ve kaydedip kaydetmeyeceğini kullanıcıya sormuyor.  Kodları vermeden önce biraz özel yordamları inceleyelim.

Excel auto_open, auto_close, on time, onkey  gibi hazır özel yordamlara sahiptir.

Auto_Open:

Excel açıldığında yapılması istenilen komutları otomatik olarak çalıştıran yordamdır.

Örnek:

Sub auto_open()
Msgbox “Hoşgeldiniz” // Excel çalıştığında ekrana hoş geldiniz yazar.
End sub

Auto_Close:

Excel kapatılacağı zaman yapılması istenen komutları otomatik olarak çalıştıran yordamdır.

Örnek:

Sub auto_close()
Msgbox “Yine Bekleriz” // excel kapatıldığında ekrana Yine Bekleriz yazar.
End sub

On Time:

İstenilen zamanda istenilen yordamın çalışması istendiğinde veya belli bir süre geçtikten sonra istenilen yordamın çalışması isteniyorsa bu komut kullanılır.

Örnek :

Sub ddd( )
Application.ontime now+ Timevalue(“00:00:10”),”abc”
End sub
Bu yordam 10 sn geçtikten sonra abc yordamını çalıştırır.

Onkey:

Klavye tuşlarına anlam kazandırır.

Örnek:

Sub ddd( )
Application.onkey “{a}”,”abc”
End sub
a tuşuna basıldığında abc yordamı çalışır.

Bizim şaka şöyle çalışıyor: Kişi excel sayfasını açtıktan sonra işlemlerini yapıyor ve 20 saniye sonra  (daha da fazla olabilir) excel pat diye kapanıyor. En mühimi bunları kaydetmiyor. Bu şakayı 3 satırlık kod ile yapacağız.

Geliştirici sekmesinin nasıl geldiğini bu yazıdan ve insert module nasıl açacağımızı da şu yazıdan öğrenebilirsiniz. Insert Module açtıktan sonra ekrana aşağıdaki kodları yazalım.

Application.DisplayAlerts =False satırı ile değişikliklerin kaydetmemesini öğretiriz.

Application.Quit satırı ile de Exceli kapatırız.

Ekok: Exceli kapat ve ortadan kaybol 🙂

Kodları yazdıktan sonra kaydederken dikkat etmemiz gereken nokta excel dosyasını makro içerebilen excel çalışma kitabı olarak kaydetmeliyiz.

Sizde excel sayfayı kapatmadan önce arkaya müzik, bildirim sesi koyarak daha da heyecan katabilirsiniz.

Hoşçakalın 🙂