Membuat nomor urut model Kwitansi - Pembahasan kali ini masih seputar membuat nomor urut, berbeda dengn ketig artikel sebelunya yang membehas tentang nomor urut, untuk kali ini saya akan bagikan kepada anda cara membuat nomor urut yang biasa digunakan untuk id pada nomor kwitansi, and pasti sudah bisa menerka bagaimana nomor urut kwitansi yang pastinya tidak hanya berupa nomor urut 1,2,3,4,5 akan tetapi biasanya nomor urut pada kwitansi ada awalanya semisal awalan oberupa huruf atau awalan berupa bulan dan tahun atau awalanya berupa gabungan keduanya


Membuat nomor urut dengan For Next
Membuat nomor urut tanggal dan jam secara otomasti
Membuat nomor urut dengan rumus excel

Contoh beberapa model nomor urut ang lazim dgunakan untuk membuat ID pada masing masing Kwitansi diantaranya : KW-000001, 12/2017/000001 atau gabungan keduanya KW/12/17/000001

Untuk membuat nomor urut kali ini saya tidak menggunakan rumus excel, akan tetapi saya akan menggunakan macro yang sudah jelas lebih baik dari rumus excel, untuk memulainya saya asumsikan anda menggunakan tabel penerimaan pembayaran uang SPP sekolah, sebagaimana gambar dibawah ini


Perhatikan pada kolom B nomor kwitansi masih kosong, untuk menyelesaikanya simak baik baik tutorial Membuat nomor urut model Kwitansi dibawah ini :

Buka tab ribbon developer > pilih insert > Button (form Control), saat terbuka jendela Asign Macro pilih New, coba perhatikan gambar


Otomasti anda akan dibawa kejendela VBE, pada jendela inilah kode macro diketik untuk menyelesaikan tugas diatas

Untuk nomor urut jenis KW-000001, 12/2017/000001 atau gabungan keduanya KW/12/17/000001, silahkan masukan kode macro ini

Sub Button1_Click()
Set ws1 = Sheet1
For Jos = 1 To WorksheetFunction.CountA(ws1.Range("A4:A10"))
Awalan = "KW-"
Baris = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Offset(0, 0).Row - 2

ws1.Cells(Jos + 3, 2).Value = Awalan & Baris

Next Jos
End Sub

Sekarang tutup jendela VBE, lalu klik tombol yang barusan tadi dibuat, jika anda mengikuti petunjuk dengan benar maka hasilnnya akan sepert gambar dibawah ini


Membuat nomor urut model Kwitansi

Untuk menyesuaikan nomor kwitansi silahkan perhtikan keterangan berikut ini :

(ws1.Range("A4:A10")) : Baris pertama isi tabel diatas dimulai dari nomor 4, dan baris akhirnya adalah baris nomor 10

..."B").End(xlUp).Offset(0, 0).Row - 2 : Kolom yang diisi nomor kwitansi adalah kolom B, Row - 2 Jumlah baris dikurngi 2, jika isi baris pertama berada pada baris ke 5 maka dikurangi 3 dan seterusnya

ws1.Cells(Jos + 3, 2).Value : Angka 3 adalah nomor baris, mengapa bukan 4 tapi 3 ? jawab 4 merupakan baris kosong jadi yang dihitung adalah baris aktifnya. angka 2 adalah nomor kolom B

Awalan = "KW-" : Kode yang ini bisa anda modifikasi sesuka hati, misalnya ditambahi menjadi tanggal bulan dan tahun tinggal ganti saja Awalan = Format(date,"dd/mm/yy") atau Awalan = "KW/" & Format(date,"mm/yy") dan seterusnya

Saat menjalankan macro maka hapus semua isi pada kolom B

Demikianlah cara Membuat nomor urut model Kwitansi, jika masih ada pertanyaan silahkan isi dikolom komentar :). Semoga bisa dipahami dan semoga bemanfaat
No comments