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 bazı görevleri yapmak için söylediği gibi, Döngü neredeyse tüm programlama dillerinde kullanılıncaya kadar yapın, VBA'da 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 Do while döngüleri çalıştırdığı 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
Yap (Bazı Görevleri Gerçekleştir) Kadar Döngü (koşul)
İkisi de birbirine çok benziyor ve burada basit bir farklılık var.
İlk sözdiziminde “Do Until” döngüsü önce koşulu kontrol eder ve koşul sonucunun DOĞRU veya YANLIŞ 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 olan “Do” döngüsünde, ilk olarak cod görevini yürütür, ardından koşulun DOĞRU mu yoksa YANLIŞ mı olduğunu test eder. Koşul YANLIŞ ise, tekrar geri dönecek ve aynı görevi gerçekleştirecektir. Koşul DOĞRU ise, döngüden hemen çıkar.
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.
“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
2. Adım: Bir değişkeni "Uzun" olarak tanımlayın . "X" i uzun bir veri türü olarak tanımladım.
Dim x As Long
3. Adım: Ş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 yüzden ilk başta x değeri 1'e eşittir. "X" her nerede 1'e eşitse.
6. Adım: Şimdi "DÖNGÜ" 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ı satır koduyla ç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ırdır, bu nedenle F8 tuşuna bir kez daha basın ve "x" değerini görün. Bu çıkıştan önce, kod çalışıyor ve değeri "x" e 1 olarak atayın.
Şimdi yine, F8 tuşuna basarak bir döngünün çalışmasını başlatı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 F8 tuşuna bir kez daha 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. “Do Until” döngü satırına geri dönecektir.
F8 tuşuna iki kez daha basın, A2 hücresinde 2 değerini alacağız.
F8 tuşuna tekrar 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 "TRUE" oluyor, yani x = 11.
Yani şimdi excel sayfasında 1'den 10'a kadar seri numaralarımız var.
Bu yüzden, "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.
