Hai Husnul,
Tentu setiap pendaftar hari itu akan disimpan datanya ke sebuah sheet
tertentu bukan ?
Disebuah cells disheet penyimpanan tersebut atau (lebih baik) di sheet
lain, buat sebuah formula untuk menghitung jumlah record yang akan Anda
tampilkan dalam userform.
Contoh :
1. buat workbook baru, isi dengan 2 buah sheet saja, sheet pertama beri
nama 'data' dan sheet kedua beri nama 'setting'
2. di sheet 'data', cell A1 diberi header bernama 'tanggal'
3. di sheet 'setting' cell g7 diberi formula berbunyi
=counta('data'!a:a)-1
4. save as workbook beri nama file, tapi pilih type nya adalah Macro
Enabled (xlsm)
5. ke VBE (tekan ALT F11) -> menu Insert -> Userform
6. tekan F4 berulang agar keluar properties windows
7. tambahkan control Label (BUKAN TEXTBOX) ke userform (letakkan sesuka
Anda, mau di pojok kiri atas atau dimana saja asal agak lebar dan panjang)
dan beri nama label_NOMOR melalui properties windows di properti bernama
*(Name)*
8. tambahkan control CommandButton ke userform dan beri nama cmdADD melalui
properties windows di properti bernama *(Name)*
9. ubah properti caption milik control cmdADD dengan teks berbunyi TAMBAH
DATA
10. buat event initialize milik userform dan isi dengan script :
application.calculation=xlcalculationautomatic
label_Nomor.caption = sheets("setting").range("g7").value & _
"ekor telah terdaftar. Nomor
pendaftar saat ini adalah " & _
sheets("setting").range("g7").value+1
11. buat event click milik si command button dan isi dengan script :
dim lBarisBaru as long
lbarisbaru= sheets("setting").range("g7").value+2
sheets("data").range("a" & lbarisbaru ).value=now
sheets("data").range("a" & lbarisbaru ).numberformat="YYYY-MM-DD
HH:mm:ss.000"
sheets("data").range("a" & lbarisbaru ).format
label_Nomor.caption = sheets("setting").range("g7").value & _
" ekor telah terdaftar. Nomor
pendaftar saat ini adalah " & _
sheets("setting").range("g7").value+1
12. save workbook dan jalankan userform
Wassalamu'alaikum wr wb
Kid.
On Mon, Dec 1, 2014 at 7:56 PM, Husnul Faizin [email protected]
[belajar-excel] <[email protected]> wrote:
>
>
> untuk lebih dimengerti penjelasan mr.kid, bisa dicontohkan solusi yang
> dituliskan oleh master, terus kriteria formula countifnya merujuk kemana
> master?
>
>
> Pada Sabtu, 29 November 2014 2:37, "'Mr. Kid' [email protected]
> [belajar-excel]" <[email protected]> menulis:
>
>
>
> Coba isi dengan jumlah record yang ada. Jika pendaftar pertama diinput
> dan disimpan di sheet A, maka hitung jumlah record di sheet A dan tampilkan
> di userform. Jika ada ketentuan reset counter per suatu tanggal (misal per
> 1 januari setiap tahun akan mulai dari 0 lagi), maka simpan data pendaftar
> beserta tanggal daftarnya saat save ke sheet A. Hitung jumlah record di
> sheet A yang (bisa pakai CountIF) kolom tanggalnya >= tanggal reset
> terakhir, misal ">="&date(year(today()),1,1) pada formulasi countif-nya
>
> Wassalam,
> Kid.
>
>
> 2014-11-28 4:13 GMT+11:00 Husnul Faizin [email protected]
> [belajar-excel] <[email protected]>:
>
>
> Yth. Para master bexcel
> mohon bantuannya script prosedur macro memunculkan jumlah pendaftar secara
> dinamis setiap hari pada form userform.
> maksudnya jika pada hari A jumlah yang mendaftar 20 orang, maka pada
> userformnya tertulis "Jumlah Pendaftar = 20 Orang". pada hari B
> pendaftarnya 5 orang, maka pada userformnya tertulis "Jumlah Pendaftar = 25
> Orang". seterusnya pada hari berikutnya diakumulasi secara dinamis. kurang
> lebih ilustrasinya seperti itu.
> yang kedua lalu bagaimana mengatur tata letaknya mis: kita akan letakkan
> di TopRight ato BottomRight.
>
> terimakasih sebelumnya atas solusi yang diberikan.
> faiz
>
>
>
>
>
>
>
