While Wend Fonksiyonu

FONKSİYONLAR

Gelişmiş/Mantıksal Fonksiyonlar
While...Wend Fonksiyonu

Açıklama

WHILE...WEND fonksiyonu, 

FOR...NEXT fonksiyonunun bir alternatifidir. Bir döngü yapısıdır. Döngü sayısı biliniyorsa genellikle For Next döngüsü kullanılır, eğer bilinmiyorsa While Wend döngüsü kullanılabilir. Bir şart gerçekleşinceye kadar ilgili komutları yürütmeye yarar.

Bakmak İsteyebilecekleriniz:

For...Next fonksiyonu,

Söz Dizimi

While_Şartlar ....ifade Wend

PARAMETRELER

• Şartlar: kodun çalışmasını sağlayan şart
• ifade: şart doğru olduğu sürece çalıştırılacak kodlar

Örnekler

Örnek-1

Sayac = 1

While Sayac <  5

Debug.Print Sayac

Sayac = Sayac + 1

Wend

Sonuç: Bu örneğimizde sayac değişkenimizi önce 1'e eşitliyotuz. Daha sonra döngümüzü açıyoruz, şartımızı ekliyoruz, Sayac değeri 5'den küçük olduğu sürece işleme devam et. Ekrana 1,2,3 ve 4 rakamları yazdırılıcaktır. En sonda 5 değerini aldığında şartı sağlamayacağından döngüden çıkılır.

Örnek-2

Sayac_1 = 10

Sayac_2 = 12

While Sayac_1 < 15 ' 1.Döngü

While Sayac_2 < 17 ' 2.Döngü

Debug.Print Sayac_1 & "/" & Sayac_2

Sayac_2 = Sayac_2+1

Wend

Sayac_2 =12

Sayac_1 = Sayac_1 + 1

Wend

Sonuç: Bu örneğimizde iç içe WHILE...WEND döngüsü oluşturduk. Bu örneğimizin sonucu aşağıdaki gibi olacaktır.

1.Döngü - 2.Döngü

10-                12

10-                13

10-                14

10-                15

10-                16

11-                12

11-                13

11-                14

11-                15

11-                16

12-                12

12-                13

12-                14

12-                15

12-                16

13-                12

13-                13

13-                14

13-                15

13-                16

14-                12

14-                13

14-                14

14-                15

14-                16

VBA Kullanımı ve Sonucu

Ve İşte Sonuçlar...

Kod:

Sub icice_While_Loop_Example()

   Dim Sayac_1 As Integer
   Dim Sayac_2 As Integer

   Sayac_1 = 10
   Sayac_2 = 12

   While Sayac_1 < 15
      While Sayac_2 < 17
         Debug.Print (Sayac_1 & "-" & Sayac_2)
         Sayac_2 = Sayac_2 + 1
      Wend
      Sayac_2 = 12
      Sayac_1 = Sayac_1 + 1
   Wend

End Sub

WHILE...WEND fonksiyonu ile bir döngü yapısının nasıl çalışacağını artık biliyoruz.

Gelecek makalemizde Yerleşik Fonksiyonların anlatımına devam edeceğiz. Yorumlarınızı ve eleştirilerinizi bekliyorum.

Şimdilik,
Hoşcakalın...