Ruang Excel

Friday, August 7, 2020

Cara membuat tanggal dengan List Kalender di microsoft Word

Nurman Al Faruq Aktifkan Macro , Apk cetak Label Undangan

Salam sejahtera kawan, Semoga Anda sekalian dalam keadaaan sehat wal’afiat, Aamin..

Dalam kesempatan kali ini saya akan berbagai cara membuat tanggal tanpa harus ketik tetapi menggunakan pilihan dengan list Kalender, seperti terlihat pada gambar di bawah.

Mari kita ikuti langkah – langkah berikut :

1. Buat border data dan nama keterangan data persti gambar di atas.

2. Letakan kursor di kolom tanggal

3. Klik Developer (jika developer belum muncul/aktif maka aktifkan dulu) Cara mengaktifkan Developer

4. Setelah klik Developer pilih Date Picker pada content control, lihat gambar di bawah

Demikian Share kali ini, jika kurang jelas silahkan tinggalkan pesan di kolom komen. Selamat mencoba kawan, Semoga berhasil

Cara menggeser angka atau huruf otomatis dengan kursor pada Ms Excel

Nurman Al Faruq Administrasi Ujian , Aplikasi Input Nilai Rapot

Ketika kita dihadapkan pada lembar kuesoner maka tentunya kita mengerjakan dengan berbagai pilihan jawaban baik dengan angka maupun tanda ceklis dengan huruf “V” pada kuesoner lembar kerja Microsoft excel.

Nah , dikesempatan kali ini saya berbagi trik untuk memindahkan ceklis “V” atau angka secara otomatis mengikuti letak kursor pada cell Microsoft excel yang tentunya dengan bantuan skrip vba.

Berikut langkah pembuatannya:

1. Bikin kuesoner pada lembar kerja excel (contoh isian instrumen Penilaian Kinerja guru)

Cara menggeser angka atau huruf otomatis denan kursor

2. Klik developer pada menu bar atas, dan klik visual basic ( Cara menampilkan developer di menu bar ).

3. Masukan skrip di bawah ini ke dalam pada workbook dan tutup save

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next

If Left(ActiveSheet.Name, 4) = "KOMP" Then

If Cells(Target.Row, Target.Column + 1) = "V" Then

Cells(Target.Row, Target.Column + 1) = ""

End If

If Cells(Target.Row, Target.Column - 1) = "V" Then

Cells(Target.Row, Target.Column - 1) = ""

End If

If Cells(Target.Row, Target.Column + 2) = "V" Then

Cells(Target.Row, Target.Column + 2) = ""

End If

If Cells(Target.Row, Target.Column - 2) = "V" Then

Cells(Target.Row, Target.Column - 2) = ""

End If

Cells(Target.Row, Target.Column) = "V"

End If

End Sub

Keterangan :

KOMP = Nama Sheets

Jika skrip berkerja maka seperti gambar di bawah huruf “V” akan berpindah-pindah mengikuti kursor.

Selamat mencoba, semoga berhasil dan berkah. Aamiin….

Cara Membuat Tombol Print Di Excel

Nurman Al Faruq Membuat Tombol Print ,

Banyak cara yang bisa kitaa lakukan dengan lembar kerja microsoft excel. Salah satu fasilitas di excel adalah macro atau Vba yang akan memudahkan kita dalam membuat Aplikasi sederhana.

Dalam kesempatan ini saya ingin berbagi cara membuat tombol PRINT. Ketika kita hendak mencetak suatu dokumen di excel kita tidak perlu pijit Ctrl + P atau icon Print preview (print). Kita bisa membuat sendiri tombol Print/cetak di lembar excel langsung dengan bantuan macros/vba. Berikut langkah-langkah pembuatan tombol cetak/print :

1. Klik menu Developer ==>Insert dan pilih command button kemudian letakan di lembar excel.

2. Klik 2 kali tombol command button maka akan terbuka jendela Vba, masukan rumus di bawah ini dan tutup jendela Vba Command button.

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrint).Show

End Sub

3. Klik kanan tombol Command button dan pilih properties ganti caption dengan Cetak/Print.

4. Klik Design Mode, Sekaran coba klik tombol cetak/print maka akan keluar jendela print seperti gambar di bawah.

Selamat mencoba dan sukses

Cara Membuat Tombol Print Preview pada microsoft Excel

Nurman Al Faruq Aktifkan Macro , Apk cetak Label Undangan

