Selamat Datang Di DUMAY (Dunia Maya). Powered by Blogger.

Monday, July 23, 2012

Membuat Laporan Hasil Belajar Siswa dengan Excell dan Macro

Monday, July 23, 2012

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,


38 comments:

Eko PN said...

Belajar memperdalam penggunaan Excell dan Macro.

Anonymous said...

gan boleh minta penjelasan lebih mendetail lagi ga!!
kalau perlu tanmbah screenshotna lagi

Eko Prapto Nugroho said...

Boleh saja gan, penjelasan seperti apa mungkin saya bisa bantu. Bagian mana yang ingin diperjelas gan nanti bisa saya tambahkan screenshotnya. Kita sama-sama belajar gan.

Anonymous said...

Pak Boleh Minta filenya gak pak

Eko Prapto Nugroho said...

Boleh saja. Silahkan kirim email ke eko_pn2004@yahoo.com

muhammad ishak said...

Pak, Minta Filenya yach. tolong kirim ke email loveisfa@yahoo.co.id
buat belajar dan memahami lagi tentang excel.
thanks
regard,
M. Ishak

Eko Prapto Nugroho said...

Baik mas Muhammad Ishak, dengan catatan jangan dibuat komersial. Hanya sebagai bahan pembelajaran saja.
Kalau ada hal yang perlu disharing nanti kita sharing bersama.

Nanti saya kirim ke email.

Salam.

Anonymous said...

Pak, Minta Filenya yach. tolong kirim ke email smabojong@yahoo.co.id
Makacih Pak Sebelumnya
Masjon.

Eko Prapto Nugroho said...

Baik Pak nanti saya kirim untuk bahan ajar anak-anak. Terima kasih atas kepercayaannya. Nanti kalau ada hal yang perlu disharing bisa kita sharing bersama.

Salam,
Eko PN

tiknosunni said...

Pak Eko tolong kirim filenya ke tiknosunni71@gmail.com. Trims sebelumnya.

Eko Prapto Nugroho said...

OK mas Tikno, link sudah saya kirim ke email anda. Kalau ada hal yang perlu kita diskusikan saya selalu terbuka.

Salam,
EKO PN

tiknosunni said...

Terima kasih. Sudah saya unduh. Sekali lagi terima kasih.

Eko Prapto Nugroho said...

Baik mas Tikno, mudah-mudahan bermanfaat. Dan kalau ada hal pengembangan mungkin saya bisa diinfo.

Salam,
EKO PN

ach.hadi said...

Pak Eko saya boleh minta filenya,,, Tolong Pak dikirim ke ach.hadi@gmail.com

saya pengen mendalaminya,,

Terima kasih banyak Pak Eko.

Eko Prapto Nugroho said...

Mas Ach. Hadi
Link Download sudah saya kirimkan. Maaf agak terlambat, karena beberapa waktu tidak sempat online.

Semoga bermanfaant.
Salam.

Ruddy Pakasi said...

Pak Eko yth.
Mohon saya juga dikirimi file tsb. Ini email saya
rpakasi@hotmail.com
terima kasih

Eko Prapto Nugroho said...

Kepada semua yang sudah terima file, mohon dipergunakan dengan sebaik-baiknya. Dan mohon jangan dikomersialkan.

Terima kasih atas perhatiannya.

Eko PN

cloud vanguard said...

Pak Eko
Klo boleh sya juga mau pak link dari file ini untuk belajar lebih dalam tentang pembuatan rapor
tolong d kirim ke devilrevizul@gmail.com

thanks a lot

Eko Prapto Nugroho said...

OK boss, nanti saya kirim ke email. Ditunggu saja.

Salam buat excell mania dimanapun.

Eko PN

Anonymous said...

artikel yang bermanfaat. tlg dikirim copy filenya ya. trim sebelumnya. Email Titokx@yahoo.co.id

Eko Prapto Nugroho said...

OK mas Titok, link download sudah saya kirimkan. Semoga bermanfaat unutk belajar, dan mohon jangan dibuat untuk komersial.

Salam,
Eko PN

Anonymous said...

pak minta filenya ke alamat email saya : suratman_smeansa@yahoo.com
nuwun

Anonymous said...

salam sejahtera pak eko, setelah saya baca artikelnya bagus juga dan sering digunakan oleh wali kelas atau para pengajar. pak eko kalau masih berkenan tolong kirim filenya ke wiwid_saceng@yahoo.com atas sharenya saya ucapkan terima kasih

Anonymous said...

assalam. mas eko bisa kirim file membuat lapor dengan excel, macro ke email:aqilhanifby@yahoo.co.id

Eko Prapto Nugroho said...

To
'suratman_smeansa@yahoo.com'; 'wiwid_saceng@yahoo.com'; 'aqilhanifby@yahoo.co.id'

Link download sudah saya kirim ke email masing-masing. Maaf agak lama karena kesibukan akhir-akhir ini cukup menyita waktu.

Salam,
Eko nPN

Anonymous said...

pak eko, boleh minta contoh filenya, saya masih belum paham untuk penerapan di excelnya, di macro nya ada perintah :

Range("L20").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+1"

saya tidak melihat L20 itu diisi apa. kemudian untuk perintah selanjutnya (ActiveCell.FormulaR1C1 = "=RC[-2]+1") mohon dijelaskan untuk apa.

minta filenya ke : willyfransisca@gmail.com.

terima kasih atas waktunya.

herublogger said...

om boleh minta dikirim ke email saya herubye@gmail.com

Anonymous said...

Pak Eko
Klo boleh sya juga mau pak link dari file ini untuk belajar lebih dalam tentang pembuatan rapor
tolong d kirim ke charcudin@gmail.com

thanks a lot


SMK Al-Mu'in said...

wah cukup menarik neh kebetulan saya juga lagi belajar,....pak boleh minta filenya gak?kirim ke ryo_dean@yahoo.com
saya juga ingin belajar lagi

Anonymous said...

pak mohon dikirimkan filenya ke kami:
maetrqlat@yahoo.com
Terima kasih semoga bermanfaat bagi kita di dunia pendidikan.

SERVICE PRINTER MOJOKERTO said...

Saya Sudah mencoba pak tapi belum Paham
Range("L20").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+1"
Mohon bantuannya untuk dikirimin filenya ke valentinosholly@gmail.com
Terima kasih...

Anonymous said...

klo boleh saya jg mau ia buat reverensi belajar
alditriawan4@gmail.com

SERVICE PRINTER MOJOKERTO said...

Pak Eko saya sudah mengutak atik namun masih gagal juga.. mohon saya dikirimin filenya ke valentinosholly@gmail.com. terima kasih...

SERVICE PRINTER MOJOKERTO said...

Range("L20").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+1"

(ActiveCell.FormulaR1C1 = "=RC[-2]+1")

Mohon pencerahnya tentang code diatas. Saya sudah coba tapi cuman ngrepint halaman pertama saja.. Terima Kasih..

Majalah Tanam said...

mohon filenya email fauzannasution@yahoo.com makasi

Majalah Tanam said...

mohon filenya fauzannasution@yahoo.com

roro mendut said...

mohon tolong jelaskan
Range("L20").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+1"

Anonymous said...

Kalau boleh mohon kirimkan filenya Bapak, masteranonymous81@gmail.com, terima kasih sebelumnya

Post a Comment

Share

Facebook Twitter Delicious Digg Stumbleupon Favorites More

 

Pengikut

Peta Pengunjung