Membuat Keterangan Ujian Lulus dan Tidak Lulus Tanpa Rumus

Menghadapi berbagai ujian sekolah dari Ulangan Harian, UTS, UAS dan ujian lainnya membuat guru disibukan dengan pengolahan nilai untuk memberikan informasi kepada peserta didik / siswa dari hasil ujian siswa tersebut. Pengolahan nilai ujian memamg memmbutuhkan waktu yang cukup banyak jika Anda tidak memahami bagaimana cara pengolahannya. Sesuatu yang sering terjadi di sekolah bahwa setiap guru mata pelajaran diharuskan memberikan hasil pengolahan nilai ujian tersebut dan dilaporkan ke kurikulum atau bahkan langsung diinformasikan melalui papan pengumuman untuk dibaca dan diketahui oleh siswanya.

Masih ada saja seorang guru (mohon maaf) dalam pengolahan nilai menggunakan sistem manual di zaman sekarang dengan cara melihat angka hasil ujian kemudian menentukan keterangan apakah siswa tersebut lulus atau tidak lulus (remedial) dengan standar ketuntasan minimal yang telah ditentukan. Jika Anda melakukan hal ini dengan cara manual saya yakin akan menyita banyak waktu. Bagaimana jika siswa Anda terdiri dari ratusan atau bahkan ribuan.

Keterangan Lulus / Remedian?

Kenapa saya tidak menggunakan rumus fungsi IF saja dalam hal pengolahan kondisi dari sebuah nilai siswa untuk mengetahui apakah siswa tersebut lulus atau bahkan remedial? Oke, pernah saya tuliskan pada blog excel ini bagaimana cara mengolah nilai hasil ujian dengan menggunakan rumus fungsi IF

Silakan baca :
Cara Menghitung Kelulusan UN

Untuk pengolahan nilai UAS juga pernah saya bahas yaitu dengan menggunakan rumus fungsi IF silakan baca kembali di Cara Pengolahan Nilai UAS

Pada kesempatan kali ini saya agak sedikit berbeda bagaimana memberikan keterangan lulus atau tidak lulus / remedial dengan tanpa menggunakan rumus sedikitpun. Ko bisa ya? Tentu saja Anda bisa gunakan dengan cara saya ini yaitu dengan menggunakan sedikit coding VBA

Prosedur yang digunakan untuk membuatnya adalah Worksheet_Change
Silakan Anda tuliskan codingnya pada prosedur diatas

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
    If Target.Cells.Count = 1 Then
        If Target.Value >= 75 Then
            Target(1, 2) = "Lulus Ujian"
            Else
            Target(1, 2) = "Remedial"
        End If
    End If
End If
End Sub

Keterangan coding If Target.Column = 8 Then adalah ketika ada perubahan pada kolom ke 8 atau kolom H pada worksheet Anda sedangkan If Target.Cells.Count = 1 Then merupakan coding bahwa jika perubahan terjadi pada kolom ke-8 tersebut maka tuliskan di kolom berikutnya ke kanan loncat 1 kolom berarti di kolom 9.

Untuk If Target.Value >= 75 Then ini merupakan nilai KKM yang harus dirubah karena setiap sekolah akan berbeda-beda.

Baiklah berikut contoh tabel nilai UAS untuk masing masing nama siswa

Silakan dicoba, semoga berhasil dan jika Ada pertanyaan silakan tuliskan pada kolom komentar dibawah mudah-mudahan saya bisa menjawabnya.

Tweet