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