Döngü ile toplam alma

[seddur]

Merhabalar.Ekran alıntısında görünen sutunların toplamlarını döngü kullanarak almak istiyorum.Yardımcı olabilirseniz sevinirim.

 

[Necdet]

Neden döngü merak ettim?

Deneyiniz.

Sub ToplamAL()

Dim ar1 As Variant
Dim ar2 As Variant
Dim i   As Integer
Dim j   As Integer

ar1 = Range("K2:Q13").Value
ReDim ar2(1 To UBound(ar1, 2))

For i = LBound(ar1, 1) To UBound(ar1, 1)
    For j = 1 To UBound(ar1, 2)
        ar2(j) = ar2(j) + ar1(i, j)
    Next j
Next i

Range("K14").Resize(1, UBound(ar1, 2)) = ar2
CreateObject("WScript.Shell").Popup "İŞLEM TAMAMDIR.....", 2

End Sub

 

[seddur]

Döngülerin nasıl yazıldığı konusundaki bilgimi arttırmak istiyorum.Döngüler excelin temeli deniyor.

 

[Necdet]

Döngüler tüm programlama dillerinin temelini oluşturur.
Yalnız iş excel olunca döngü temeli aynı olmasına rağmen değişik yöntemler olabilir.

 

[seddur]

Benim gördüğüm kod yazan arkadaşlar uzun uzun veya bir çok satırdan oluşan kod yazmak yerine döngüyü tercih ediyorlar.Bir çok satırdan oluşan kod yazmak bana şu anda amatörce geliyor.