VBA Excel'de Döngüye Kadar Ne Yapılır?
In Loop'ta kadar VBA Do biz durağına döngü istiyoruz ve son deyimi döngü kendisi olduğunda hangi araçlar kadar deyiminden sonra kriterleri tanımlamak gerekir. Dolayısıyla, koşul YANLIŞ ise, deyimi döngü içinde yürütmeye devam edecek, ancak koşul DOĞRU ise hemen Do Until deyiminden çıkacaktır.
Kelimelerin kendisi, bir kritere ulaşılıncaya kadar bir görev yapmak için, Döngü neredeyse tüm programlama dillerinde kullanılıncaya kadar yapın, VBA'da bazen Dönene kadar Do kullanıyoruz. Dönene Kadar Yap, koşul DOĞRU olana kadar bir şeyler yapmak anlamına gelir. DOĞRU veya YANLIŞ'a dayalı olarak çalışan mantıksal bir işlev gibidir.
Bu, koşul TRUE olduğu sürece döngüleri çalıştırırken Do while döngüsünün tersidir.
Sözdizimi
Do Until döngüsünün iki tür sözdizimi vardır.
Sözdizimi # 1
[Koşul] [Bazı Görevleri Gerçekleştir] Döngüsüne Kadar Yap
Sözdizimi # 2
[Koşul] Kadar [Bazı Görevleri Gerçekleştir] Döngüsü Yapın
Her ikisi de çok benzer görünüyor ve orada basit bir farklılaşma var.
İlk sözdiziminde “Do Until” döngüsü önce koşulu kontrol eder ve koşul sonucunun TRUE veya FALSE olduğunu alır. Koşul YANLIŞ ise, kodu çalıştıracak ve belirli bir görevi gerçekleştirecek ve koşul DOĞRU ise döngüden çıkacaktır.
İkinci sözdizimi “Do” döngüsünde ilk olarak kod görevini yürütür ve ardından koşulun DOĞRU veya YANLIŞ olup olmadığını test eder. Koşul YANLIŞ ise, tekrar geri dönecek ve aynı görevi yerine getirecektir. Koşul DOĞRU ise, döngüden hemen çıkacaktır.
Misal
Teori kısmında herhangi bir şeyi anlamanın o kadar kolay olmadığını biliyorum, ama endişelenecek bir şey yok. Döngüyü anlamanız için size kolay örnekler vereceğiz. Okumaya devam etmek. Öğrenmeye başlamak için A1 hücresinden A10'a ilk 10 seri numarasını girme görevini gerçekleştirelim.
Bu VBA'yı Excel Şablonuna Kadar İndirebilirsiniz - VBA, Excel Şablonuna Kadar Yapın“Yapana Kadar Yap” döngüsünü uygulamak için aşağıdaki adımları izleyin.
Adım 1: Alt prosedürü başlatmak için önce bir makro adı oluşturun.
Kod:
Alt Do_Until_Example1 () End Sub
Adım 2: Bir değişkeni "Uzun" olarak tanımlayın . "X" i uzun bir veri türü olarak tanımladım.
Dim x As Long
Adım 3: Şimdi "Do Until" kelimesini girin.
Yapana Kadar
Adım 4: Döngü adını başlattıktan sonra koşulu “x = 11” olarak girin.
X = 11'e Kadar Yap
x = 11, uyguladığımız mantıksal testtir. Yani bu çizgi, döngüyü x 11'e eşit olana kadar çalıştırmayı söylüyor.
Adım 5: CELLS özelliğini uygulayın ve 1'den 10'a kadar seri numaralarını ekleyelim.
Hücreler (x, 1) .Değer = x
Not: Burada "x" in 1'den başladığından bahsetmiştik, bu nedenle ilk başta x değeri 1'e eşittir. "X" her nerede 1'e eşitse.
Adım 6: Şimdi “LOOP” kelimesini girerek döngüyü kapatın.
Sub Do_Until_Example1 () Dim x As Time As X = 11 Hücre (x, 1) .Değer = x Döngü
Sub
Tamam, kodlama kısmını bitirdik, şimdi döngüyü daha iyi anlamak için kodları satır satır test edeceğiz.
Satır kod çalıştırmak için önce F8 tuşuna basın.
İlk olarak makro adını sarı renkle vurgular.
Sarı çizgiyi gördüğünüzde, F8 tuşuna bir kez daha basarsanız, bunun yürütülmek üzere olduğunu söyler.
Şimdi F8 tuşuna bir kez daha basın, sarı çizgi Dönene Kadar Yap'a gidecektir.
Şimdi döngüyü anlamak için "x" değişkeninin üzerine bir imleç yerleştirin ve "x" değişkeninin değerini görün.
Yani x = 0. Vurgulanan çizgi döngüdeki ilk satır olduğundan "x" değeri sıfır olduğundan, F8 tuşuna bir kez daha basın ve "x" değerini görün. Bundan önce, kod çalışıyor ve "x" değerini 1 olarak atıyor.
Şimdi tekrar F8 tuşuna basarak bir döngüyü çalıştırmaya başlayın. "X" değerine bakın.
Şimdi "x" değeri 1 olarak gösteriliyor. "X" değişkenine artan bir değer elde etmek için "x" değişkeninin değerini döngü içinde x = x + 1 olarak yeniden atamamız gerekir.
Şimdi F8 tuşuna bir kez daha basın ve A1 hücresinde 1 değerini almalıyız.
Şimdi tekrar F8 tuşuna basın ve “x” değerinin ne olduğunu görün.
"X" değişkeninin değeri şimdi 2'dir. Yani koşulumuz, koşul TRUE olana kadar döngüyü çalıştırmayı söylüyor, böylece döngümüz "x" değeri 11 olana kadar çalışmaya devam ediyor.
F8'e bir kez daha basın, “Yapana Kadar” döngü satırına geri dönecektir.
F8 tuşuna iki kez daha basın, A2 hücresinde 2 değerini alacağız.
Tekrar F8 tuşuna basın ve “x” değeri şimdi 3 olur.
F8 tuşuna tekrar basın, tekrar döngüye geri dönecektir.
Bunun gibi, bu döngü yine “x” değeri 11 olana kadar görevi yürütmeye devam edecektir. Şimdi “x” değeri 11 olana kadar döngüyü çalıştırdım.
Şimdi F8'e basarsam yine döngüye geri dönecektir.
Ama şimdi F8 tuşuna basarsam döngüden çıkacak çünkü uygulanan koşul "DOĞRU" oluyor yani x = 11.
Yani şimdi excel sayfasında 1'den 10'a kadar seri numaralarımız var.
Bu nedenle, "Bitene Kadar Yapın" döngüsünün temel fikri budur. Herhangi bir döngüyü anlamak için, döngüler hakkında tam bilgiye sahip olana kadar kodu satır satır çalıştırmanız gerekir.