Pada posting terdahlu ane telah berbagi cara membuat tombol print dan untuk kesampatan ini ane berbagi cara membuat tombol print preview. sehingga dengan tombol print preview kita bisa melihat terlebih dahulu tampilan lembaran yang akan dicetak. apakah sudah sesuai dengan yang kita inginkan ? jika tampilan sudah sesuai maka kita bisa langsung cetak dan jika belum sesuai kita bisa klik tombol close (X) sehingga data kembali ke lembar edit.

Sebelum kelangkah-langkah cara membuat tombol print preview pastikan menu developer sudah tampil/aktif. jika developer belum tampil di menu tool bar tas silahkan pelajari pada artikel cara menampilkan developer.

Apabila menu developer sudah tampil/altif silahkan ikuti langkah-langkah cara membuat tombol print preview berikut :

1. Buka lembar excel yang akan anda tambahkan tombol print preview

2. Pilih menu Developer ==> insert dan pilih Command Button (activeX control)

3. Letakan tombol pada lembar kerja anda dan klik 2 x selajutnya masukan kode berikut :

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrintPreview).Show
End Sub

kemudian klik close (x) dan save

4. klik kanan tombol Command Button (activeX control) pada caption "Commandbutton" ganti dengan kata pint preview.

Berikut contoh Command Button (activeX control) PrintPreview

Contoh gambar Command Button (activeX control) PrintPreview

Selamat mencoba, semoga sukses dan berkah. Aamiin...

Cara Membuat Daftar Siswa dengan validation excel

Nurman Al Faruq Aplikasi data Base siswa , Cara Cepat Uji Validitas

Ruang Excel : Selamat berjumpa rekan-rekan pencinta microsoft excel, semoga semuanya dalam keadaan sehat wal'afiat sehingga dapat menjalankan aktivitas dalam kesehariannya. Pada kesempatan kali ini saya akan berbagi ilmu bagaimana Cara membuat daftar siswa dengan validasi pada microsoft excel dengan menggunakan formula index dan beberapa formula excel lainnya.

Ok, Kita mulai dari langkah pertama, yakni kita persiapkan sheet1 untuk Data utama (database) dan sheet2 untuk Daftar Siswa (droplists). Silahkan buat tabel data utama (database) pada sheet1 seperti berikut :

Pada kolom helper 1 (F4) kita isi dengan formula excel :

=ROWS($E$4:E4).

Pada kolom Helper 2 (G4) kita isi dengan fomula excel :

=IF(Sheet2!$F$1=E4;F4;"")

dan pada kolom helper 3 (H4) kita isi dengan menggunakan rumus atau formula excel :

=IFERROR(SMALL($G$4:$G$15;ROWS($G$4:G4));"").

kemudian tarik kursor pada pojok cell tersebut ke bawah hingga ke cell F15.

Selanjutnya, pada langkah kedua. Kita buat daftar siswa dengan menggunakan data validasi dan formula index, iferror, dan columns.

Kita buat tabel seperti di bawah ini :

Pada kolom nomor kita buat nomor automatis dengan menggunakan formula IF.

Pada kolom Nama siswa (B4) kita isi formula excel :

=IFERROR(INDEX(Sheet1!$B$4:$E$15;Sheet1!$H4;COLUMNS($A$4:A4));""),

Pada kolom jenis kelamin kita isi dengan formula excel :

=IFERROR(INDEX(Sheet1!$B$4:$E$15;Sheet1!$H4;COLUMNS($A$4:B4));""),

Pada kolom Tempat tanggal lahir kita isi dengan formula excel :

=IFERROR(INDEX(Sheet1!$B$4:$E$15;Sheet1!$H4;COLUMNS($A$4:C4));""),

Pada kolom kelas kita isi dengan formula excel :

=IFERROR(INDEX(Sheet1!$B$4:$E$15;Sheet1!$H4;COLUMNS($A$4:D4));"").

Selanjutnya kita ke langkah ketiga yakni membuat data rombel kelas untuk validasi seperti contoh pada cel F4:F13. Kemudian kita letakkan kursor pada cell F1 dan klik menu ribbon (Data) kemudian pilih Data validation ==> list dan isikan pada kolom source dengan =$F$4:$F$13.

Ingat pada Sheet2!$F$1 merujuk pada validation. Setelah semua sudah dilakukan silahkan dicoba dengan merubah validation pada cell F1 pada sheet2.

Demikian share kali ini. Semoga Cara Membuat Daftar Siswa dengan validation excel bermanfaat dan Sukses selalu.

Tutorial Cara membuat daftar siswa dengan validasi dan contoh file excel

Aplikasi Input Nilai Rapot SMP/MTs Versi excel 20.02

Nurman Al Faruq Aplikasi PPDB Versi 02; , Input Nilai Rapot excel 20.02

