Soru Dizi değişkeninin değişen aralıktaki toplamı

leguminosea' Alıntı:

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;

Kod:

Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

Ürettiğim Çözüm;

Kod:

Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)

Genişletmek için tıklayın ...

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

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

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?

.

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

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.

.

@Ö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.

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.

.

Sayın @Ömer BARAN dosyayı yeniledim.

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

Şimdi bakınız.

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.

.

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

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.