Contoh Surat Contoh - Contoh Format Penulisan Surat !

Tombol Print Raport Otomatis Excel VBA Macro

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.
Data Nilai

Data Nilai

  • Selanjutnya kita buat sheet 2 dengan nama “Rapot print otomatis” contohnya seperti gambar dibawah ini
Tombol Print Rapot Otomatis

Tombol Print Rapot Otomatis

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

Tombol Print Raport Otomatis Excel VBA Macro

Terimakasih semoga bermanfaat.

2 Comments

Tinggalkan Balasan

This site uses Akismet to reduce spam. Learn how your comment data is processed.