VBA Egzersizlerim - iç içe for next döngüsü sorusu

[akronium]

merhaba herkese ,
VBa öğrenme yolculugumda bazı egzersizler üzerine calsısyorum ancak excel içerisinde aşağıdaki koordinatlara "X" işareti yazdırmak için nasıl bir iç içe for next döngüsünü yazılması gerektigni çözemedim

7 12
8 12
9 12	9 13
10 12	10 13
11 12	11 13	11 14
	12 13	12 14
	13 13	13 14	13 15
		14 14	14 15
		15 14	15 15
			16 15
			17 15

fikir verecek üstadlara tesekkur ediyorum
iyi günler
Selim

 

[DoğanD]

Merhaba,

Dener misiniz?

Sub dd()
Dim i, y As Integer
Dim bas, bit As Integer
bas = 7
bit = 11

For i = 12 To 15
    For y = bas To bit
    Cells(y, i) = "x"
    Next y
bas = bas + 2
bit = bit + 2
Next i

End Sub

 

[akronium]

Merhaba,

Dener misiniz?

Sub dd()
Dim i, y As Integer
Dim bas, bit As Integer
bas = 7
bit = 11

For i = 12 To 15
    For y = bas To bit
    Cells(y, i) = "x"
    Next y
bas = bas + 2
bit = bit + 2
Next i

End Sub

Merhaba,

Dener misiniz?

Sub dd()
Dim i, y As Integer
Dim bas, bit As Integer
bas = 7
bit = 11

For i = 12 To 15
    For y = bas To bit
    Cells(y, i) = "x"
    Next y
bas = bas + 2
bit = bit + 2
Next i

End Sub

tesekkurler Doğan bey

 

[Muzaffer Ali]

Merhaba.
Alternatif.

Eğer amaç sadece "x" yazmaksa aşağıdaki gibi tek satır ile yapılabilir.

Sub Test1()
    Range("L7:L11, M9:M13, N11:N15, O13:O17") = "x"
End Sub

Bunun dışında çok farklı yöntemler ile de yapılabilir.

Sub Test2()
    Dim Sütun As Integer
    Dim Satir As Integer
    Dim IlkSatir As Integer
    IlkSatir = 7
    
    For Sütun = 12 To 15
        For Satir = IlkSatir To 17
            Cells(Satir, Sütun) = "x"
            If Satir = IlkSatir + 4 Then
                IlkSatir = IlkSatir + 2
                Exit For
            End If
        Next
    Next
End Sub

Kod yazılırken tam olarak amaç bilinmesi gerekir. Ona göre kod yazılabilir.

 

[akronium]

Merhaba.
Alternatif.

Eğer amaç sadece "x" yazmaksa aşağıdaki gibi tek satır ile yapılabilir.

Sub Test1()
    Range("L7:L11, M9:M13, N11:N15, O13:O17") = "x"
End Sub

Bunun dışında çok farklı yöntemler ile de yapılabilir.

Sub Test2()
    Dim Sütun As Integer
    Dim Satir As Integer
    Dim IlkSatir As Integer
    IlkSatir = 7
   
    For Sütun = 12 To 15
        For Satir = IlkSatir To 17
            Cells(Satir, Sütun) = "x"
            If Satir = IlkSatir + 4 Then
                IlkSatir = IlkSatir + 2
                Exit For
            End If
        Next
    Next
End Sub

Kod yazılırken tam olarak amaç bilinmesi gerekir. Ona göre kod yazılabilir.

Merhaba MuzafferBey desteginiz için tesekkurler
ben acıkcası bir iki kitap edinip oradaki örneklerden kendime bazı durumlar yaratıryum ilk asamada bu nedenle göstermis olduğunuz ikinci alternatif de benim için cok degerli oldu tesekkurler

Selim

 

[Muzaffer Ali]

Rica ederim.

Kodları F8 tuşuna basarak satır satır çalıştırsanız anlamanız daha kolaylaşır.
View / Locals Window açarsanız onun da çok faydasını görürsünüz.

Kolay gelsin.

 

[selus]

Merhaba MuzafferBey desteginiz için tesekkurler
ben acıkcası bir iki kitap edinip oradaki örneklerden kendime bazı durumlar yaratıryum ilk asamada bu nedenle göstermis olduğunuz ikinci alternatif de benim için cok degerli oldu tesekkurler

Selim

Merhaba ben de yeni başladım. Kitap isimlerini verebilir misiniz?

 

[akronium]

Merhaba ben de yeni başladım. Kitap isimlerini verebilir misiniz?

Merhaba
elimde Temel Korkmaz ve Cenk İltir'in kitapları var kolay gelsin