Bu dosya, çalışma sayfasında belirli bir aralıkta fare sağ tuşuna basıldığında Excel'in standart kısayol menüsü yerine kendi hazırladığınız özel bir menünün açılmasını gösterir. Özel menüde hücre biçimlendirme iletişim kutularına giden altı komut bulunur. Menü ve sağ tuş davranışı VBA ile oluşturulduğu için dosya örnek bir uygulama ve kendi çalışmalarınıza taşınabilecek bir şablon olarak kullanılabilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sheet1: A1:H24 aralığını kapsayan sayfa. data adlı tanımlı ad Sheet1!$A$1:$H$17 aralığını gösterir ve özel menünün çalışacağı alanı belirler.
- Dosyada formül, grafik, tablo veya özet tablo bulunmaz.
Makrolar
- Worksheet_BeforeRightClick (Sheet1): Sağ tıklanan hücre data aralığının içindeyse standart menüyü iptal eder ve MyShortcut adlı özel menüyü açar. Aralık dışında normal Excel menüsü çalışır.
- Workbook_Open: Dosya açıldığında CreateShortcut makrosunu çalıştırarak özel menüyü oluşturur.
- Workbook_BeforeClose: Dosya kapanırken DeleteShortcut ile özel menüyü siler.
- CreateShortcut: Geçici bir açılır menü hazırlar ve şu altı düğmeyi ekler: Number Format, Alignment, Font, Borders, Fill, Protection. Borders düğmesinden önce ayırıcı çizgi bulunur.
- ShowFormatNumber, ShowFormatAlignment, ShowFormatFont, ShowFormatBorder: İlgili Hücre Biçimlendir sekmesini ExecuteMso komutlarıyla açar.
- ShowFormatPatterns ve ShowFormatProtection: Doldurma ve koruma pencerelerini Application.Dialogs ile açar.
- ShowMyShortcutMenu: Özel menüyü Ctrl+Shift+M kısayoluyla fare kullanmadan açar.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sheet1 üzerinde A1:H17 aralığındaki herhangi bir hücreye sağ tıklayın; özel menü açılır.
- Menüden istediğiniz biçimlendirme komutunu seçin, ilgili iletişim kutusu açılır.
- Aralığın dışındaki bir hücreye sağ tıkladığınızda Excel'in olağan menüsü görüntülenir.
- Menüyü klavyeden açmak için Ctrl+Shift+M tuşlarını kullanın.
- Kendi çalışmanızda uygulamak için data adının gösterdiği aralığı değiştirin ve CreateShortcut içindeki düğmeleri ihtiyacınıza göre düzenleyin.