BUAT PARA PELAJAR, TETAP SEMANGAT BELAJAR DI RUMAH,JANGAN PANIK MENGHADAPI VIRUS CORONA, TAPI JANGAN REMEHKAN KARENA SIAPA SAJA BISA JADI KORBAN, SEMOGA PANDEMI CORONA SEGERA BERAKHIR SELAMAT DATANG DAN SELAMAT BERGABUNG BERSAMA "GARUDA BUKATEJA" DALAM SITUASI PANDEMI COFID 19

CARA MEMBUAT EVALUASI DIGITAL BAGIAN 9


9. Sheet Laporan Nilai/ Penghargaan

Laporan Nilai/ Pengargaan berfungsi untuk melaporkan hasil belajar siswa kepada orang tuanya, sehingga orang tuanya mengetahui hasil belajar yang dicapai. Dengan lembar ini berarti guru secara tidak langsung telah mengadakan komunikasi dengan orang tua siswa. Pada dasarnya sheet Penghargaan sama dengan sheet Nilai (Evaluasi Digital Bagian 7),
yaitu sama-sama memberikan informasi tentang nilai yang diperoleh siswa yang mengerjakan. Adapun perbedaannya adalah :
Pada sheet Nilai data yang masuk berasal dari sheet FormImput, sedangkan data yang masuk ke sheet Penghargaan dengan cara memanggil data dari sheet Database, kecuali tanggal dan guru pengampu. Nilai yang diperoleh siswa pada sheet Nilai akan terhapus setelah nilai tersimpan dan masuk ke Database.(gambar 12)
  1. Sheet Nilai berfungsi untuk menampilkan nilai siswa sebelum disimpan, sedangkan sheet Penghargaan berfungsi untuk menampilkan kembali nilai siswa yang telah tersimpan.
  2. Tombol link pada sheet Nilai salah satunya diarahkan ke sheet Penghargaan, begitu sebaliknya salah satu tombol link pada sheet Penghargaan diarahkan ke sheet Nilai. 
Baik pada sheet Nilai maupun sheet Penghargaan tombol Simpan, Cetak, dan EXIT perlu didukung dengan rumus VBA, karena pada saat di EXIT Evaluasi harus tersimpan dan direset terlebih dulu, sehingga dapat digunakan kembali oleh siswa lainnya.
Berikut adalah rumus untuk mengaktifkan tombol Simpan dengan rumus VBA (Modul 1) :
Lihat Evaluasi Digital Bagian 14 :

Sub Simpan()
MasukanData
Sheets("Nilai anda").Select         ..........dst
   'pesan berhasil
    MsgBox "Nilai Anda Telah Masuk !", vbInformation, "Terimakasih !"
    Range("J6").Select

Sheets("S1").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S2").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S3").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S4").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S5").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S6").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S7").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S8").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S9").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S10").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S11").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S12").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S13").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S14").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S15").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S16").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S17").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S18").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S19").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S20").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("Soal").Visible = xlSheetVeryHidden
Sheets("FormImput").Select
    Range("C2").Select
    ActiveCell.FormulaR1C1 = ""
    'close.workbook,save
    ThisWorkbook.Save
     ThisWorkbook.Close
End Sub
 

Untuk mengaktifkan tombol Cetak, dan EXIT menggunakan rumus VBA (Modul3) berikut :


Sub EXIT_Click()
MasukanData
Sheets("Nilai anda").Select
Sheets("S1").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S2").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S3").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S4").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S5").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S6").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S7").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S8").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S9").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S10").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S11").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S12").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S13").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S14").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S15").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S16").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S17").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S18").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S19").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("S20").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F61").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F101").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F141").Select
    ActiveCell.FormulaR1C1 = ""
Sheets("FormImput").Select
    Range("C2").Select
    ActiveCell.FormulaR1C1 = ""
'close.workbook,save
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub
Sub Cetak()
    ActiveSheet.Range("A1:L36").PrintOut
End Sub
Untuk selanjutnya mari kita pelajari bagian berikutnya, yaitu Tutorial Evaluasi Digital Bagian 10. Next .....
    Label: ,
    Comments
    0 Comments