Excel Puantaj Özet Raporu Hazırlama

lfkaya' Alıntı:

Üstad ilerde eklemeler yapma açısından soruyorum kodun satırlarında açıklama yapmanız mümkün mü yaparsanız en azından forumda durmadan benzer sorular ve yardımlar istememiş olurum

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

Özetle, başlangıçta 4 adet dizimsi ve 1 adet sonuç dizisi oluşturuluyor.
-- 3'üncü satırdaki değerlerden oluşan dizimsi >> bslk1 = o.[BH3:BR3].Value2
-- 4'üncü satırdaki değerlerden oluşan dizimsi >> bslk2 = o.[BH4:BR4].Value2
-- sonuç tablosuna aktarma yapılırken yukardaki dizimsilerin kaçıncı elemanının yazılacağını gösteren sut = Array(.... dizimsisi
-- okunacak veriler v isimli dizimsiye alınıyor >> v = o.Range("B6:BR" & sono).Value2

Ardından v dizimsisinin satırları döngüye girilip, her satır için 10 satırlık ve 10 sütunluk sonuç dizisi dolduruluyor.
Mutlaka SIFIR olacak sütunlar için ayrı ayrı yazdırmak yerine, önce bu sonuç dizisinin tümüne SIFIR yazdırılıyor >> For u = 1 To..... :Next
ardından da For x = 1 To 10 döngüsüyle (satır döngüsü) sonuç dizisinin SIFIR dışındaki alanları dolduruluyor.
Döngü bitiminde de sonuç dizisi alana tek adımda yazdırılıyor.