Hallo sobat setia belajar office, dan tetap semangat !. Pada kesempatan ini admin akan mencoba berbagi atau sharing untuk sobat-sobat semua, khususnya untuk guru yaitu belajar membuat tombol otomatis cetak rapot/hasil ujian siswa sederhana menggunakan rumus excel VBA Macro, sehingga mudah untuk dipahami.
Pada artikel sebelum admin sudah membahas cara membuat Cetak Rapot Sederhana Rumus Excel vlookup, namun memang ada kekurangannya yaitu untuk cara mencetaknya masih manual atau satu persatu, jadi kurang efektif jika jumlah muridnya cukup banyak. Untuk kita akan membahas cara membuat format cetak rapot sederhana dengan tombol otomatis menggunakan rumus Excel VBA Macro looping.
Langsung saja, caranya sangat mudah yaitu sebagai berikut :
- Pertama kita buat dulu sheet 1 dengan nama “Data” yang berisi data siswa dengan nilai-nilai fix yang sudah siap untuk dicetak/print, seperti gambar dibawah ini.
- Selanjutnya kita buat sheet 2 dengan nama “Rapot print otomatis” contohnya seperti gambar dibawah ini
Data-datanya meliputi : No Induk, Nama, Kelas, Nilai pelajaran Angka dan Huruf, Kelulusan dsb, silahan disesuaikan dengan kebutuhan.
Untuk membuat terbilang cara paling mudah bisa menggunakan add in terbilang sudah pernah admin bahas, silahkan untuk mendalaminya baca disini Membuat Terbilang Excel Menggunakan Addin
Rumusnya
=terbilang(C14)
Untuk kelulusan gunakan rumus excel if (bisa disesuaikan dengan kebutuhan)
=IF(OR(C14<6;C15<6;C16<6;C17<6);”Tidak Lulus”;”Lulus”)
Rumus kelulusan diatas siswa dinyatakan lulus jika nilai pelajaran tidak ada yang dibawah enam.
- Selanjutnya cara membuat tombol print otomatis
Dari menu developer buatlah dua buah button/tombol yang pertama untuk print dan yang kedua untuk print preview, seperti contoh gambar diatas. Siapkan juga cell untuk print dari no, sampai no dan jml copy.
Selanjutnya masuk pada coding VBA Macro
Print preview dulu yang paling mudah
Sub Button2_Click()
Worksheets(“Rapot print otomatis”).PrintPreview
End Sub
Koding print
Sub Button1_Click()
mulai = Range(“G3”).Value
sampai = Range(“G4”).Value
kali = Range(“G5”).Value
For i = mulai To sampai
Worksheets(“Rapot print otomatis”).Range(“B6”).Value = Worksheets(“Data”).Cells(4 + i, 1).Value
Worksheets(“Rapot print otomatis”).Range(“B7”).Value = Worksheets(“Data”).Cells(4 + i, 2).Value
Worksheets(“Rapot print otomatis”).Range(“B8”).Value = Worksheets(“Data”).Cells(4 + i, 3).Value
Worksheets(“Rapot print otomatis”).Range(“C14”).Value = Worksheets(“Data”).Cells(4 + i, 4).Value
Worksheets(“Rapot print otomatis”).Range(“C15”).Value = Worksheets(“Data”).Cells(4 + i, 5).Value
Worksheets(“Rapot print otomatis”).Range(“C16”).Value = Worksheets(“Data”).Cells(4 + i, 6).Value
Worksheets(“Rapot print otomatis”).Range(“C17”).Value = Worksheets(“Data”).Cells(4 + i, 7).Value
Worksheets(“Rapot print otomatis”).PrintOut Copies:=kali
Next i
End Sub
Kodinganya sangat mudah copy saja
Penjelasan
- mulai = Range(“G3”).Value >>> koding ini untuk dari no berapa data akan diprint, yang harus diperhatikan rangenya saja pada cell mana yaitu G3
- sampai = Range(“G4”).Value >>> koding ini untuk sampai no berapa data akan diprint yang harus diperhatikan rangenya saja pada cell mana yaitu G4
- kali = Range(“G5”).Value >>> koding ini berapa kali copy akan diprint yang harus diperhatikan rangenya saja pada cell mana yaitu G5
Selanjutnya untuk data siswa dan nilainya : intinya yang harus disesuaikan range antara sheet data nilai dengan sheet untuk format cetaknya:
Sheet2 “Rapot print otomatis” =Sheet1 “Data”
Contohnya :
Untuk No Induk
Worksheets(“Rapot print otomatis“).Range(“B6”).Value = Worksheets(“Data“).Cells(4 + i, 1).Value
Penjelasan
Worksheets(“Rapot print otomatis”) harus sesuaikan nama sheetnya harus sama yang kita buat misalnya “Rapot print otomatis”
Range(“B6“) Untuk No Induk pada sheet Rapot print otomatis pada Cell B6
= Dicocokan atau disamakan
Worksheets(“Data”).Value harus sesuai dengan nama sheet data nilanya misalnya “Data”
Cells(4 + i, 1).Value untuk cell ini kita sesuaikan dengan sheet data No Induk yaitu mulai baris ke 5 kolom ke 1
ket:
4+ i untuk baris
1 untuk kolom
Dengan fungsi looping for >> next , sehingga untuk baris menjumlahkan +1 terus menerus otomatis saat cetak sesuai dengan dari no sampai no yang kita tentukan.
Silahkan sobat tentukan untuk cell yang lainnya.
Contoh file yang sudah jadi silahkan download pada link dibawah ini untuk disesuaikan dan dipelajari
Terimakasih semoga bermanfaat.
Bro sy sdh coba bkin tpi setelah sy tekan ad pemberitahuan di visual basic yg “sub button1_click()” terblok wrn kuning ..
Mhon bantuannya bro
Kemungkinan ada koding yang error atau debug sob.