Pak Wahyu, terima kasih atensinya bukan masalah menghemat koding ataupun melanggar aturan; tetapi memang koding itu SALAH. Kita lihat nilai R akan selalu berurut (karena ditempatkan di dalam IF) jadi nilai nilainya tidak sama dengan nilai *i*. *Sedangkan nilai i *yg akan dituliskan akan tidak urut (loncat loncat) sesuai HASIL IF (yaitu nilai i hanya pada saat IF menghasilkan TRUE.
Hasil akhir yg diharapkan hanya baris yg memenuhi syarat yg akan diambil datanya. Dengan nilai R yg diambil datanya adalah baris yang BELUM TENTU memenuhi syarat dlm IF Kira kira begitulah... 2010/6/29 wahyu abdi <[email protected]> > menghemat satu baris, hasilnya sama aja kan mbak ? emang melanggar aturan > ya ? saya terbiasa pakai yg seperti itu dg refresh r = 0 di awal code,... he > he kebiasaan buruk kali ye > > ------------------------------ > *From:* STDEV(i) <[email protected]> > > *To:* [email protected] > *Sent:* Tue, June 29, 2010 8:32:16 AM > > *Subject:* Re: [belajar-excel] Modifikasi Macro > > waduh.. ada salah agak "fatal-atraction" nih.. > (untung pak danan kok belum sempat "protest" ya.....) > > di dalam procedure FiterRekap (ada di Module Sheet 4 /"Rekap_II" ) > ada Looping tertulis spt ini > > For i = 1 To DatRows > If LookupKolom(i).Text = KRITE_1 Then > If LookupKolom2(i).Text = KRITE_2 Then > r = r + 1 > vHax = vHax + TabelData(*r*, 11).Value > vKui = vKui + TabelData(*r*, 12).Value > vXtl = vXtl + TabelData(*r*, 18).Value > End If > End If > Next i > > index baris dengan memanfaatkan v*ariable r *itu salah; > seharusnya index baris atas cell yg dirujuk menggunakan *variable i* > (yaitu integer pencacah / counter Loop). > koreksinya menjadi seperti ini : > > For i = 1 To DatRows > If LookupKolom(i).Text = KRITE_1 Then > If LookupKolom2(i).Text = KRITE_2 Then > vHax = vHax + TabelData(*i*, 11).Value > vKui = vKui + TabelData(*i*, 12).Value > vXtl = vXtl + TabelData(*i*, 18).Value > End If > End If > Next i > > Terlampr file *produksi.xls yg sudah dikoreksi*, sekalian ada beberapa > modifikasi > misalnya report selain ditulis subtotalnya saja, juga ditulis rinciannya di > tabel lain. > > rgds, > -ctv- >
