Membuat Laporan Hasil Belajar Siswa dengan Excell dan Macro

Posted in: Lain-lain,Nasional,Teknologi,Tips

Membuat Laporan Hasil Belajar Siswa dengan Excell ditambah Macro

Seiring dengan perkembangan jaman dan juga teknologi yang semakin maju dan modern, maka untuk membuat Laporan Hasil Belajar Siswa, tidak lagi dengan ditulis tangan secara manual. Akan tetapi sudah mulai dengan konsep Komputerisasi. Maka disini sedikit saya akan sajikan bagaimana konsep pembuatannya dan kira - kira seperti apa hasil keluarannya. Selain itu apa saja yang diperlukan. 

Yang kita perlukan pertama adalah model kolom untuk Rapor Siswa sebagai berikut

Selanjutnya kita perlu Tabel induk untuk Nilai Siswa

Setelah tabel induk selesai kita buat kemudian kita masukkan Nilai Pelajaran Utama yang diperoleh siswa dan juga Nilai yang lainnya. Setelah semua selesai maka kita tinggal membuat rangking untuk siswa tersebut.

Ketika tabel induk sudah selesai semua kita tinggal menghubungkan dengan Rapor siswa memakai perintah Vlookup. Dengan perintah Vlookup ini maka semua data yang nantinya kita butuhkan akan disalin dari Tabel Data Induk ke dalam Rapor siswa dengan memakai kunci NIS (Nomor Induk Siswa) sebelum kita cetak.

Setelah semua data bisa terbaca dan benar maka kita akan menambahkan tobol untuk pencetakan Rapor Siswa. Disini kita perlu menampilkan Form Controls dan Activex Control, kemudian kita pakai Buttom dari Form Controls kita tambahkan satu tombol untuk cetak/print.

 

Setelah Tombol terbuat, kita perlu menambahkan perintah dengan Macro Excell, agar tombol tersebut bisa kita gunakan.

Berikut Macro untuk tombol cetak

Sub Button1_Click()
'
' Print Rapor dengan Macro
' created by Eko Prapto Nugroho
'
    Mulai = Range("J13").Value
    Sampai = Range("J14").Value
   
'Tampilan No Absen
    Range("J20").Select
    ActiveCell.FormulaR1C1 = "=R[-7]C"
   
'Perintah Cetak
    For a = Mulai To Sampai
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
    Range("L20").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]+1"
    Range("L20").Select
    Selection.Copy
    Range("J20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Range("L20").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]+1"
    Range("J20").Select
   
'Simpan Data
    ActiveWorkbook.Save
    Next a
   
'Tampilan No Absen
    Range("J20").Select
    ActiveCell.FormulaR1C1 = "=R[-7]C"
   
'Membuat No Absen Awal selalu 1
    Range("J13").Select
    ActiveCell.FormulaR1C1 = "1"
   
'Membuat No Absen Akhir untuk akhir cetak sama dengan jumlah siswa
    Range("J14").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C"
   
End Sub

Setelah dicetak maka hasil cetakannya akan seperti ini

Ada yang ingin sekedar bertanya atau tukar pendapat, silahkan komentar atau email.

Kalau ada yang tertarik saya ada program yang sudah teruji.

Selamat Mencoba,

3:07 AM  Unknown   38 comments