Halo sobat Belajar Office, sudah lama tidak menulis dan baru kali ini admin bisa update kembali. Pada artikel ini kita akan membahas tentang cara Membuat Tombol Print Otomatis Pada Slip Gaji Excel Satu Lembar Beberapa Slip Sekaligus yang sudah dibahas sebelumnya, sehingga bisa digunakan mencetak secara otomatis slip-slip gaji karyawan dengan mudah, praktis serta bisa berhemat kertas karena satu lembar bisa untuk beberapa slip, cukup dengan menekan tombol print yang akan kita buat ini menggunakan koding Excel vba macro.
Supaya sobat bisa mengikuti silahkan sobat download filenya pada link ini File Latihan Membuat Tombol Print Excel VBA Slip Gaji
Pada format excel tersebut admin buat dengan menggunkan cara kerja rumus yang cukup simpel yaitu pengabungan dari rumus Excel vlookup, INDEXT dan MATCH yang akan dipadukan dengan Excel VBA looping loncat dengan kelipatan sesuai dengan jumlah slip gaji perlembarnya. Pada contoh ini satu lembar bisa untuk 3 slip gaji.
Pada artikel ini admin tidak akan membahas lagi tentang rumus vlookupnya, sobat-sobat jika ingin mendalaminya silahkan baca pada artikel ini Slip Gaji Excel Satu Lembar Beberapa Slip Sekaligus
pada kesempatan ini admin hanya akan membahas cara menambahkan tombol print VBA macro lengkap dengan codingnya.
Langsung saja berikut ini contoh gambarnya :
Setelah didownload file diatas selanjutnya kita buka file tersebut
Pertama siapkan terlebih dahulu kolom untuk pengisian data-data pengaturan no yang akan diprint sebagai berikut :
- Dari No pada cell L5 (untuk input nomer urutan yang akan di print mulai dari …)
- Sampai No pada cell L6 (untuk input nomer urutan yang akan di print sampai no …)
- Jml Copy pada cell L7 (untuk input rangkap slip gaji yang akan diprint)
Kemudian kita tambahkan dua buah command button
Klik dari tab menu DEVELOPER >>> klik Insert >> Command Button
Jika pada MS Excel sobat yang sobat gunakan, belum muncul atau belum terdapat tab menu developer maka harus disetting dulu, silahkan baca pada artikel ini Belajar VBA dan Macro Pada Excel Pemula
Selanjutnya kita letakan dua buah tombol seperti pada gambar diatas dengan nama CommandButton1 dan CommandButton1 kemudian kita atur propertiesnya, atur captionnya atau nama tampilannya menjadi :
- CommandButton1 = Print
- CommandButton2 = Preview
Klik kanan pada tombol commandButton1 >>> Properties >> Caption
Selanjutnya klik kanan pada tombol Print/CommandButton1 selanjutnya ketikan koding dibawah ini
Dim i As Integer
Private Sub CommandButton1_Click()
mulai = Range(“L5”).Value
Sampai = Range(“L6”).Value
kali = Range(“L7”).Value
i = mulai
Do While i <= Sampai
Worksheets(“SlipGaji”).Range(“H2”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 2).Value
Worksheets(“SlipGaji”).PrintOut Copies:=kali
i = i + 3
Loop
End Sub
Penjelasan dan cara kerja rumusnya :
Ketika tombol print ditekan maka printer akan mencetak slip gaji mulai dari pada data yang diiput pada cell L5, NIK muncul pada cell L5 kemudian rumus vlookup aktif data-data slip gaji no 1 muncul, kemudian untuk slip no2 NIK muncul otomatis menggunakan rumus index dan Match berdasarkan data dari NIK slip gaji no 1, maka vlookup pada slip gaji no 2 aktif dan memunculkan data-data gaji, slip gaji ke 3 juga sama prinsipnya.
Selanjutnya koding rumus looping akan aktif dengan loncat 3 maka pada NIK atas akan muncul otomatis NIK melanjutkan data yang belum di cetak. Proses printing akan berhenti ketika cell L6 terpenuhi, sedangkan cell L7 untuk menentukan rangkap yang akan dicetak. Pusing ya bacanya..
Selanjutnya masukan koding untuk tombol Preview/CommandButton2
Klik kanan pada tombol preview pilih >> View Code
Selanjutnya ketikan koding dibawah ini
Private Sub CommandButton2_Click()
Worksheets(“SlipGaji”).PrintPreview
End Sub
Selesai, pembahasan menganai cara Membuat Tombol Print Otomatis Pada Slip Gaji Excel dan sudah siap digunakan, selamat mencoba.
Untuk file yang sudah jadi bisa sobat download pada link dibawah ini, silahkan dikembangkan sesuai kebutuhan masing-masing.
Slip Gaji gaji Lengkap dengan tombol print otomatis (1 lembar 3 slip)
Slip Gaji gaji Lengkap dengan tombol print otomatis (1 lembar 4 slip)
Terimakasih semoga bermanfaat.
Gak ada yg bisa di download boss. Tolong bantuannya..
Bisa mas Edi kirimkan lewat email.saya saja d nawas@live.com yg berjudul Slip Gaji gaji Lengkap dengan tombol print otomatis (1 lembar 4 slip)
Bro mau tanya, yg download 1 lmbr 4 sheet itu kan setiap ganti data harus di klik manual, kalau datanya ada 1000 kan tidak mungkin untuk klik satu persatu untuk ganti datanya, bagai mana cara agar otomatis ganti data setiap halamanya?
Yg ada tombol print udh otomatis. Coba tekan tombol print dan Perhatikan data2nya maka otomatis berubah.
Terimakasih
cara runningnya gimana nih? di klik tombol print / preview malah buka code dia
Jika muncul kode maka harus ditekan dulu design modenya caranya : Klik Tab Menu DEVELOPER >>> pada group controls klik Design Mode.
Terimakasih
dsana kn input nya cm smpai 20 cara menambahnya gmn y ?
harus ditambah juga rumus range data atau named rangenya
terimakasih
terimakasih saya banyak belajar dr sini
terimakasih ilmunya
Terima kasih ilmunya sangat bermanfaat . . alhamdulillah administrasi jadi lancara
Makasih banyak aplikasi dan tutorialnya. sangat bermanfaat mas. postnya edukatif banget.
Sama -sama sobat belajar office
terimakasih,sangat membantu
agak bingung untuk pemula tapi akhirnya bisa juga