Alhamdulillah akhirnya bisa diterapkan sesuai dengan harapan setelah mengikuti
penjelasan mr.kidTerimakasih master untuk ilmunya yang terus mengalir ke semua
member milis ini.
wassalam.faiz
Pada Kamis, 4 Desember 2014 12:18, "'Mr. Kid' [email protected]
[belajar-excel]" <[email protected]> menulis:
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 bexcelmohon 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
#yiv9095067011 #yiv9095067011 -- #yiv9095067011ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9095067011
#yiv9095067011ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9095067011
#yiv9095067011ygrp-mkp #yiv9095067011hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv9095067011 #yiv9095067011ygrp-mkp #yiv9095067011ads
{margin-bottom:10px;}#yiv9095067011 #yiv9095067011ygrp-mkp .yiv9095067011ad
{padding:0 0;}#yiv9095067011 #yiv9095067011ygrp-mkp .yiv9095067011ad p
{margin:0;}#yiv9095067011 #yiv9095067011ygrp-mkp .yiv9095067011ad a
{color:#0000ff;text-decoration:none;}#yiv9095067011 #yiv9095067011ygrp-sponsor
#yiv9095067011ygrp-lc {font-family:Arial;}#yiv9095067011
#yiv9095067011ygrp-sponsor #yiv9095067011ygrp-lc #yiv9095067011hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9095067011
#yiv9095067011ygrp-sponsor #yiv9095067011ygrp-lc .yiv9095067011ad
{margin-bottom:10px;padding:0 0;}#yiv9095067011 #yiv9095067011actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9095067011
#yiv9095067011activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9095067011
#yiv9095067011activity span {font-weight:700;}#yiv9095067011
#yiv9095067011activity span:first-child
{text-transform:uppercase;}#yiv9095067011 #yiv9095067011activity span a
{color:#5085b6;text-decoration:none;}#yiv9095067011 #yiv9095067011activity span
span {color:#ff7900;}#yiv9095067011 #yiv9095067011activity span
.yiv9095067011underline {text-decoration:underline;}#yiv9095067011
.yiv9095067011attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv9095067011 .yiv9095067011attach div a
{text-decoration:none;}#yiv9095067011 .yiv9095067011attach img
{border:none;padding-right:5px;}#yiv9095067011 .yiv9095067011attach label
{display:block;margin-bottom:5px;}#yiv9095067011 .yiv9095067011attach label a
{text-decoration:none;}#yiv9095067011 blockquote {margin:0 0 0
4px;}#yiv9095067011 .yiv9095067011bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv9095067011
.yiv9095067011bold a {text-decoration:none;}#yiv9095067011 dd.yiv9095067011last
p a {font-family:Verdana;font-weight:700;}#yiv9095067011 dd.yiv9095067011last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9095067011
dd.yiv9095067011last p span.yiv9095067011yshortcuts
{margin-right:0;}#yiv9095067011 div.yiv9095067011attach-table div div a
{text-decoration:none;}#yiv9095067011 div.yiv9095067011attach-table
{width:400px;}#yiv9095067011 div.yiv9095067011file-title a, #yiv9095067011
div.yiv9095067011file-title a:active, #yiv9095067011
div.yiv9095067011file-title a:hover, #yiv9095067011 div.yiv9095067011file-title
a:visited {text-decoration:none;}#yiv9095067011 div.yiv9095067011photo-title a,
#yiv9095067011 div.yiv9095067011photo-title a:active, #yiv9095067011
div.yiv9095067011photo-title a:hover, #yiv9095067011
div.yiv9095067011photo-title a:visited {text-decoration:none;}#yiv9095067011
div#yiv9095067011ygrp-mlmsg #yiv9095067011ygrp-msg p a
span.yiv9095067011yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9095067011
.yiv9095067011green {color:#628c2a;}#yiv9095067011 .yiv9095067011MsoNormal
{margin:0 0 0 0;}#yiv9095067011 o {font-size:0;}#yiv9095067011
#yiv9095067011photos div {float:left;width:72px;}#yiv9095067011
#yiv9095067011photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv9095067011
#yiv9095067011photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9095067011
#yiv9095067011reco-category {font-size:77%;}#yiv9095067011
#yiv9095067011reco-desc {font-size:77%;}#yiv9095067011 .yiv9095067011replbq
{margin:4px;}#yiv9095067011 #yiv9095067011ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv9095067011 #yiv9095067011ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9095067011
#yiv9095067011ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9095067011
#yiv9095067011ygrp-mlmsg select, #yiv9095067011 input, #yiv9095067011 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv9095067011
#yiv9095067011ygrp-mlmsg pre, #yiv9095067011 code {font:115%
monospace;}#yiv9095067011 #yiv9095067011ygrp-mlmsg *
{line-height:1.22em;}#yiv9095067011 #yiv9095067011ygrp-mlmsg #yiv9095067011logo
{padding-bottom:10px;}#yiv9095067011 #yiv9095067011ygrp-msg p a
{font-family:Verdana;}#yiv9095067011 #yiv9095067011ygrp-msg
p#yiv9095067011attach-count span {color:#1E66AE;font-weight:700;}#yiv9095067011
#yiv9095067011ygrp-reco #yiv9095067011reco-head
{color:#ff7900;font-weight:700;}#yiv9095067011 #yiv9095067011ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv9095067011 #yiv9095067011ygrp-sponsor
#yiv9095067011ov li a {font-size:130%;text-decoration:none;}#yiv9095067011
#yiv9095067011ygrp-sponsor #yiv9095067011ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv9095067011
#yiv9095067011ygrp-sponsor #yiv9095067011ov ul {margin:0;padding:0 0 0
8px;}#yiv9095067011 #yiv9095067011ygrp-text
{font-family:Georgia;}#yiv9095067011 #yiv9095067011ygrp-text p {margin:0 0 1em
0;}#yiv9095067011 #yiv9095067011ygrp-text tt {font-size:120%;}#yiv9095067011
#yiv9095067011ygrp-vital ul li:last-child {border-right:none
!important;}#yiv9095067011
