EXCEL VBA KODLARI
Bu makalede sizlere Excel Vba Döngüleri içeren Kodlardan örnekleri anlatacağız
Döngüler tüm programlama dillerinin temel bir parçasıdır.
Yaygın görünen üç ana döngüler vardır. Onlar;
Her döngü içinde VBA kodu maksimum sayıda ulaşılıncaya kadar yürütülür veya önceden tanımlanmış bir koşula uyar.
Kod Örnekleri
For Döngüsü | Until Döngüsü | Do While Döngü |
Sub LoopA ()
Döngü tarafından X değerleri ile A56: 'hücreleri A1 doldurur 'Her döngü içinde 1 X değerini artırın '
MsgBox ("Bu döngü ne işe yarar?") Döngü yapar açıklayın '
As Integer Dim X
X = 1 için 56
Range ("A" & X). Değeri = X
Sonraki X
End Sub
Sub LOOPB ()
'
56 arka plan renkleri ile B56: 'Hücreleri B1 doldurur ' As Integer Dim X
X = 1 için 56
Range ("B" & X). Seçin
Selection.Interior ile . Colorındex = X . Desen = xlSolid End With
Sonraki X
End Sub
Sub LoopC ()
'
X değerleri ile C100: 'C1 her ikinci hücre doldurur ' As Integer Dim X
X = 1 için 100 Adım 2
Range ("C" & X). Değeri = X
Sonraki X
End Sub
Sub LoopD ()
' X değerleri ile D100: 'D1 hücreleri doldurur 'Bu durumda X 1 azalır ' As Integer Tamsayı, Satır Dim X
Satır = 1
X = 100 için 0 Adım -1 için
Range ("D" & Row). Değeri = X
Satır = Satır + 1
Sonraki X
End Sub
Sub Loope ()
' X değerleri ile E100: 'E1 her ikinci hücre doldurur 'Bu durumda X 2 azalır ' As Integer Tamsayı, Satır Dim X
Satır = 1
X = 100 için 0 Adım -2 için
Range ("E" & Row). Değeri = X
Satır = Satır + 2
Sonraki X
End Sub
Sub LoopF ()
' X değerleri ile F500: hücreleri F32 doldurmak için başlatır 'Bu 255 sonra döngü çıkmak olacaktır
As Integer Dim X
X = 32 için 500
Range ("F" & X). Değeri = X X = 255 Sonra ise MsgBox ("Ben 255 de çıkmak için gidiyorum!") Için Exit End If Sonraki X
End Sub
Sub LoopG_ASCII ()
'
'32 ile 255 ASCII karakterleri yazdırır ' Range ("G31"). Değeri = "ASCII kodları" As Integer Dim X
X = 32 için 255
Range ("G" & X). Değeri = Chr (X)
Sonraki X
End Sub
| Sub LoopH () ' Bir koşula uyan kadar 'Döngüler. ' As Integer Dim Z
Z = 1
Yapmak
Range ("H" & Z). Değeri = Z Z = Z + 1 Z kadar döngü> 10
End Sub
Sub LoopTime_Period ()
'
'Zaman aralığı veya duraklatma ' Dim timeperiod, Başlangıç, Bitiş, TotalTime (MsgBox ("3 saniye duraklatmak için basın Evet", 4)) = Sonra vbYes ise Timeperiod = 3 'zaman aralığı = Timer 'başlangıç zamanı başlar.
Yapmak Timer> Başlat + timeperiod kadar
DoEvents 'diğer işlemler yapın. Döngü
Zaman bitirmek = Timer 'Set sonunda.
TotalTime = Bitiş - Başlangıç 'toplam süre hesaplayın. MsgBox & TotalTime ve "saniye" "zaman aralığıdır" Başka Son End If
End Sub
| Alt Loopi () ' Bir koşul doğru iken 'Döngüler. ' As Integer Dim Z
Z = 1
Yapmak
Range ("I" & Z). Değeri = Z Z = Z + 1 Döngü sırasında Z <10
End Sub
Sub LoopTime_Count ()
' 'Saniyede döngü sayısını sayar '
Tek olarak çift, X Dim LoopTime
X = 0 Range ("J1"). Değeri = "saniyede Döngüler" StartTime = Zamanlayıcı
Do Timer iken - StartTime <1
X = X + 1 Döngü
Range ("J2"). Değeri = X
End Sub |