Baiklah, Bagi yang ingin bermain dengan variabel range : nama-nama variabel range (agar seragam) : 1. rngHasil dengan tipe range untuk wadah object range dari tabel hasil 2. rngData dengan tipe range untuk wadah object range dari tabel data
*Jika dibutuhkan* : 1. lRecData tipe Long untuk jumlah record (tanpa header) di tabel data 2. lRecHasil tipe Long untuk jumlah record (tanpa header) di tabel hasil 3. lRowsData tipe Long untuk jumlah baris data (include header) di tabel data 4. lRowsHasil tipe Long untuk jumlah baris data (include header) di tabel hasil 5. shtData tipe worksheet untuk wadah object worksheet data 6. shtHasil tipe worksheet untuk wadah object worksheet hasil 7. wbkA tipe workbook untuk wadah object workbook tempat kerja 8. rngTmp tipe range untuk wadah object range temporary 9. lLoop tipe long untuk nilai loop 10. vTmp tipe variant untuk wadah apa saja 11. sFormula1 tipe string untuk teks formula ke-1 12. sFormula2 tipe string untuk teks formula ke-2 -> bisa dibuat jadi sFormulaN dengan N mulai dari 1 sampai seperlunya Sepertinya sudah cukup. Silakan dipilih dan digunakan sesuai kebutuhan. Jika tidak ingin menggunakan variabel juga boleh. Wassalam, Kid. 2012/9/7 <[email protected]> > ** > > > Sblm dimulai pak, pastinya berguna utk saya, dan brgkl jg ada member lain > yg tertarik belajar makro melalui thread ini. > Mohon pak Mr Kid berkenan mendeklarasikan variabel-variabelnya (dim var as > type data) terlebih dulu, supaya nantinya nama variabel bisa seragam > sehingga lebih mudah difahami. Trm ksh. > > Wassalam > > Sinurat > Powered by Telkomsel BlackBerry® > ------------------------------ > *From: * "Kid Mr." <[email protected]> > *Sender: * [email protected] > *Date: *Fri, 7 Sep 2012 03:00:08 +0700 > *To: *<[email protected]> > *ReplyTo: * [email protected] > *Subject: *Re: [belajar-excel] Makro Sisip Baris > > Bagaimana jika mulai mencoba membuat sendiri setahap demi setahap. > > Buat seluruh BeExceller yang ingin belajar VBA, silakan ikut mencoba. > Semoga lebih bisa cepat memahami VBA melalui kasus ini. > > Langkah-langkahnya secara umum adalah sebagai berikut. > 0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke > menu Insert -> pilih Module) > 1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa > 2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama. > 3. hitung jumlah record + header di hasil dan simpan disebuah variabel > 4. hide kolom nominal1 di data > 5. autofilter data pada kolom nominal2 yang tidak blank ("<>") > 6. data yang visible (gunakan specialcells visible) di copy dan paste ke > hasil dengan offset sebanyak variabel jumlah record (proses 3) > 7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil > proses 6) > 8. sort hasil berdasar kolom No secara menaik > 9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula > style R1C1 berbunyi : "=R[-1]C & ""(*)""" > 10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 : > "=n(R[-1]C)+1" > 11. kalkulasi sheet hasil > 12. copy paste special values area hasil > > Bagi yang masih bingung caranya, silakan posting dengan judul thread : > VBA xx. nama prosesnya > Contoh : > bingung cara nomor 5, buat thread baru (posting email baru ke milis) > dengan subject : > VBA 05. Autofilter data kolom nominal2 > > Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu, > supaya sama dan seragam. > Harapannya bisa mempermudah proses belajar bersama. > > Selamat mencoba dan tetap semangat belajar. > > Wassalam, > Kid. > > 2012/9/6 Imam Sinurat <[email protected]> > >> ** >> >> >> Salam Be-Excel.. >> >> Mohon dibantu bagaimana kode makro menyisip baris dan mengisi data yang >> sesuai. >> >> Yang diinginkan adalah sbb: >> 1. Semua record Tabel 1. ditampilkan kembali pada Tabel 2., baik Nama >> maupun Nominal1. >> 2. Setiap record yang kolom Nominal2 ada nilainya, maka sisipkan satu >> baris kosong tepat dibawah record tersebut, >> lalu isi nama yang sesuai dibubuhi tanda "(*)", dan Nominal2. >> >> Terima kasih sebelumnya, wassalam >> Imam F. Sinurat >> >> >> > >
