Dengan mengacu dan sedikit utak atik ilmu turunan dari Ibu Guru kita yang masih belum menampakkan diri (Mbak Siti Vi) mengenai menghitung jumlah sel berwarna dan Vlookup Gabungan dari Pak Anton, saya mencoba membuat UDF berikut ini :
Function TdkTuntas(rng As Range, Krit As String)
Dim i As String, x As Range
For Each x In rng
If x = Krit Then i = i & x.Offset(-18, 0).Value & ", " 'baris ini
adalah modifikasi
Next x
TdkTuntas = Left(i, Len(i) - 2)
End Function
Keterangan:
rng adalah rage yang sebagian mengandung Kriteria ("TD") dan Krit adalah
Kriteria
Syarat dan Ketentuan berlaku, yaitu jarak antara No. Soal dan Ketuntasan Soal
adalah 18 baris
Salam,
Hendrik Karnadi
________________________________
From: Husnul Faizin <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Sunday, 15 April 2012, 6:47
Subject: [belajar-excel] Analisis tidak tuntas
selamat pagi dan salam exceler....
meralat lampiran (postingan) yang ditolak oleh milis ini (smoga kali ini tidak
ditolak)
mohon bantuan dalam analisis soal saya :
1. pada sheet 1 tercantum data analisis soal, sehingga didapatkan beberapa soal
yang tidak tuntas
2. pada sheet 2. (kesimpulan) mensortir/memilih nomor-nomor soal yang tidak
tuntas
hasil yang diinginkan:
pada sheet2 (kesimpulan) tercantum secara otomatis nomor-nomor soal yang tidak
tuntas tersebut
(contoh terlampir)
mohon bantuan para pakar, atas perhatian dan jawaban yang tidak terlalu lama
dihaturkan terimakasih.
salam
husnul
Jwb_analisis tdk tuntas.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
