Ruang Excel

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

Enjoy You'r Visiting

Showing posts with label Aktifkan Macro. Show all posts
Showing posts with label Aktifkan Macro. Show all posts

Thursday, September 22, 2022

Membuat Data Validasi dengan Query pada Spreadsheet

ruangexcel.blogspot.com


Salam sejahtera sobat ruangexcel, pada kali ini ruangexcel akan berbagi tentang bagaimana cara membuat validasi data dengan query pada spreadsheet sperti halnya pada microsoft excel. Namun, ada perbedaan menggunakan rumus atau rumus. Pada microsoft excel untuk mengambil atau memanggil data kita sering menggunakan index atau vlookup atau hlookup. Nah, pada spreadsheet kita menggunakan Query untuk memanggil data di sheet yang berbeda. 


Adapun cara membuat validasi data dengan query pada spreadsheet sebagai berikut :

Pertama, masukan rumus berikut pada sel A5 :

= QUERY ( 'Bentuk Tanggapan 1'!B1:H294 , "pilih C,D,B,E Dimana E='" & B2 & "' dan D='" & B3 & "'" )


Keterangan :

Data diambil dari sheet Form Tanggapan 1'!B1:H294

pilih = data yang diambil dengan susunan pengambilan data kolom C, D, B, dan E.

Where = untuk menampilkan data dari sheet Form Responses 1 pada kolom E dengan kriteria pada isian cell B2 atau B3.


Kedua, buka spreadsheet yang sudah terdapat beberapa data kemudian kita buat sheet untuk validasi menu validasi tabel berikut :




Letakan kursor pada sel B2 atau B3 kemudian Pada menu ribbon spreadsheet pilih menu Data kemudian pilih Data Validation.
maka akan muncul tabel validasi seperti gambar berikut :




Setelah muncul tabel validasi data pada kolom Cell range isi dengan datasheet Nilai UH ( =Nilai UH'!B2 atau 'Nilai UH'!B3). 


Kemudian, Kriteria isi dengan data dari sheet Form Responses 1 ( ='Form Responses 1'!$D$2:$D ) untuk tampil dropdown silahkan klik ceklis Show dropdown list in cell dan Reject input kemudian klik Save. 


Silahkan Coba, semoga berhasil dengan baik dan sukses.



Saturday, November 7, 2020

10 Perintah CMD Windows yang perlu Anda Ketahui | Ruang Excel

 

     1.   Systeminfo

Perintah systeminfo akan meberikan informasi konfigurasi terperinci computer anda. Hal ini mencakup system operasi dan perangkat keras. Misalnya ; tipe prosessor, versi BIOS, informasi OS dan lainnya.

     2.   Ipconfig

Perintah ipconfig pada system operasi windows berfungsi untuk menampilkan konfigurasi IP computer. Dengan menggunakan perintah ini maka anda dapat melihat konfigurasi IP apa saja yang telah diatur di komputernya dan IP bisa digunakan PC client untuk menjalankan aplikasi yang terpasang pada PC server dalam jaringan local.

     3.   Ping

Perintah ping digunakan untuk mengecek konektivitas antar satu computer dengan lainnya, hal ini dilakukan dengan mengirimkan sebuah pesan ICMP ke alamat IP yang hendak diujicoba konektivitasnya dan menunggu respon darinya.


     4.   Tracert

Perintah Tracert atau traceroute pada linux digunakan untuk melacak rute lintasan yang dilalui oleh paket dari PC anda ke alamat IP atau domain tujuan. Perintah tracert diikuti dengan destinasi IP atau domain.



     5.   Netstat

Netstat digunakan untuk memonitor jaringan dan informasi terkait dengan koneksi port, antara lain alamat IP yang terhubung, status koneksi dan aplikasi yang digunakan. Netstat juga bisa disebut sebagai port scanner.



     6.   Tasklist

Tasklist mirip dengan task manager, perintah ini digunakan untuk meberikan daftar nama task dan services yang sedang berjalan pada PC anda. Anda bisa menggunakan command tasklist-svc untuk melihat services aktif.

     7.   Taskkill

Dengan perintah taskkill kita dapat mematikan task atau service aplikasi yang sedang bekerja pada computer. Anda dapat melakukanperintah taskkill terlebih dahulu untuk melihat list task dan service yang berjalan.



    8.   Shutdown

Pada OS Windows 8 keatas terdapat perintah yakni shutdown, yang bisa digunakan untuk mematikan computer. Perintah shutdown /r/o banyak digunakan untuk mengakses safe mode dan recovery utilities windows.




     9.   Sfc/scannow

Sfc / scannow berfungsi sebagai alat pemindaian dan perbaikan otomatis yang berfokus pada file system windows. Anda perlu menjalankan command promt dengan administrator dan memasukan perintah “sfc / scannow”.



     10. Nslookup

Nslookup adalah perintsh yang digunakan untuk mengetahui ip dari sebuah domain. Nslookup sering dipakai untuk mengdiagnosa permasalahan jaringan yang berhubungan dengan DNS.




 

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

Trik Merubah Angka Menjadi Huruf pada ms excel

   Untuk merubah sebuah angka menjadi huruf sangatlah mudah, tanpa kita harus bikin scrip rumus yang panjang. Cukup dengan memasang aplikasi tambahan (Terbilang) pada microsoft excel. Hal ini akan memudahkan kita dalam kerjaan sebagai sekretaris,bendahara, operator BOS terutama pada pembuatan kwitansi dsb.

Lansung saja kita ke TKP :

A.   Non-aktifkan dahulu security macro dengan cara:

     1.    Klik Menu pada excel dan pilih Options

     2.    Setelah muncul jendela Excel Options, klik Trust Center, kemudian klik Trust Center Settings.


3. 


           B.   Install Add-ins Terbilang Excel, caranya:

  1. Klik Menu File pada Microsoft Excel dilanjutkan dengan klik Options.  
  2. Setelah muncul jendela Excel Options, klik Add-ins.
  3. Klik tombol Go dan jendela Add-ins, Klik Browse. Maka keluar dialog seperti berikut :


4.    Temukan letak file Add-ins Terbilang kemudian klik OK.



      5. Pada dialog Add-Ins di atas centang terbilang, klik OK. Sekarang, Anda dapat mulai menggunakan fungsi tersebut.

  C.   Langkah-langkah menggunakan rumus Terbilang untuk merubah angka menjadi huruf:

 

     1.    Ketikan rumus =PROPER(Terbilang(B3)) di cell C3. Kemudian isikan angka di cell B3 maka di cell C3 akan terbilang sesuai angka di Cell B3. Lihat gambar di bawah :





  2. Untuk merubah huruf menjadi kapital, silahkan “PROPER” diganti dengan “UPPER” atau ingin menjadi huruf kecil semua silahkan diganti dengan “LOWER”.

   3. Jika di akhir angka terbilang ada tulisan rupiah, silahkan ditambah Gan di akhir rumus. Misal =PROPER(Terbilang(B3))&”Rupiah”. Lihat gambar di bawah :

 

    Semoga aplikasi dan ilmu ini bermanfaat buat kita semua, selamat mencoba dan sukses !.


 Contoh file aplikasi Terbilang


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.