For Next Döngüsünü kullanmak

[NEMAKSAN]

Selamlar;

For next döngüsünü daha iyi anlamak için aşağıdaki dosyada bir örnek verdim.

Acaba For Next döngüsü ile nasıl yapabilirim.


Teşekkürler

 

[conari]

Örnek olması açısından ekliyorum.
Sub dagıt()

k = 1
For y = 1 To 10
Cells(k, y).Value = k
k = k + 1
Next
k = 1
For y = 10 To 1 Step -1
Cells(k, y).Value = k
k = k + 1
Next
End Sub

 

[hamitcan]

Bir tane de benden.

Sub test()
    adr = InputBox("Bir Hücre Adresi Girin", , ActiveCell.Address)
    r = Range(adr).Row
    c = Range(adr).Column
    
    For i = 1 To c - 1
        Cells(r - i, c - i) = c - i
        Cells(r + i, c - i) = c - i
        Cells(r - i, c + i) = c - i
        Cells(r + i, c + i) = c - i
    Next
End Sub

 

[fedeal]

Altarnatif olsun,

K = 1
For Y = 1 To 5
Cells(K, Y).Value = K
K = K + 1
Next
K = 1
For Y = 9 To 5 Step -1
Cells(K, Y).Value = K
K = K + 1
Next
K = 6
For Y = 4 To 1 Step -1
Cells(K, K).Value = Y
K = K + 1
Next
K = 6
For Y = 4 To 1 Step -1
Cells(K, Y).Value = Y
K = K + 1
Next

 

[Korhan Ayhan]

Selamlar,

Farklı bir alternatifte ben sunmak isterim. İncelermisiniz.

Option Explicit
 
Sub FOR_NEXT_ÖRNEK()
    Dim İlk As Integer, Son As Integer, X As Integer, Sütun As Byte
    
    Cells.ClearContents
    
    İlk = 1
    Son = 9
    
    Son = IIf(Son Mod 2 = 0, Son - 1, Son)
    
    For X = İlk To Son
        If X <= ((İlk + Son) / 2) Then
            Sütun = Sütun + 1
            Cells(X, Sütun) = X
            Cells(X, Son + 1 - X) = X
        Else
            Sütun = Sütun - 1
            Cells(X, Sütun) = Sütun
            Cells(X, X) = Sütun
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[NEMAKSAN]

Sayın arkadaşlar;

çok çok teşekkür ederim