Dizi Değişkenini Değişen Aralıkta Toplama

[leguminosea]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Başka bir döngü ile elde ettiğim b dizi değişkenimin
yine başka bir döngüde değişen aralıktaki toplamını almak istiyorum.
Aşağıdaki kodlarda istediğim şekil ve bulduğum çözüm var.

İstediğim şekil;

For i = 1 To 10
a = WorksheetFunction.Sum(b(i, 4), b(10, 4))
Next i

Ürettiğim Çözüm;

For i = 1 To 10
        a = 0
    For y = i To 10
        a = a + b(y, 4)
    Next y
Next i

 

Döngüye göre değişken değiştirmek

Yaka ve Giriş Kartı Bastırmak

[MESKO]

Paylaşım için teşekkürler. Arşive eklenmiştir.

 

[leguminosea]

İlk makroda ki gibi nasıl yapılabilir.

 

[Ömer BARAN]

Kodu çalıştırmayı düşündüğünüz bir örnek belge olup, ulaşmak istediğinizin sonuçlara ilişkin açıklama da
ekleyerek bir örnek belge yükler misiniz?

.

 

[leguminosea]

Sayın @Ömer BARAN dosya ektedir.
Açıklama sayfada ve makro içinde mevcuttur.

 

[Ömer BARAN]

Kodlarınızdaki işlemi tam olarak anladığımı söyleyemem ama şunu net ifade edebilirim.
Kodlarınızda kullanacğınız WorksheetFunction.Sum(.... işlemi yerine dizi yöntemiyle sonuç almak,
veri yığını büyüdüğünde karşılaştırılamayacak kadar hızlıdır.

Kullandığınız kodda gereksiz döngü/işlem olabilir gibi görünüyor ama amacınızı, yapılan işlemi anlayamadığım için
daha kısa bir kod önerisinde bulunamayacağım. Örneğin neden snc ve snc2 adlı iki ayrı dizi oluşturuyorsunuz anlayamadım.

.

 

[leguminosea]

@Ömer BARAN Katkınız için teşekkürler.
Bunlar esas sonuca ulaşmam için ön hesaplamalar.
snc2 6 sütunluk bir dizi ve ilk 5 sütuna göre 6. sütun ( henüz hesaplanmadı) benim sonucumu içerecek.
snc bir defa hesaplanırken snc2 100 lük bir döngüye daha girip en sonunda 6. sütunların toplamlarını alacağım.
Bu yüzden 2 dizi yaptım. Tek diziye indirsem 1. dizi gereksiz yere 100 lük bir döngüye daha girecek diye düşünüyorum.
Biraz formül yazma mantığıyla ilerlediğim için gereksiz işlem veya döngü olma noktasında haklı olabilirsiniz.

 

[Ömer BARAN]

Sonuçlara formül ile ulaşabiliyorsanız, bu formülleri de T ve devamındaki sütunlara uygulayıp örnek belgeyi yeniler misiniz?
İşlemleri dizi üzerinden yaptığınıza göre döngü sayısının, işlemin yavaşlamasına neden olacağını hiç sanmıyorum.
Yeterki veriyi hücreden 1 kez okutun/yazdırın, yeterki WorksheetFunction kodu kullanmayın.

.

 

[leguminosea]

Sayın @Ömer BARAN dosyayı yeniledim.

 

[Ömer BARAN]

Örnek belgeyi tamamen silmişsiniz, örnek belge göremiyorum.

 

[leguminosea]

Şimdi bakınız.

 

[Ömer BARAN]

Dün sabah 07:00'de kalktığım için gardım düştü,
başka ilgilenen olmazsa yarın son belgenizi inceleyerek fikrimi yazarım.

.

 

[Ömer BARAN]

Sonuçta tüm tablolar gerekli mi yoksa, sadece en sağdaki BT ve devamı sütunlardaki tablolar yeterli midir?.

 

[leguminosea]

Sayın @Ömer BARAN dosyayı tekrar güncelledim.
Tabloyu ve formülleri revize ettim.
Açıklama sayfada var.
Daha anlaşılır oldu sanırım.