Versi Excel yang digunakan pada blog ini adalah Versi Office 2007 dan 2010 mudah-mudahan kedepan akan saya upgrade menggunakan Ms. Office Excel yang lebih tinggi lagi. Pada blog Excel ini saya akan terus berkreasi membuat aplikasi-aplikasi yang dibutuhkan oleh banyak orang dan tentunya masih tetap menggunakan basis VBA.
Project Aplikasi yang dibuat di blog ini Insya Allah akan terus di update seperti Aplikasi bidang Pendidikan yaitu Aplikasi Database Siswa, Aplikasi Ujian Mandiri dengan sistem Acak Soal, Aplikasi Kwitansi berbasis Excel, Aplikasi Lacak KTP menggunakan rumus Excel, Aplikasi PPK PNS, Aplikasi Kalkulator Perhitungan Pasangan Batu Bata, Aplikasi Kasir berbasis Excel, Aplikasi Gudang, Aplikasi Absensi, Aplikasi Parkir, Aplikasi Deteksi Kesehatan, Aplikasi Apotek, Aplikasi Database Pasien, Aplikasi Dana BOS
Untuk penerimaan siswa baru bagi sekolah Excel-Id.com juga menyediakan secara gratis Aplikasi PPDB / PSB berbasis Excel . Aplikasi SPP juga digunakan bagi sekolah yang masih menerima iuran dana dari siswa. Yang tidak kalah lagi saya buatkan juga sebuah aplikasi untuk Pemilihan Kepala Desa berbasis Excel.
Semoga Aplikasi Excel ini bermanfaat bagi para pembaca, komentar Anda sangat saya butuhkan dalam pengembangan kebutuhan atau update sebuah aplikasi yang telah di desain. Ikuti terus dan tetap bersama www.excel-id.com
9 Komentar
Gan ....
BalasHapusboleh requst aplikasi nggak Gan ???
Hallo excel-id, salam kenal.
BalasHapusNama saya Mariano Nathanael, tinggal di bandung.
Saya sedang belajar pemrograman VBA dan blog anda cukup membantu
pembelajaran saya. Terimakasih banyak ya..
Saya mau bertanya dan meminta pertolongannya nih..
Saya mau membuat kode macro untuk meng’hidden’ row, nah, kode yang sudah
saya pakai adalah sbb. :
Sheets("Identitas").Select
Dim Hdua As Byte
Hdua = Range("c14") + 8
‘ range(“c14”) adalah sebuah nilai yang diinput di worksheet Identitas
Sheets("Hasil 2").Select
Rows("10:59").Select
Selection.EntireRow.Hidden = False
‘perintah di atas adalah untuk meng’unhidden’ atau ‘show’ rows(10:59) yang
telah di hidden
Range("B2").Select
ActiveCell.Offset(Hdua, 0).Select
‘perintah di atas untuk menggeser sel aktif ke rows yang diinginkan (sejauh
Hdua ke bawah B2)
For y = Hdua To 57
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Next y
‘Perintah For.. To.. Next adalah untuk meng’hidden’ rows satu demi satu
dari row (B2+Hdua) ampe row 57
Range("B1").Select
Kode tersebut berhasil berjalan dengan baik.
Yang menjadi masalah adalah saya ingin memperpendek kode tersebut, karena
perintah For..To..Next di atas memakan waktu juga karena meng’hidden’ row
satu demi satu.
Saya mencoba membuat kode berikut untuk memperpendeknya sehingga
meng’hidden’nya satu kali saja karena row (B2+Hdua) ampe row 57 sudah
di’select’ terlebih dahulu melalui kode VBA, hanya saja kode saya ini gagal
total, mohon koreksinya.
Sheets("Identitas").Select
Dim Hdua As Byte
Hdua = Range("c14") + 8
‘ range(“c14”) adalah sebuah nilai yang diinput di worksheet Identitas
Sheets("Hasil 2").Select
Rows("10:59").Select
Selection.EntireRow.Hidden = False
‘perintah di atas adalah untuk meng’unhidden’ atau ‘show’ rows(10:59) yang
telah di hidden
Rows("Hdua:59").Select
‘perintah di atas yang gagal total
Selection.EntireRow.Hidden = True
Range("B1").Select
Mohon koreksi dan solusinya untuk perintah Rows("Hdua:59").Select yang gagal total tersebut. Terimakasih.
Mohon solusi permasalan koding saya di atas. terimakasih
BalasHapusmau nanya min...baru bljr ni,
BalasHapuskalo untuk database yang dimaksud buat sendiri di excel dengan sheet yang berbeda atau di mc access?
krn saat saya mencobakan tutorial input data siswa muncul error untuk syntax :
iRow = Ws.Cells(Rows.Count, 1) _
.End(x1Up).Offset(1, 0).Row
mhn pencerahannya
thank's ya atas ilmunya,smoga menjadi berkah
BalasHapusHatur nuhun atas ilmu y mas sangat membantu
BalasHapuswww.sayutial-zakaria.blogspot.co.id
Hatur nuhun atas ilmu y mas sangat membantu
BalasHapuswww.sayutial-zakaria.blogspot.co.id
password untuk melihat codingannya apa gan?? :')
BalasHapusMas, apa dalam satu useform bisa nge set 2 sheet
BalasHapusTulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler