Bu dosya, belirli bir hücre alanında fare ile sağ tıklandığında Excel'in standart menüsü yerine özel bir menü açmayı gösteren makrolu bir örnektir. Menüde sık kullanılan biçimlendirme pencerelerine tek tıkla ulaşılır.
Dosyanın içeriği
- Sheet1: A1:H17 aralığı sağ tık menüsünün çalıştığı alandır. Sayfada formül bulunmaz.
- VBA projesi: ThisWorkbook, Sheet1 ve Module1 bölümlerinde menüyü oluşturan, gösteren ve kaldıran kodlar yer alır.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar dosya içi menü işlemleriyle sınırlıdır; dosya silme veya dışarıya bağlantı işlemi yoktur.- Workbook_Open: Dosya açılırken ExcDepMenüEkle makrosunu çalıştırarak "ExcDep" adlı açılır menüyü oluşturur.
- Workbook_BeforeClose: Dosya kapanırken ExcDepMenüSil makrosuyla bu menüyü siler.
- Worksheet_BeforeRightClick: Sheet1 sayfasında sağ tıklanan hücre A1:H17 aralığındaysa özel menüyü gösterir ve standart sağ tık menüsünü engeller.
- ExcDepMenüEkle: Menüye altı düğme ekler: Hücre Formatı, Hizalama, Font, Kenarlık, Dolgu Rengi ve Koruma. Kenarlık düğmesinden önce ayırıcı çizgi bulunur.
- Sayı, Hiza, Font: İlgili hücre biçimlendirme pencerelerini açar.
- Kenar, Renk, Koruma: Kenarlık, desen/dolgu ve hücre koruma iletişim kutularını açar.
- ExcDep_Goster: Menüyü doğrudan gösterir; Ctrl+Shift+M kısayoluna atanmıştır, bu nedenle menü A1:H17 dışında da açılabilir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sheet1 sayfasında A1:H17 aralığındaki bir hücreye sağ tıklayın.
- Açılan menüden istediğiniz komutu seçin; ilgili biçimlendirme penceresi açılır.
- Menünün çalışacağı alanı değiştirmek için Sheet1 kod bölümündeki A1:H17 adresini kendi aralığınızla değiştirin.
- Menüye yeni düğme eklemek için ExcDepMenüEkle makrosundaki düğme bloklarından biri kopyalanıp başlığı ve çalıştıracağı makro adı değiştirilir.