Dizi kullanımı hakkında

[semira_]

WorksheetFunction.Sum içerinde bir dizi tanımlayabilir miyim ? bu dizi elemanlarının her dort elamanı toplanıp başka satıra yazdırmasını yapabilir miyim ?

 

[Erdem Akdemir]

Örnek dosya ekleyebilir misiniz?
Açıklayıcı ve istediğiniz sonucu gösteren bir dosya olsun.

 

[Emir Hüseyin Çoban]

. . .

Küçük bir örnek;

Sub KOD()
    
    dizi = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
    sat = 1
    topla = 0
    say = 0
    
    For i = 0 To UBound(dizi)
        topla = topla + dizi(i)
        say = say + 1
        
        If say = 4 Then
            Cells(sat, "A") = topla
            topla = 0
            sat = sat + 1
            say = 0
        End If
        
    Next i
    
End Sub

. . .

 

[semira_]

dizi kullanımı hakkında

kuvari bey ekte dosyam mevcuttur , donemlik talep diye bir dizi oluşturdum bu dizi yukarıda tanımlanan talep dizisinin ilk dört elemanın toplamından oluşuyor bunu WorkshhetFunction.Sum ile yazamadım.

Örnek dosya ekleyebilir misiniz?
Açıklayıcı ve istediğiniz sonucu gösteren bir dosya olsun.

 

[semira_]

dizi kullanımı hakkında

huseyin bey , dizilerde belli aralıkta bir işlem yapmak istıyorum , zaten ılgılı soruda dosyamı ekledım , yapmak ıstedığım işlem dizinin sırayla 4 elemanını toplayıp başka bir yere farklı bir dizi olarak aktarmaktır. Dizilerde bu tarz dört işlemi naısl yapıyoruz ?

. . .

Küçük bir örnek;

Sub KOD()
    
    dizi = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
    sat = 1
    topla = 0
    say = 0
    
    For i = 0 To UBound(dizi)
        topla = topla + dizi(i)
        say = say + 1
        
        If say = 4 Then
            Cells(sat, "A") = topla
            topla = 0
            sat = sat + 1
            say = 0
        End If
        
    Next i
    
End Sub

. . .