Bu dosya, Excel'de açılan klasör seçme penceresinden seçilen klasörün tam yolunu öğrenmek için hazırlanmış küçük bir makro örneğidir. Seçilen yol mesaj kutusunda gösterilir; böylece klasör yolu elle yazılmadan alınabilir ve kendi makrolarınıza uyarlanabilir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sheet1: A14:A17 aralığında dört bağlantı hücresi bulunur. Sayfada formül, tablo, grafik veya veri doğrulama yoktur.
- Module1: Exceldestek adlı tek prosedürü içeren VBA modülüdür (12 satır).
Makrolar
- Exceldestek: Application.FileDialog ile klasör seçici penceresini (msoFileDialogFolderPicker) açar. Pencere, Excel'in varsayılan dosya yolundaki (Application.DefaultFilePath) klasörden başlar ve başlığında "Select a location for the backup." metni görünür.
- Kullanıcı bir klasör seçip onaylarsa seçilen klasörün tam yolu MsgBox ile ekranda gösterilir.
- Seçim yapılmadan pencere kapatılırsa (iptal) "Canceled" mesajı görüntülenir.
- Kodda dosya silme, dosya yazma veya dışarıya bağlantı kuran bir işlem yoktur; makro yalnızca seçilen yolu gösterir.
Nasıl kullanılır
- Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
- Alt+F8 tuşlarıyla makro listesini açın, Exceldestek makrosunu seçip Çalıştır düğmesine basın.
- Açılan pencerede istediğiniz klasörü seçip Tamam düğmesine basın.
- Klasörün tam yolu mesaj kutusunda görüntülenir. Pencereyi iptal ederseniz "Canceled" mesajı çıkar.
- Yolu bir hücreye yazdırmak veya değişkende saklamak isterseniz, MsgBox satırı yerine seçilen yol hücreye ya da değişkene atanacak biçimde düzenlenir. Bunun için Alt+F11 ile VBA düzenleyicisinde Module1 açılır.