Döngü mantığını anlama hk.

[leo57]

Merhaba Arkadaşlar,
Excel de döngü mantığını tam anlamıyla anlamak istiyorum.
Kendimce küçük bir kod denedim ama yapamadım.
Şöyleki;
A Sütununa veri giriyorum. Veriler sağ'a yaslanmış halde yani sağ'a dayalı.
Ben A sütununu döngü ile kontrol edip A sütununda olan verileri ortalamak istiyorum.
Bunun için aşağıdaki gibi bir kod yazdım fakat olmadı

Sub SutunOrtala()
For i = 0 To Range("A1048576").End(xlUp).Row
i = i + 1
Columns(i).HorizontalAlignment = xlCenter
Next i
End Sub

'Columns(i).HorizontalAlignment = xlCenter ( Sayfadaki bütün kolonları ortalıyor
'Cells(i).HorizontalAlignment = xlCenter ( Sadece A1 hücresini ortalıyor

Oysa ben A Sütununda ne kadar veri varsa sadece onları ortalasın istiyorum.

Sizden ricam bunun doğrusu nasıl yapılır açıklayarak bana öğretmenizi rica ediyorum.
Syg.

 

[Murat OSMA]

Şu kodu kullanabilirsiniz;

Sub Emre()
    For i = 1 To Range("A1048576").End(xlUp).Row
        Cells(i, 1).HorizontalAlignment = xlCenter
    Next i
End Sub

Döngü A sütunundaki 1.satırdan 1048576. satıra kadar olan hücreler arasında dönecek.
i = döngünün içinde yar alacak satırları, 1'de A sütununu ifade eder. Onun yerine "A" da yazabilirsiniz...

Aslında bu işlem için kısaca şu kodu da kullanabilirsiniz;

Sub Emre()
    Columns("A:A").HorizontalAlignment = xlCenter
End Sub

 

[Emir Hüseyin Çoban]

. . .

Döngü ile

Sub kod_bir()

For i = 1 To [a65536].End(3).Row
If Cells(i, "a").HorizontalAlignment = xlCenter Then
Else
Cells(i, "a").HorizontalAlignment = xlCenter
End If
Next i

End Sub

. . .

Döngüsüz

Sub kod_iki()
Range("a1:A" & [a65536].End(3).Row).HorizontalAlignment = xlCenter
End Sub

. . .

 

[leo57]

Üstad lar ellerinize sağlık. Gayet net bir şekilde anladım
Çok teşekkürler. İyi Hafta Sonları Diliyorum.