Terkadang kita dalam pembuatan administrasi membuat tabel yang cukup panjang, namun ternyata datanya hanya sebagian saja. Data yang kosong tidak perlu kita print. Untuk mengatasi hal tersebut kita bisa menggunakan sebuah tombol perintah, misalnya “Hiden Data Kosong”
Menyembunyikan Data Yang Kosong dengan Tombol di VBA
- Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"
- Klik Insert kemudian klik Module
- Copy Paste kode berikut di bawah ini dan masukan ke dalam module
- Hurup RAB bisa anda rubah sesuai keinginan
- dan range $A$16:$A$93 artinya range yang akan diberi perintah untuk dihilangkan.
- Selanjutnya kita akan membuat perintah untuk data yang ada agar tidak hilang dan data yang tidak ada agar bisa dihilangkan.
Di mulai dari kolom A16 kita buatkan perintah sebagai berikut :
=IF(C16>””;"DJ";"")Artinya Jika kolom C16 lebih besar dari “” maka DJ jika tidak maka “” lalu anda copy paste rumus tersebut ke bawah sesuai dengan data yang akan dihilangkan. Dan apabila data yang tidak perlu dihilangkan maka kebawahnya anda manualkan saja jangan diberi rumus. Lihat saja contohnya. Atau rumus ini bisa disesuaikan dengan keinginan.
- Setelah itu kita membuat sebuah tombol “Hiden Data Kosong” dengan fasilitasi “Text Box”
- Setelah dibuatkan tombol “Hiden Data Kosong” lalu klik kanan pada tombol tersebut lalu klik “Assign Macro….”. lihat gambar dibawah.
- Kemudian masuk ke menu Assign Macro...
Perintah yang kita buat tadi di module akan tampil di sini, dan dalam hal ini perintah yang kita buat adalah Filter_RAB lalu klik kemudian OK.
Nah sekarang tombol perintah untuk menghilangkan data yang kosong sudah bisa kita gunakan.
Data yang sudah dihiden/disembunyikan tidak bisa dikembalikan secara normal, sehingga kita tida bisa menambah datanya. Waaah gawat dong…???
Jangan panik sobat, kita akan mengembalikannya lagi dengan membuat fasilitas tombol untuk menampilkan semua data dan akan dibahas pada artikel selanjutnya.
- Simpan file tersebut ke dalam type atau Save as type : Excel Macro-Enabled Workbook atau type Excel Binary Workbook
'https://baladaka.blogspot.com '============================ Sub Filter_RAB() ActiveSheet.Range("$A$16:$A$93").AutoFilter Field:=1, Criteria1:="<>" End Sub
Download VBA Excel - Menyembunyikan Data/Baris Kosong | Download |
min. coba tulong buatkan yang bisa sembunyi otomatis min "sebunyikan otomatis dengan row"
BalasHapus