Sobat Ruang Excel : Dalam membuat Aplikasi excel aplikasi visual basic Input Nilai Rapot SMP semester 1 s/d 5 yang merupakan salah satu ketentuan untuk mendapatkan nilai rerata untuk kejuruan peringkat Sekolah Menengah Pertama (SMP), bapak atau ibu bisa mendesign terlebih dahulu lembar data base siswa, lembar tabel masukan nilai rapot, dan lembar rekap. Khususnya pada sheet input nilai rapot siswa silahkan buat button Spin, Input Nilai, dan Reset All (hapus nilai pada sheet Input nilai rapot).
Kemudian masukan kode-kode yang akan saya berikan di bawah ini. Lebih jelas simak videonya Aplikasi Input Rapot SMP/MTs Versi 20.02 Part1 dan Aplikasi Input Input Rapot SMP/MTs Versi 20.02 Part2 .
Pastikan untuk memulai pembuatan aplikasi ini menu developer sudah muncul di menu ribbon di atas untuk mempermudah kerja masuk ke vba dan macro , jika belum silahkan tampilkan Developer di menu ribbon . Setelah kita membuat tombol atau button spin (yang berfungsi untuk menampilkan data siswa secara berurutan) dan salin kode di bawah ini pada modul 1 di aplikasi visual basic.
Sub masukkanData()
Dim jumlahData As Integer
Dim nomor, nis, nama, pai1, pai2, pai3, pai4, pai5, pai6, pai7, pai8, pai9, pai10_
, pkn1, pkn2, pkn3, pkn4, pkn5, pkn6, pkn7, pkn8, pkn9, pkn10 _
, bi1, bi2, bi3, bi4, bi5, bi6, bi7, bi8, bi9, bi10 _
, mtk1, mtk2, mtk3, mtk4, mtk5, mtk6, mtk7, mtk8, mtk9, mtk10 _
, ipa1, ipa2, ipa3, ipa4, ipa5, ipa6, ipa7, ipa8, ipa9, ipa10 _
, ips1, ips2, ips3, ips4, ips5, ips6, ips7, ips8, ips9, ips10 _
, bing1, bing2, bing3, bing4, bing5, bing6, bing7, bing8, bing9, bing10 _
, sbk1, sbk2, sbk3, sbk4, sbk5, sbk6, sbk7, sbk8, sbk9, sbk10 _
, pjok1, pjok2, pjok3, pjok4, pjok5, pjok6, pjok7, pjok8, pjok9, pjok10 _
, pkarya1, pkarya2, pkarya3, pkarya4, pkarya5, pkarya6, pkarya7, pkarya8, pkarya9, pkarya10 _
, bsunda1, bsunda2, bsunda3, bsunda4, bsunda5, bsunda6, bsunda7, bsunda8, bsunda9, bsunda10
Sebagai Tali
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
pai1 = Range("D8").Teks
pai2 = Range("E8").Teks
pai3 = Range("F8").Teks
pai4 = Range("G8").Teks
pai5 = Range("H8").Teks
pai6 = Range("I8").Teks
pai7 = Range("J8").Teks
pai8 = Range("K8").Teks
pai9 = Range("L8").Teks
pai10 = Range("M8").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
pkn1 = Range("D9").Teks
pkn2 = Range("E9").Teks
pkn3 = Range("F9").Teks
pkn4 = Range("G9").Teks
pkn5 = Range("H9").Teks
pkn6 = Range("I9").Teks
pkn7 = Range("J9").Teks
pkn8 = Range("K9").Teks
pkn9 = Range("L9").Teks
pkn10 = Range("M9").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
bi1 = Range("D10").Teks
bi2 = Range("E10").Teks
bi3 = Range("F10").Teks
bi4 = Range("G10").Teks
bi5 = Range("H10").Teks
bi6 = Range("I10").Teks
bi7 = Range("J10").Teks
bi8 = Range("K10").Teks
bi9 = Range("L10").Teks
bi10 = Range("M10").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
mtk1 = Range("D11").Teks
mtk2 = Range("E11").Teks
mtk3 = Range("F11").Teks
mtk4 = Range("G11").Teks
mtk5 = Range("H11").Teks
mtk6 = Range("I11").Teks
mtk7 = Range("J11").Teks
mtk8 = Range("K11").Teks
mtk9 = Range("L11").Teks
mtk10 = Range("M11").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
ipa1 = Range("D12").Teks
ipa2 = Range("E12").Teks
ipa3 = Range("F12").Teks
ipa4 = Range("G12").Teks
ipa5 = Range("H12").Teks
ipa6 = Range("I12").Teks
ipa7 = Range("J12").Teks
ipa8 = Range("K12").Teks
ipa9 = Range("L12").Teks
ipa10 = Range("M12").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
ips1 = Range("D13").Teks
ips2 = Range("E13").Teks
ips3 = Range("F13").Teks
ips4 = Range("G13").Teks
ips5 = Range("H13").Teks
ips6 = Range("I13").Teks
ips7 = Range("J13").Teks
ips8 = Range("K13").Teks
ips9 = Range("L13").Teks
ips10 = Range("M13").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
bing1 = Range("D14").Teks
bing2 = Range("E14").Teks
bing3 = Range("F14").Teks
bing4 = Range("G14").Teks
bing5 = Range("H14").Teks
bing6 = Range("I14").Teks
bing7 = Range("J14").Teks
bing8 = Range("K14").Teks
bing9 = Range("L14").Teks
bing10 = Range("M14").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
sbk1 = Range("D15").Teks
sbk2 = Range("E15").Teks
sbk3 = Range("F15").Teks
sbk4 = Range("G15").Teks
sbk5 = Range("H15").Teks
sbk6 = Range("I15").Teks
sbk7 = Range("J15").Teks
sbk8 = Range("K15").Teks
sbk9 = Range("L15").Teks
sbk10 = Range("M15").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
pjok1 = Range("D16").Teks
pjok2 = Range("E16").Teks
pjok3 = Range("F16").Teks
pjok4 = Range("G16").Teks
pjok5 = Range("H16").Teks
pjok6 = Range("I16").Teks
pjok7 = Range("J16").Teks
pjok8 = Range("K16").Teks
pjok9 = Range("L16").Teks
pjok10 = Range("M16").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
pkarya1 = Range("D17").Teks
pkarya2 = Range("E17").Teks
pkarya3 = Range("F17").Teks
pkarya4 = Range("G17").Teks
pkarya5 = Range("H17").Teks
pkarya6 = Range("I17").Teks
pkarya7 = Range("J17").Teks
pkarya8 = Range("K17").Teks
pkarya9 = Range("L17").Teks
pkarya10 = Range("M17").Teks
Spreadsheet("Masukan").Pilih
nomor = Range("D3").Teks
nis = Range("D3").Teks
nama = Range("D4").Teks
bsunda1 = Range("D18").Teks
bsunda2 = Range("E18").Teks
bsunda3 = Range("F18").Teks
bsunda4 = Range("G18").Teks
bsunda5 = Range("H18").Teks
bsunda6 = Range("I18").Teks
bsunda7 = Range("J18").Teks
bsunda8 = Range("K18").Teks
bsunda9 = Range("L18").Teks
bsunda10 = Range("M18").Teks
Sheets("Rekap").Pilih
jumlahData = Range("DJ1").Value
Rows(jumlahData + 2 & ":" & jumlahData + 2). Pilih
Seleksi.Copy
Rows(jumlahData + 2 & ":" & jumlahData + 2). Pilih
ActiveSheet.Paste
Application.CutCopyMode = Salah
Range("A" & jumlahData + 3).Pilih 'masukkan nomor
ActiveCell.FormulaR1C1 = jumlahData + 1
Range("B" & jumlahData + 3).Pilih 'input nis
ActiveCell.FormulaR1C1 = nis
Range("C" & jumlahData + 3).Pilih 'input nama
ActiveCell.FormulaR1C1 = nama
Range("D" & jumlahData + 3).Pilih 'input pai1
ActiveCell.FormulaR1C1 = pai1
Range("E" & jumlahData + 3).Pilih 'input pai2
ActiveCell.FormulaR1C1 = pai2
Range("F" & jumlahData + 3).Pilih 'input pai3
ActiveCell.FormulaR1C1 = pai3
Range("G" & jumlahData + 3).Pilih 'input pai4
ActiveCell.FormulaR1C1 = pai4
Range("H" & jumlahData + 3).Pilih 'input pai5
ActiveCell.FormulaR1C1 = pai5
Range("I" & jumlahData + 3).Pilih 'input pai6
ActiveCell.FormulaR1C1 = pai6
Range("J" & jumlahData + 3).Pilih 'input pai7
ActiveCell.FormulaR1C1 = pai7
Range("K" & jumlahData + 3).Pilih 'input pai8
ActiveCell.FormulaR1C1 = pai8
Range("L" & jumlahData + 3).Pilih 'input pai9
ActiveCell.FormulaR1C1 = pai9
Range("M" & jumlahData + 3).Pilih 'input pai10
ActiveCell.FormulaR1C1 = pai10
Range("N" & jumlahData + 3).Pilih 'input pkn1
ActiveCell.FormulaR1C1 = pkn1
Range("O" & jumlahData + 3).Pilih 'input pkn2
ActiveCell.FormulaR1C1 = pkn2
Range("P" & jumlahData + 3).Pilih 'input pkn3
ActiveCell.FormulaR1C1 = pkn3
Range("Q" & jumlahData + 3).Pilih 'input pkn4
ActiveCell.FormulaR1C1 = pkn4
Range("R" & jumlahData + 3).Pilih 'input pkn5
ActiveCell.FormulaR1C1 = pkn5
Range("S" & jumlahData + 3).Pilih 'input pkn6
ActiveCell.FormulaR1C1 = pkn6
Range("T" & jumlahData + 3).Pilih 'input pkn7
ActiveCell.FormulaR1C1 = pkn7
Range("U" & jumlahData + 3).Pilih 'input pkn8
ActiveCell.FormulaR1C1 = pkn8
Range("V" & jumlahData + 3).Pilih 'input pkn9
ActiveCell.FormulaR1C1 = pkn9
Range("W" & jumlahData + 3).Pilih 'input pkn10
ActiveCell.FormulaR1C1 = pkn10
Range("X" & jumlahData + 3).Pilih 'input bi1
ActiveCell.FormulaR1C1 = bi1
Range("Y" & jumlahData + 3).Pilih 'input bi2
ActiveCell.FormulaR1C1 = bi2
Range("Z" & jumlahData + 3).Pilih 'input bi3
ActiveCell.FormulaR1C1 = bi3
Range("AA" & jumlahData + 3).Pilih 'input bi4
ActiveCell.FormulaR1C1 = bi4
Range("AB" & jumlahData + 3).Pilih 'input bi5
ActiveCell.FormulaR1C1 = bi5
Range("AC" & jumlahData + 3).Pilih 'input bi6
ActiveCell.FormulaR1C1 = bi6
Range("AD" & jumlahData + 3).Pilih 'input bi7
ActiveCell.FormulaR1C1 = bi7
Range("AE" & jumlahData + 3).Pilih 'input bi8
ActiveCell.FormulaR1C1 = bi8
Range("AF" & jumlahData + 3).Pilih 'input bi9
ActiveCell.FormulaR1C1 = bi9
Range("AG" & jumlahData + 3).Pilih 'input bi10
ActiveCell.FormulaR1C1 = bi10
Range("AH" & jumlahData + 3).Pilih 'input mtk1
ActiveCell.FormulaR1C1 = mtk1
Range("AI" & jumlahData + 3).Pilih 'input mtk2
ActiveCell.FormulaR1C1 = mtk2
Range("AJ" & jumlahData + 3).Pilih 'input mtk3
ActiveCell.FormulaR1C1 = mtk3
Range("AK" & jumlahData + 3).Pilih 'input mtk4
ActiveCell.FormulaR1C1 = mtk4
Range("AL" & jumlahData + 3).Pilih 'input mtk5
ActiveCell.FormulaR1C1 = mtk5
Range("AM" & jumlahData + 3).Pilih 'input mtk6
ActiveCell.FormulaR1C1 = mtk6
Range("AN" & jumlahData + 3).Pilih 'input mtk7
ActiveCell.FormulaR1C1 = mtk7
Range("AO" & jumlahData + 3).Pilih 'input mtk8
ActiveCell.FormulaR1C1 = mtk8
Range("AP" & jumlahData + 3).Pilih 'input mtk9
ActiveCell.FormulaR1C1 = mtk9
Range("AQ" & jumlahData + 3).Pilih 'input mtk10
ActiveCell.FormulaR1C1 = mtk10
Range("AR" & jumlahData + 3).Pilih 'input ipa1
ActiveCell.FormulaR1C1 = ipa1
Range("AS" & jumlahData + 3).Pilih 'input ipa2
ActiveCell.FormulaR1C1 = ipa2
Range("AT" & jumlahData + 3).Pilih 'input ipa3
ActiveCell.FormulaR1C1 = ipa3
Range("AU" & jumlahData + 3).Pilih 'input ipa4
ActiveCell.FormulaR1C1 = ipa4
Range("AV" & jumlahData + 3).Pilih 'input ipa5
ActiveCell.FormulaR1C1 = ipa5
Range("AW" & jumlahData + 3).Pilih 'input ipa6
ActiveCell.FormulaR1C1 = ipa6
Range("AX" & jumlahData + 3).Pilih 'input ipa7
ActiveCell.FormulaR1C1 = ipa7
Range("AY" & jumlahData + 3).Pilih 'input ipa8
ActiveCell.FormulaR1C1 = ipa8
Range("AZ" & jumlahData + 3).Pilih 'input ipa9
ActiveCell.FormulaR1C1 = ipa9
Range("BA" & jumlahData + 3).Pilih 'input ipa10
ActiveCell.FormulaR1C1 = ipa10
Range("BB" & jumlahData + 3).Pilih 'input ips1
ActiveCell.FormulaR1C1 = ips1
Range("BC" & jumlahData + 3).Pilih 'input ips2
ActiveCell.FormulaR1C1 = ips2
Range("BD" & jumlahData + 3).Pilih 'input ips3
ActiveCell.FormulaR1C1 = ips3
Range("BE" & jumlahData + 3).Pilih 'input ips4
ActiveCell.FormulaR1C1 = ips4
Range("BF" & jumlahData + 3).Pilih 'input ipas5
ActiveCell.FormulaR1C1 = ips5
Range("BG" & jumlahData + 3).Pilih 'input ips6
ActiveCell.FormulaR1C1 = ips6
Range("BH" & jumlahData + 3).Pilih 'input ips7
ActiveCell.FormulaR1C1 = ips7
Range("BI" & jumlahData + 3).Pilih 'input ips8
ActiveCell.FormulaR1C1 = ips8
Range("BJ" & jumlahData + 3).Pilih 'input ips9
ActiveCell.FormulaR1C1 = ips9
Range("BK" & jumlahData + 3).Pilih 'input ips10
ActiveCell.FormulaR1C1 = ips10
Range("BL" & jumlahData + 3).Pilih 'input bing1
ActiveCell.FormulaR1C1 = bing1
Range("BM" & jumlahData + 3).Pilih 'input bing2
ActiveCell.FormulaR1C1 = bing2
Range("BN" & jumlahData + 3).Pilih 'input bing3
ActiveCell.FormulaR1C1 = bing3
Range("BO" & jumlahData + 3).Pilih 'input bing4
ActiveCell.FormulaR1C1 = bing4
Range("BP" & jumlahData + 3).Pilih 'input bing5
ActiveCell.FormulaR1C1 = bing5
Range("BQ" & jumlahData + 3).Pilih 'input bing6
ActiveCell.FormulaR1C1 = bing6
Range("BR" & jumlahData + 3).Pilih 'input bing7
ActiveCell.FormulaR1C1 = bing7
Range("BS" & jumlahData + 3).Pilih 'input bing8
ActiveCell.FormulaR1C1 = bing8
Range("BT" & jumlahData + 3).Pilih 'input bing9
ActiveCell.FormulaR1C1 = bing9
Range("BU" & jumlahData + 3).Pilih 'input bing10
ActiveCell.FormulaR1C1 = bing10
Range("BV" & jumlahData + 3).Pilih 'input sbk1
ActiveCell.FormulaR1C1 = sbk1
Range("BW" & jumlahData + 3).Pilih 'input sbk2
ActiveCell.FormulaR1C1 = sbk2
Range("BX" & jumlahData + 3).Pilih 'input sbk3
ActiveCell.FormulaR1C1 = sbk3
Range("BY" & jumlahData + 3).Pilih 'input sbk4
ActiveCell.FormulaR1C1 = sbk4
Range("BZ" & jumlahData + 3).Pilih 'input sbk5
ActiveCell.FormulaR1C1 = sbk5
Range("CA" & jumlahData + 3).Pilih 'input sbk6
ActiveCell.FormulaR1C1 = sbk6
Range("CB" & jumlahData + 3).Pilih 'input sbk7
ActiveCell.FormulaR1C1 = sbk7
Range("CC" & jumlahData + 3).Pilih 'input sbk8
ActiveCell.FormulaR1C1 = sbk8
Range("CD" & jumlahData + 3).Pilih 'input sbk9
ActiveCell.FormulaR1C1 = sbk9
Range("CE" & jumlahData + 3).Pilih 'input sbk10
ActiveCell.FormulaR1C1 = sbk10
Range("CF" & jumlahData + 3).Pilih 'input pjok1
ActiveCell.FormulaR1C1 = pjok1
Range("CG" & jumlahData + 3).Pilih 'input pjok2
ActiveCell.FormulaR1C1 = pjok2
Range("CH" & jumlahData + 3).Pilih 'input pjok3
ActiveCell.FormulaR1C1 = pjok3
Range("CI" & jumlahData + 3).Pilih 'input pjok4
ActiveCell.FormulaR1C1 = pjok4
Range("CJ" & jumlahData + 3).Pilih 'input pjok5
ActiveCell.FormulaR1C1 = pjok5
Range("CK" & jumlahData + 3).Pilih 'input pjok6
ActiveCell.FormulaR1C1 = pjok6
Range("CL" & jumlahData + 3).Pilih 'input pjok7
ActiveCell.FormulaR1C1 = pjok7
Range("CM" & jumlahData + 3).Pilih 'input pjok8
ActiveCell.FormulaR1C1 = pjok8
Range("CN" & jumlahData + 3).Pilih 'input pjok9
ActiveCell.FormulaR1C1 = pjok9
Range("CO" & jumlahData + 3).Pilih 'input pjok10
ActiveCell.FormulaR1C1 = pjok10
Range("CP" & jumlahData + 3).Pilih 'input pkarya1
ActiveCell.FormulaR1C1 = pkarya1
Range("CQ" & jumlahData + 3).Pilih 'input pkarya2
ActiveCell.FormulaR1C1 = pkarya2
Range("CR" & jumlahData + 3).Pilih 'input pkarya3
ActiveCell.FormulaR1C1 = pkarya3
Range("CS" & jumlahData + 3).Pilih 'input pkarya4
ActiveCell.FormulaR1C1 = pkarya4
Range("CT" & jumlahData + 3).Pilih 'input pkarya5
ActiveCell.FormulaR1C1 = pkarya5
Range("CU" & jumlahData + 3).Pilih 'input pkarya6
ActiveCell.FormulaR1C1 = pkarya6
Range("CV" & jumlahData + 3). Pilih 'input pkarya7
ActiveCell.FormulaR1C1 = pkarya7
Range("CW" & jumlahData + 3).Pilih 'input pkarya8
ActiveCell.FormulaR1C1 = pkarya8
Range("CX" & jumlahData + 3).Pilih 'input pkarya9
ActiveCell.FormulaR1C1 = pkarya9
Range("CY" & jumlahData + 3).Pilih 'input pkarya10
ActiveCell.FormulaR1C1 = pkarya10
Range("CZ" & jumlahData + 3).Pilih 'input bsunda1
ActiveCell.FormulaR1C1 = bsunda1
Range("DA" & jumlahData + 3).Pilih 'input bsunda2
ActiveCell.FormulaR1C1 = bsunda2
Range("DB" & jumlahData + 3).Pilih 'input bsunda3
ActiveCell.FormulaR1C1 = bsunda3
Range("DC" & jumlahData + 3).Pilih 'input bsunda4
ActiveCell.FormulaR1C1 = bsunda4
Range("DD" & jumlahData + 3).Pilih 'input bsunda5
ActiveCell.FormulaR1C1 = bsunda5
Range("DE" & jumlahData + 3).Pilih 'input bsunda6
ActiveCell.FormulaR1C1 = bsunda6
Range("DF" & jumlahData + 3).Pilih 'input bsunda7
ActiveCell.FormulaR1C1 = bsunda7
Range("DG" & jumlahData + 3).Pilih 'input bsunda8
ActiveCell.FormulaR1C1 = bsunda8
Range("DH" & jumlahData + 3).Pilih 'input bsunda9
ActiveCell.FormulaR1C1 = bsunda9
Range("DI" & jumlahData + 3).Pilih 'input bsunda10
ActiveCell.FormulaR1C1 = bsunda10
Akhir Sub
Untuk membuat pesan notifikasi bahwa input nilai rapot telah berhasil direkam silahkan berikut kode vba-nya :
Spreadsheet("Masukan").Pilih
'pesan berhasil
MsgBox "Input Nilai Siswa Berhasil !", vbInformation, "Info SMPN 1 Pusakanagara"
Silahkan kode notifikasi di atas simpat bersama kode insert data. Sedangkan kode untuk menghapus atau reset all semua nilai yang ada pada tabel sheet masukan nilai rapot cell "D8:M18" berikut ini
Sub bersih()
Range("D8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("D9").Pilih 'kosongkan input kelas
ActiveCell.FormulaR1C1 = ""
Range("D10").Pilih 'kosongkan masukan alamat
ActiveCell.FormulaR1C1 = ""
Range("D11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("D12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("D13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("D14").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("D15").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("D16").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("D17").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("D18").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("E8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("E9").Pilih 'kosongkan input kelas
ActiveCell.FormulaR1C1 = ""
Range("E10").Pilih 'kosongkan masukan alamat
ActiveCell.FormulaR1C1 = ""
Range("E11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("E12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("E13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("E14").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("E15").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("E16").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("E17").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("E18").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("F8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("F9").Select 'kosongkan input kelas
ActiveCell.FormulaR1C1 =
""
Range("F10").Select 'kosongkan input alamat
ActiveCell.FormulaR1C1 =
""
Range("F11").Select 'kosongkan input hari
ActiveCell.FormulaR1C1 =
""
Range("F12").Select 'kosongkan input tanggal
ActiveCell.FormulaR1C1 =
""
Range("F13").Select 'kosongkan input walikelas
ActiveCell.FormulaR1C1 =
""
Range("F14").Select 'kosongkan input user
ActiveCell.FormulaR1C1 =
""
Range("F15").Select 'kosongkan input user
ActiveCell.FormulaR1C1 =
""
Range("F16").Select 'kosongkan input user
ActiveCell.FormulaR1C1 =
""
Range("F17").Select
'kosongkan input user
ActiveCell.FormulaR1C1 =
""
Range("F18").Select 'kosongkan input user
ActiveCell.FormulaR1C1 =
""
Range("G8").Select 'kosongkan input nama
ActiveCell.FormulaR1C1 =
""
Range("G9").Select 'kosongkan input kelas
ActiveCell.FormulaR1C1 =
""
Range("G10").Select 'kosongkan input alamat
ActiveCell.FormulaR1C1 =
""
Range("G11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("G12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("G13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("G14").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("G15").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("G16").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("G17").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("G18").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("H8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("H9").Pilih 'kosongkan input kelas
ActiveCell.FormulaR1C1 = ""
Range("H10").Pilih 'kosongkan masukan alamat
ActiveCell.FormulaR1C1 = ""
Range("H11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("H12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("H13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("H14").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("H15").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("H16").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("H17").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("H18").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("I8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("I9").Pilih 'kosongkan input kelas
ActiveCell.FormulaR1C1 = ""
Range("I10").Pilih 'kosongkan masukan alamat
ActiveCell.FormulaR1C1 = ""
Range("I11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("I12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("I13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("I14").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("I15").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("I16").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("I17").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("I18").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("J8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("J9").Pilih 'kosongkan input kelas
ActiveCell.FormulaR1C1 = ""
Range("J10").Pilih 'kosongkan masukan alamat
ActiveCell.FormulaR1C1 = ""
Range("J11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("J12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("J13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("J14").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("J15").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("J16").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("J17").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("J18").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("K8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("K9").Pilih 'kosongkan input kelas
ActiveCell.FormulaR1C1 = ""
Range("K10").Pilih 'kosongkan masukan alamat
ActiveCell.FormulaR1C1 = ""
Range("K11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("K12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("K13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("K14").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("K15").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("K16").Pilih 'pengguna masukan kosongkan
ActiveCell.FormulaR1C1 = ""
Range("K17").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("K18").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("L8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("L9").Pilih 'kosongkan input kelas
ActiveCell.FormulaR1C1 = ""
Range("L10").Pilih 'kosongkan masukan alamat
ActiveCell.FormulaR1C1 = ""
Range("L11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("L12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("L13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("L14").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("L15").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("L16").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("L17").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("L18").Pilih 'kosongkan masukan pengguna
ActiveCell.FormulaR1C1 = ""
Range("M8").Pilih 'kosongkan masukan nama
ActiveCell.FormulaR1C1 = ""
Range("M9").Pilih 'kosongkan input kelas
ActiveCell.FormulaR1C1 = ""
Range("M10").Pilih 'kosongkan masukan alamat
ActiveCell.FormulaR1C1 = ""
Range("M11").Pilih 'kosongkan masukan hari
ActiveCell.FormulaR1C1 = ""
Range("M12").Pilih 'kosongkan masukan tanggal
ActiveCell.FormulaR1C1 = ""
Range("M13").Pilih 'kosongkan masukan walikelas
ActiveCell.FormulaR1C1 = ""
Range("M14").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("M15").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("M16").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("M17").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Range("M18").Pilih 'pengguna input kosongkan
ActiveCell.FormulaR1C1 = ""
Akhir Sub
Silahkan kode clear atau reset all nilai rapot, anda simpan pada modul 2 aplikasi visual basic.
