Diyalog Pencerelerini Kullanma

Bu dosya, Excel'in yerleşik diyalog pencerelerinin VBA ile nasıl açıldığını gösterir. Sayfadaki listeden bir xlDialog adı seçilir ve karşılık gelen pencere ekrana getirilir. Diyalog pencerelerini kullanma konusunu makro koduyla örneklemek isteyenler için hazırlanmış bir şablondur.

Dosyanın içeriği​

• Sheet1: I1:M203 aralığında yer alan sayfadır. M sütununda xlDialogActiveCellFont, xlDialogAddChartAutoformat, xlDialogAddinManager, xlDialogAlignment, xlDialogApplyNames gibi diyalog sabitlerinin adları sıralanır. Sayfada formül bulunmaz.
• Module1: Makro kodunun bulunduğu VBA modülüdür (248 satı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 görülmez; makro yalnızca Excel'in kendi diyalog pencerelerini açar.

• rundialog: Sayfadaki ilk liste kutusunda seçili olan sıra numarasını okur ve Select Case ile bu numaraya karşılık gelen pencereyi Application.Dialogs üzerinden açar. Kodda 1 ile 29 arasındaki girişler tanımlıdır; örneğin 2. giriş yazı tipi, 5. giriş hizalama, 27. giriş sütun genişliği penceresidir. Tanımlı olmayan bir giriş seçilirse "I haven't yet coded that entry!" mesajı gösterilir.
• xxx: Çalışan bir işlem içermez. Gövdesi, sonraki girişler için hazırlanmış xlDialogCopyChart ile başlayan diyalog adlarının yorum satırı olarak tutulduğu bir listedir; bu adlar ileride rundialog içine eklenebilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 sayfasındaki listeden açmak istediğiniz diyalog penceresini seçin.
3. Alt+F8 ile makro listesini açıp rundialog makrosunu çalıştırın veya sayfada bu makroya atanmış bir denetim varsa onu kullanın.
4. Seçilen Excel penceresi açılır; işlem bittiğinde pencereyi kapatın.
5. Listede 29. girişten sonrakiler için rundialog içine yeni bir Case satırı eklenmesi gerekir; ilgili adlar xxx yordamındaki listede hazırdır.