Sobat Ruang Excel : Aplikasi input nilai rapot SMP/MTs Versi 20.02 merupakan hasil pengembangan dari Aplikasi input nilai rapot SMP Versi 20.01 yang sangat sederhana dengan basis aplikasi visual basic. Pada Aplikasi input nilai rapot SMP/MTs versi 20.02 ini masih tetap terdapat tiga (3) lembar menu yaitu Sheet Input data siswa, input nilai rapot, dan sheet rekap nilai.

Namun seiring dengan adanya banyak masukan dari rekan-rekan pengguna aplikasi ini, yang menambahkan penambahan mata pelajaran sperti untuk mapel di madrasah tsanawiyah (MTs). Oleh karena itu saya mengembangkan dengan menambah beberapa mapel dan mulok tambahan. Untuk lebih jelasnya mari kita baca lebih lanjut penjelasan sebagai berikut.

1. Lembar Input Data Siswa

Pada sheet ini, silahkan rekan-rekan ops atau guru mengisi dengan data siswa kelas 9 berupa data NIS, NISN, nama lengkap, dan kelas. Data yang ada pada lembar data siswa ini akan di-Link ke lembar masukan nilai rapot.

2. Lembar Masukan Nilai Rapot

Pada Sheet input nilai rapot ini terdapat kolom NIS, Nama siswa secara otomatis diambil dari sheet Data input siswa terdapat lima kolom nilai rapot 5 semester terakhir, dimana setiap kolom terbagi menjadi dua kolom (kolom nilai pengetahuan dan keterampilan).

Pada Aplikasi Input Nilai Rapot SMP/MTs versi 20.02 ada penambahan 5 mapel untuk MTs yakni mapel Aqidah akhlaq, Al-Qur'an Hadist, Fiqih, Bahasa Arab, dan Sejarah Kebudayaan Islam (SKI ) serta muatan tambahan lokal.

Pada Aplikasi nilai rapot input SMP versi 20.01 tidak ada penambhan untuk mata pelajaran muatan lokal. Nahh, pada Aplikasi Input Nilai Rapot versi 20.02 ini tiga mata pelajaran muatan lokal tidak terkunci sehingga pengguna bisa mengganti mapel muatan lokal bisa disesuaikan pada mulok daerah masing-masing.

Pada sheet ini terdapat tiga tombol atau tombol yakni :

* Tombol Putar

tombol spin berfungsi untuk mengganti NIS dan nama siswa pada sel "D3" dan sel "D4".

* Tombol Masukan Nilai

Tombol Input Nilai berfungsi untuk mencatat atau merekam nilai rapot pada sheet Input Nilai dari cell “D8:M24” ke sheet rekap nilai pada masing-masing mata pelajaran dengan tambahan notifikasi pesan untuk menginput atau batal menginput dan pesan “Berhasil” setelah data nilai berhasil terinput .

* Tombol Reset semua

Tombol Reset All berfungsi untuk meriset ulang atau menghapus semua nilai yang terinput di kolom nilai rapot lima semester terakhir dari sel "D8:M24". Hal ini dilakukam ketika kita akan mengganti dengan nilai siswa lainnya dan sudah saya lengkapi dengan notifikasi pesan Yes/No untuk menghapus data nilai serta pesan berhasil bahwa data nilai telah terhapus.

3. Lembar Rekap Nilai

Sheet rekap nilai merupakan sheet untuk menampung nilai pada masing-masing mata pelajaran yang bersal dari hasil rekaman data sheet input rapot. dan secara otomatis sesuai dengan nilai inputan dari sheet input rapot. Karena pada sheet Input Nilai ada penambahan 5 mapel, maka di sheet Rekap juga ada penambahan 5 mapel dan 1 muatan lokal tambahan.

Silahkan rekan-rekan ops atau guru agar kami menyiapkan nilai rapot lima semester terakhir tahapan SMP/SMPLB yang terdapat pada Buku Induk Siswa. dan segera unduh aplikasi masukan nilai rapot SMP disini.

JUGA ini : Aplikasi Input Nilai Rapot SD

Agar rekan-rekan dapat mengetahui postingan terupdate dari ruang excel silahkan klik menu "Follow" atau masukan email rekan-rekan ops atau guru pada kolom email dan klik tombol "Submit".

Saya al faqir memohon maaf bila masih banyak kekurangan dan sudah menikmati berkunjung dan menggunakan aplikasi ini. Semoga Aplikasi excel Input Nilai Rapot SMP aplikasi visual basic ini bermanfaat untuk rekan-rekan sekalian. Aamiin

Untuk Unduh Aplikasi Input Nilai Rapot SMP/MTs Versi 20.02

Aplikasi Kartu Pengawas Ujian Sekolah versi excel

Nurman Al Faruq Aktifkan Macro , Apk cetak Label Undangan

Salam sejahtera gan, Pada share kali ini ane akan jelaskan cara membuat cetak kartu pengawas/panitia ujian sekolah dengan macro atau vba pada microsoft excel. Seperti membuat bingkai photo, tombol spin, tombol cetak dsb. Berikut adalah kode scrip untuk macro atau vba Cetak Kartu pengawas Ujian guna memenuhi administrasi Ujian Sekolah di satuan pangkalan sekolah agan-agan sekalian.

Private Sub CommandButton1_Click()

On Error Resume Next

Dim Filter As String, Title As String, FileX As String

Dim SourceFile, DestinationFile

X.SetFocus

Filter = "JPG Image Files Only(*.jpg),*.jpg,"

Title = "Ganti Photo"

FileX = Application.GetOpenFilename(Filter, , Title)

NamaFile = Range("B13")

Sheets("Sheet2").Image1.Picture = LoadPicture(FileX)

Image1.Picture = LoadPicture(FileX)

DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"

FileCopy FileX, DestinationFile

End Sub

Private Sub CommandButton2_Click()

Application.Dialogs(xlDialogPrint).Show

End Sub

Private Sub SpinButton1_Change()

On Error GoTo GbKosong

SpinButton1.Min = 1

SpinButton1.Max = 60

Range("C1") = SpinButton1

Application.ScreenUpdating = False

NamaData = Range("B13")

Files = ActiveWorkbook.Path & "\Photo\" & NamaData & ".jpg" '

Image1.Picture = LoadPicture(Files)

Application.ScreenUpdating = True

Exit Sub

GbKosong:

'Image1.Picture = Image2.Picture

End Sub

Berikut Contoh Kartu Pengawas

Selamat Mencoba semoga sukses dan berkah. Aaamiin..

Aplikasi kartu Pengawas Ujian V.02 Download disini atau Download Alternatif

Aplikasi Ijazah dan SKHU Sementara Jenjang SD Tahun 2017 Excel

Nurman Al Faruq Administrasi Ujian , Formula Fungsi menyalin data angka ke tiap cell

Salam sejahtera, Dalam upaya mempermudah guru ataupun operator sekolah dalam pengelolaan nilai rapot, us, dan USBN untuk kebutuhan persyaratan pendaftaran ke jenjang pendidikan SMP/MTs dan sederajatnya. Kali ini ane berbagi aplikasi ijazah dan SKHU sementara untuk jenjang sekolah dasar.

Ada beberapa menu (sheets) yang saya kembangkan diantanya :

Pada Ijazah dan SKHU sementara ada penambahan foto siswa otomatis bisa diganti (upload).
Pada SKHU sementara ada penambahan sheet SKKB (Surat Keterangan Kelakuan Baik).
Penambahan tombol Cetak

Semoga share Aplikasi sederhana ini bermanfaat buat guru atau operator sekolah dan bangsa ini.

Note :

Apabila ada yang kurang jelas atau masalah dengan aplikasi, silahkan tinggalkan pesan pada kolom komentar.

Sebagai bahan referensi dan bisa dipergunakan Anda dapat mengunduh contohnya di Aplikas Ijazah dan SKHU Sementara SD/

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

Nurman Al Faruq Aktifkan Macro , Apk cetak Label Undangan

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.

Enjoy You'r Visiting

Friday, August 7, 2020

Cara membuat tanggal dengan List Kalender di microsoft Word

Wednesday, August 5, 2020

Cara menggeser angka atau huruf otomatis dengan kursor pada Ms Excel

Cara Membuat Tombol Print Di Excel

Friday, June 12, 2020

Cara Membuat Tombol Print Preview pada microsoft Excel

Sunday, June 7, 2020

Cara Membuat Daftar Siswa dengan validation excel

Friday, May 8, 2020

Aplikasi Input Nilai Rapot SMP/MTs Versi excel 20.02

Thursday, May 7, 2020

Aplikasi Kartu Pengawas Ujian Sekolah versi excel

Aplikasi Ijazah dan SKHU Sementara Jenjang SD Tahun 2017 Excel

Monday, May 4, 2020

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

Follow Us

Facebook

Ruang Excel

Featured post

Aplikasi Dapodik Sekolah Versi 20.02 excel vba

Cari Artikel Di Blog ini

Popular Posts

Translate

Subsribe

Recent

Featured

Subscribe Us

Recent Post

Blog Archive

Total Pageviews