Ruang Excel

Excel application sharing, knowledge of Microsoft Excel, and visual basic application (vba) for education.

Enjoy You'r Visiting

Showing posts with label Kode scrip input nilai. Show all posts
Showing posts with label Kode scrip input nilai. Show all posts

Monday, May 4, 2020

Cara membuat kode scrip untuk button spin, input nilai, dan hapus

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.