Bu dosya, VBA döngü yapılarının Excel hücreleri üzerinde nasıl çalıştığını gösteren örnek bir çalışma kitabıdır. Her döngü türü için ayrı bir makro hazırlanmıştır; makrolar çalıştırıldığında sonuç doğrudan Sayfa1 üzerinde izlenir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: A1:F81 aralığını kapsar. Makrolar A1:F10 aralığına sayı ve karakter yazar, J1:N10 aralığında ise rastgele sayılar ile renklendirme örneğini gösterir.
- Module1: 97 satırlık kod modülüdür ve 9 makro içerir.
Kullanılan formüller
Sayfada hazır formül bulunmaz. Yalnızca for_each_next2 makrosu, J1:N10 aralığına 0 ile 99 arasında rastgele tam sayı üreten bir formül yazar:Makrolar
Her makro işe başlarken A1:F10 aralığının içeriğini ve J1:N10 aralığının içerik ile biçimini temizler.- for_next: For Next döngüsüyle A1:A10 hücrelerine 1'den 10'a kadar sayıları yazar.
- icice_for_next: İç içe iki For döngüsüyle A1:F10 aralığının tüm hücrelerine "o" harfi yazar.
- for_each_next: For Each döngüsüyle A1:F10 aralığındaki hücreleri sırayla 1'den 60'a kadar numaralandırır.
- for_each_next2: J1:N10 aralığındaki rastgele sayıları dolaşır; değer 0-10, 10-50 ve 50-100 aralığında olmasına göre farklı dolgu ve yazı rengi uygular.
- do_while_loop: Do While döngüsüyle B1:B10 hücrelerine 1-10 arası sayıları yazar.
- do_loop_while: Do ... Loop While döngüsüyle C1:C10 hücrelerini doldurur.
- do_until_loop: Do Until döngüsüyle D1:D10 hücrelerini doldurur.
- do_loop_until: Do ... Loop Until döngüsüyle E1:E10 hücrelerini doldurur.
- while_wend: While ... Wend döngüsüyle F1:F10 hücrelerini doldurur.
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.
- İstediğiniz makroyu seçip Çalıştır düğmesine tıklayın ve Sayfa1 üzerindeki sonucu izleyin.
- Döngülerin yazdığı sütunları karşılaştırmak için makroları sırayla çalıştırın; her çalıştırmada A1:F10 ve J1:N10 aralıkları önce temizlenir.
- Kod yapısını incelemek için Alt+F11 ile Module1 modülünü açın.