.:: RUMAH MENTOR

Beranda » Laporan Siswa » Membuat Laporan Hasil Belajar Siswa dengan Excell ditambah Macro

Membuat Laporan Hasil Belajar Siswa dengan Excell ditambah Macro

Kategori

Arsip

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,

Sumber: epnugroho.blogspot.com

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Job ngajar langsung dikirim ke email

Bergabunglah dengan 26.958 pengikut lainnya

MITRA KAMI

Bimbel BatasaCampus Tutorial Bimbel Alquran Cikaka Les Privat Bandung Rumah Privat Les Privat Jakarta, Bogor, Depok, Tangerang, Bekasi

JEJARING

Sekolah Mentor Logo Sekolah Guru Rumah Guru Indonesia
Desember 2016
S S R K J S M
« Nov   Mei »
 1234
567891011
12131415161718
19202122232425
262728293031  
lowongan-magang
%d blogger menyukai ini: