Ruang Excel

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

Enjoy You'r Visiting

Showing posts with label Apk cetak Label Undangan. Show all posts
Showing posts with label Apk cetak Label Undangan. Show all posts

Saturday, October 2, 2021

Cara Mudah Mengatasi Product Activation Failed Pada Office

Salam sejahtera para sobat-sobat ruang excel. Pada kesempatan kali ini ruang excel akan berbagai cara mengatasi masalah yang sering terjadi pada microsoft office yang sering kita alami dalam hal ini lembar kerja microsoft excel dan microsoft word minta aktivasi alias muncul peringatan Product Activation Failed sehingga menyebabkan kita tidak bisa mengetik atau mengaktifkan di lembar kerja excel atau kata.

Jika kita menemukan masalah Product Activation Failed jangan terburu-buru kita langsung uninstall microsoft office dan tidak perlu install microsoft office terbaru atau instal crek office. Berikut cara mudah dan permanen untuk mengatasinya :


Mengatasi  Aktivasi Produk Gagal dengan menjalankan OSPPREARM.EXE

Pertama, Pastikan kita sedang tidak membuka lembar Microsoft Office, jika masih terbuka tutup saja.


Kedua, Buka file explorer atau dengan pintasan tekan pada tombol jendela windows+E  , maka akan menuju ke “Local Disc C: silahkan pilih” Buka Local Disk C :


Ketiga , setelah Buka Local Disk C. kemudian pilih “Program Files (x86)“ dan Buka Program Files (x86) untuk Office 32-bit atau pilih dan buka "Program Files" untuk Office 64-bit.


Jika PC/laptop kita Office 64-bit maka  pilih dan buka "Program Files"  silahkan Cari dan Buka Folder Microsoft Office

Karena aktivasi yang akan kita lakukan kali ini Microsoft Office 2016 maka folder yang diklik adalah “Office 16“, untuk Microsoft Office 2013 itu “Office 13” dan seterusnya menyesuaikan.Pilih Office.


Agar tidak merepot mencari satu per satu file tersebut, kita tinggal masukan ke kolom pencarian dan ketik dengan mengetikan OSPPREARM.EXE kemudian masuk. Pastikan kita cari OSPPREARM.EXE dengan tipe aplikasi. Setelah muncul klik kanan dan tekan “Run as Administrator“.Jalankan OSPPREARM.EXE dengan Administrator dan tekan YES dan tunggu beberapa waktu sampai proses selesai.



Jika PC/Laptop kita Office 32-bit , maka pilih dan buka “ Program Files (x86) “, lanjut klik ==>> Common File , Lanjut klik ==>> Microsoft Shared , Lanjut cari dan Klik folder ==>> OfficeSoftwareProtectionPlatform , lanjut pilih dan Klik kanan pada  OSPPREARM type Application kemudian pilih Run as administrator dan Klik Yes/OK .

Selesai.

Bila semua proses diatas sudah selesai, coba kamu buka aplikasi Word dan pastikan sudah tidak ada tulisan “Product Activation Failed” lagi. jika belum ada perubahan silahkan restart PC/laptop anda dan nyalakan kembali dan buka lagi lembar kerja word. 

video tutorial Cara Mudah mengatasi microsoft Product activation failed atau wizard

Selamat mencoba dan Semoga Sukses.

Sunday, August 9, 2020

Trik Membuat Jam Digital di Microsoft Excel


Trik Membuat Jam Digital di Microsoft Excel

Langka Pertama yang harus anda lakukan adalah membuat rumus =NOW() pada cell yang anda inginkan untuk letak jam gital. kemudian setting dengan memilih Number category “Time” pada Alignment dan klik “OK”. contoh seperti dialog berikut :



Langka Pertama yang harus anda lakukan adalah membuat rumus =NOW() pada cell yang anda inginkan untuk letak jam gital. kemudian setting dengan memilih Number category “Time” pada Alignment dan klik “OK”. contoh seperti dialog berikut :

Langkah kedua, pilih visual basic kemudian buatkan modul dan masuka skrip VBA jam digital pada modul.

SKRIP VBA JAM DIGITAL

Option Explicit

Dim nexttick

Sub jam()

    ThisWorkbook.Sheets(1).Calculate

    nexttick = Now + TimeValue("00:00:01")

    Application.OnTime nexttick, "Jam", , True

End Sub

Sub berhenti()

On Error Resume Next

    Application.OnTime nexttick, "Jam", , False

    Application.ScreenUpdating = True

End Sub

Langkah ketiga, klik macros dan pilih jam dan klik Run untuk menjalankan jam dig ital. lihat dialog berikut :


Jrengg….Jam digital telah tercipta. Semoga sukses dan bermanfaat.

Jam Digital bisa anda anda dapatkan file di Digital versi microsoft excel

 

Friday, August 7, 2020

Cara membuat tanggal dengan List Kalender di microsoft Word

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.


Cara membuat tanggal dengan List Kalender di microsoft Word

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

Friday, June 12, 2020

Cara Membuat Tombol Print Preview pada microsoft Excel

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


Cara Membuat Tombol Print Preview pada microsoft Excel

Contoh gambar Command Button (activeX control) PrintPreview

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


Thursday, May 7, 2020

Aplikasi Kartu Pengawas Ujian Sekolah versi excel

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


Aplikasi Kartu Pengawas Ujian Sekolah

Selamat Mencoba semoga sukses dan berkah. Aaamiin..

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




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.