Sonraki Döngü İçin Excel VBA
VBA For Next döngüsü , tüm programlama dilleri arasında kullanılan bir döngüdür, bu döngüde for ifadesinden sonra, kriterlere ulaşılana kadar kodun döngüde döndüğü ve kriterlere ulaşıldığında sonraki ifadeyi yönlendiren bir kriter vardır. yordamı kodun sonraki adımına.
"Sonraki" döngüsü, VBA kodlamasında diğer döngülerden çok sık kullanılan döngülerden biridir. Döngüler, koşul TRUE olana kadar belirtilen hücreler için aynı tür görevi tekrar etmemize yardımcı olacaktır.
FOR LOOP, hücre aralığında döngü yapar ve koşul TRUE olana kadar belirli bir görevi gerçekleştirir. Örneğin, ilk 10 hücre arasında döngü yapmak ve 1 artımlı seri numaraları eklemek istiyorsanız, FOR NEXT döngüsünü kullanabilirsiniz.
Bu döngü, döngüyü çalıştırmak için bir değişkene ihtiyaç duyar. Bu değişkeni kullanarak hücrelere dinamik olarak başvurabiliriz.
Üç parametre içerir.
İfade İçin = Başlangıç Noktasından Bitiş Noktasına (Bazı Görevleri Gerçekleştirin) Sonraki İfade
Döngü başlangıç noktasından başlayacak ve görevi tamamladıktan sonra bir sonraki döngüye geçecek ve aynı görevi farklı hücrede tekrar gerçekleştirecek. Bunun gibi, uç noktaya ulaşıncaya kadar, belirtilen görevi yerine getirmeye devam eder.
Sonraki Döngü İçin VBA nasıl kullanılır?
1'den 10'a A1'den A10'a kadar seri numaraları eklemek istediğinizi varsayın. Elbette on satır kod yazıyormuş gibi ekleyebiliriz.
Kod:
Alt For_Next_Loop_Örnek1 () Aralık ("A1"). Değer = 1 Aralık ("A2"). Değer = 2 Aralık ("A3"). Değer = 3 Aralık ("A4"). Değer = 4 Aralık ("A5") .Değer = 5 Aralık ("A6"). Değer = 6 Aralık ("A7"). Değer = 7 Aralık ("A8"). Değer = 8 Aralık ("A9"). Değer = 9 Aralık ("A10") .Value = 10 End Sub
Peki ya 100 seri numarası eklemek istersem? Elbette sadece seri numaraları eklemek için 100 satır kod yazamam. “FOR NEXT” döngüsünün güzelliği burada devreye giriyor. Kodu en aza indirmek için aşağıdaki adımları izleyin.
Adım 1: Öncelikle bir değişken tanımlamamız gerekiyor. Bir tamsayı veri türü olarak "Seri_Numarası" adlı değişken adını ilan ettim .
Kod:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer End Sub
Adım 2: Şimdi FOR NEXT döngüsünü uygulamak için emir veriyorum, amacımız 1'den 10'a kadar seri numaraları eklemek, yani bu, döngümüzün on kez çalışması gerektiği anlamına geliyor. Yani FOR LOOP ifadesi şu şekilde olmalıdır.
Seri_Numarası için = 1 ila 10
Sonraki Seri Numarası
Kod:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer For Serial_Number = 1 ila 10 Sonraki Seri_Number End Sub
3. Adım: Döngüyü uyguladık. Şimdi döngü uygulandığında, döngü içinde ne yapmamız gerektiğini belirlememiz gerekiyor. Buradaki amacımız 1'den 10'a kadar seri numaraları eklemektir . Bu yüzden kodu Hücreler (Seri_Sayı, 1) olarak yazın. Değer = Seri_Sayı.
Kod:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer Dim Serial_Number = 1 ila 10 Hücre (Serial_Number, 1) .Değer = Serial_Number Dim Seri_Number End Sub
Adım 4: CELLS özelliğinde Seri_Numarası vermemizin nedeni, burada satır referansı için sabit sayı belirtemiyoruz. Döngü her çalıştığında, yeni seri numarasını aynı hücreye değil, yeni hücreye eklemek istiyorum.
Adım 5: F8 tuşuna basarak kodu satır satır çalıştırın.
Adım 6: Değişken Seri_Numarası üzerine bir imleç yerleştirin; Serial_Number'ın o anki değerini gösterir.
Bu noktada, Seri_Numarası değeri sıfırdır.
Adım 7: F8 tuşuna bir kez daha basın, sarı renk VBA'da bir sonraki kod satırına geçecektir. Şimdi Seri Numarası üzerine bir imleç yerleştirin.
Şimdi Serial_Number'ın değeri bire eşittir çünkü döngü şimdi başladı ve döngümüz 1'den başlıyor, bu yüzden değişken Serial_Number değeri bire eşittir.
Buradaki ilginç bir şey de Serial_Number değişkeninin olduğu her yerde, bu da 1'e eşittir.
Bu nedenle, hücreler özelliğinde, koddan şu şekilde bahsettik:
Hücreler (Seri_Numarası, 1). Değer = Seri_Numarası
Bu, Hücreler (1, 1) anlamına gelir. Değer = 1. (Hücreler (1,1), Satır1 ve Sütun1 anlamına gelir.
Dolayısıyla 1. satırda ve 1. sütunda değer 1 olmalıdır.
Adım 8: Şimdi F8'e bir kez daha basın ve Satır1 ve Sütun1'de, yani A1 hücresinde ne olduğunu görün.
Yani değer olarak 1, yani Seri_Numaranın değerini aldık.
Adım 9: Şimdi F8 tuşuna bir kez daha basın. Tipik olarak bir sonraki kod çalıştırılmalıdır, yani trafo merkezinin sonu. Ancak burada, "yukarıdaki çizgiye" geri dönecek .
Adım 10: Döngünün ilk çalıştırmayı zaten tamamladığını unutmayın. Şimdi ikinci kez geri dönüyor. Şimdi Serial_Number değişkeninin üzerine bir imleç yerleştirin ve değerin ne olduğunu görün.
Şimdi, Serial_Number değişkeni 2'ye eşittir çünkü döngü zaten ikinci kez döndü.
Şimdi, Seri_Numarası nerede olursa olsun, 2 değerine eşittir. Yani satır kodu:
Hücreler (Seri_sayı, 1) Değer = Seri_sayı şuna eşittir:
Hücreler (2, 1). Değer = 2. ( Hücreler (2, 1) Satır2 ve Sütun1 anlamına gelir, yani A2 hücresi).
Adım 11: Bu kodu çalıştırın ve A2 hücresindeki değeri görün.
Böylece ikinci seri numarası değerini aldık.
Adım 12: Şimdi F8 tuşuna basın. Kodu tekrarlamak için tekrar yukarıdaki satıra dönecektir. Bu sefer Serial_Number değeri 3 olacaktır.
Adım 13: Yani Serial_Number nerede olursa olsun, 3'e eşittir.
Yani satır kodu: Hücreler (Seri_sayı, 1). Değer = Seri_Sayı şuna eşittir:
Hücreler (3, 1). Değer = 3. ( Hücreler (3, 1) Satır3 ve Sütun1 anlamına gelir, yani A3 hücresi).
Adım 14: Vurgulanan satırı yürütmek ve A3 hücresindeki değeri görmek için F8'e basın.
Adım 15: Şimdi F8'e basmaya devam edin. Seri numaralarını eklemeye devam edecektir. Serial_Number değişkeninin moment değeri 10'dur, döngüyü durdurur ve döngüden çıkar.
