Sobat ruang excel, Barang-barang yang ada di ruangan baik ruang kelas, kantor maupun perpustakaan harus diinventarisir. Seperti barang mabeler, elektronik, dan barang modal lainnya harus tercatat dan diketahui dengan jelas rincian barang dan riwayat pencatatnya. 

Hal tersebut harus dilakukan dengan tujuan untuk memantau keberadaan dan kondisi barang modal tersebut secara berkala. Selain itu juga agar memudahkan dalam pengerjaan pencatatan dan pelaporan pada Sistem Informasi Manajemen Daerah (SIMDA) di setiap tahunnya.

ruang excel mencoba berbagi sebuah Aplikasi Input data barang inventaris dengan menggunakan basis data Microsoft Excel yang dilengkapi tombol catat dengan bantuan kode vba.

Sobat ruang excel bisa unduh aplikasi Input data barang dengan gratis dan jika sobat ingin mengembangkan aplikasi ini silahkan berikut kode vba-nya untuk dipasang pada file excel input data pada menu macros :

Berikut adalah kode vba pada tombol Catat :

Sub insertData()

Dim jumlahData As Integer

Dim no, kodebarang, namabarang, jenisbarang, bahan, volume, laik, kuranglaik, tdklaik, namaruang, pencatat As String

Sheets("Entri").Select

no = Range("B2").Text

kodebarang = Range("B3").Text

namabarang = Range("B4").Text

jenisbarang = Range("B5").Text

bahan = Range("B6").Text

volume = Range("B7").Text

laik = Range("D7").Text

kuranglaik = Range("F7").Text

tdklaik = Range("H7").Text

namaruang = Range("B8").Text

pencatat = Range("B10").Text

    Sheets("Data Invt").Select

    jumlahData = Range("L1").Value

    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select

    Selection.Copy

    Rows(jumlahData + 3 & ":" & jumlahData + 3).Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Range("A" & jumlahData + 3).Select 'input no

    ActiveCell.FormulaR1C1 = jumlahData + 1

    Range("B" & jumlahData + 3).Select 'input kodebarang

    ActiveCell.FormulaR1C1 = kodebarang

    Range("C" & jumlahData + 3).Select 'input namabarang

    ActiveCell.FormulaR1C1 = namabarang

    Range("D" & jumlahData + 3).Select 'input jenisbarang

    ActiveCell.FormulaR1C1 = jenisbarang

    Range("E" & jumlahData + 3).Select 'input bahan

    ActiveCell.FormulaR1C1 = bahan

    Range("F" & jumlahData + 3).Select 'input volume

    ActiveCell.FormulaR1C1 = volume

    Range("G" & jumlahData + 3).Select 'input laik

    ActiveCell.FormulaR1C1 = laik

    Range("H" & jumlahData + 3).Select 'input kuranglaik

    ActiveCell.FormulaR1C1 = kuranglaik

    Range("I" & jumlahData + 3).Select 'input tdklaik

    ActiveCell.FormulaR1C1 = tdklaik

    Range("J" & jumlahData + 3).Select 'input namaruang

    ActiveCell.FormulaR1C1 = namaruang

    Range("K" & jumlahData + 3).Select 'input user

    ActiveCell.FormulaR1C1 = pencatat

    Sheets("Entri").Select

    'pesan berhasil

    MsgBox "Input Data Berhasil !", vbInformation, "Terimakasih !"

End Sub

Ketika kita berhasil memasukan kode tersebut pada Vba/macro catat maka data yang kita edit pada Sheet Entri kemudian klik tombol catat data akan terinput di Data Invt.

Lihat Gambar di bawah :

ruangexcel.blogspot.com : Sobat ruang excel Salam sejahtera saya sampaikan kepada Bapak/Ibu guru dan operator sekolah.  Pada kesempatan sebelumnya saya telah memposting Aplikasi PPDB Versi 01. Nah Pada kali ini saya berbagi Aplikasi PPDB Versi 02 Dalam rangka upaya memenuhi permintaan dam masukan rekan-rekan operator sekolah atau bapak/ibu guru wali kelas pada komentar postingan Aplikasi PPDB Versi 01. Pembaruan pada Aplikasi PPDB Versi 02 bisa digunakan pada tingkat SD, SMP, dan SMA dalam menginput data siswa baru pada kegiatan Penerimaan Peserta Didik Baru (PPDB) tahun pelajaran 2023/2024.

Aplikasi input data siswa baru ini Insya Allah sangat bermanfaat dan perlu saya jelaskan secara singkat  kepada bapak/ibu guru atau operator  bahwa aplikasi ini terdapat dua sheet atau lembar kerja excel yakni:

    1. Sheet formulir yang bisa digunakan untuk formulir isian yang harus dibagikan kepada orang tua siswa atau wali murid untuk disi dengan data calon siswa baru.

     2. Sheet Input Data siswa baru terdiri dari empat menu (button) yakni;

     a.   MenuTambah :

Menu tambah berfungsi untuk menambah data siswa baru yang akan diinput pada sheet data dan setiap penambahan siswa baru pada kolom Id secara otomatis menambah.

     b.   Menu Edit :

Menu edit berfungsi untuk mengedit atau meperbaiki data yang sudah terinput pada sheet data. Jika perbaikan sudah selesai maka harus klik simpan agar data yang telah kita edit atau perbaiki tersimpan pada sheet data.

    c.   Menu hapus :

Menu hapus berfungsi untuk menghapus data yang telah terinput pada sheet data.

     d.   MenuCari Data

Menu cari data berfungsi untuk mencari data yang telah terinput pada sheet data. Ketika kita ingin mengedit (meperbaiki) atau menghapus data yang kita inginkan maka, kita manfaatkan menu cari data untuk menampilkan data secara cepat dan akurat sesuai yang kita inginkan dan akan kita perbaiki atau hapus.

Demikian berbagi aplikasi dan ilmu, semoga bermanfaat, sukses dan berkah. Aamiin.

Silahkan unduh Aplikasi sederhana Input Data Siswa Baru (PPDB) Versi 02 

file Aplikasi PPDB versi 01 

Sobat ruang excel, sebelum kita melakukan uji validitas dan reliabilitas, pastikan microsoft excel pada laptop/PC kita sudah muncul Data Analysis di menu Data toolbar sebelah kanan atas. 

Jika belum muncul, maka kita harus memunculkan data analysis dengan langkah-langkah sebagai berikut :

  1. Klik menu file atau icon microsoft Office setelah muncul seperti gambar di bawah dan pilih menu Options.

Masukkan  perintah  otomasi. Contoh  jika  kita  ingin menguji  apakah  item  nomor 1 (satu)  valid  atau kah tidak maka  letakkan  kursor  di  bawah  r  tabel  pada  kolom  item  nomor 1 (satu)  dan masukkan  perintah =IF(B17>B18;"valid";"Unvalid"), seperti gambar di atas kemudian enter.

Demikian sobat ruang excel share kali ini. Semoga bermanfaat dan sukses selalu.