Tuşla MsgBox Mesajı Çıkarma

Bu dosya, klavyedeki bir tuş birleşimine makro atamayı ve bu tuşa basıldığında MsgBox ile kullanıcıya mesaj göstermeyi örnekleyen küçük bir VBA çalışmasıdır. Dosya açıldığında kısayol otomatik olarak tanımlanır; Alt+F8 tuşlarına basıldığında mesaj kutuları görüntülenir.

Dosyanın içeriği​

• Sayfa1: Boş çalışma sayfasıdır. Veri ve formül içermez; makroyu denemek için kullanılır.
• Module1: Kısayol tanımını ve mesaj kutularını gösteren iki prosedürü barındıran VBA modülüdür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem bulunmaz.

• Autpen: Dosya açıldığında kendiliğinden çalışır. Application.OnKey yöntemiyle Alt+F8 tuş birleşimini TueDiesUndDas makrosuna bağlar.
• TueDiesUndDas: Önce "Hallo!" metnini içeren bir MsgBox gösterir, ardından ikinci bir MsgBox ile aktif hücrenin adresini (ActiveCell.Address) bildirir.

Alt+F8 normalde Excel'in makro listesini açan kısayoldur. Dosya açık kaldığı sürece bu kısayol yerine yukarıdaki makro çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; Autpen kısayolu otomatik tanımlar.
2. Sayfa1 üzerinde istediğiniz bir hücreyi seçin.
3. Alt+F8 tuşlarına basın.
4. Önce "Hallo!" mesajını, ardından seçili hücrenin adresini gösteren kutuyu onaylayın.
5. Kendi mesajınızı veya tuşunuzu kullanmak için Alt+F11 ile Module1 modülünü açın; OnKey satırındaki tuş kodunu ve MsgBox metnini değiştirin.