Rabu, 28 Desember 2016

Membuat Entri Data dengan VBA


Uuntuk melengkapi tips sebelumnya yaitu Menghapus Nilai Ganda Menggunakan VBA saya akan buatkan untuk anda yaitu Membuat Entri Data dengan VBA. Ada dua lgika penting yang perlu diingat saat membuat Entri Data dengan VBA yaitu :
1 Mengetahui baris terakhir yang kosong
2 Mengisi baris akhir yang kosong dengan data

Lihatlah tabel dibawah ini
K/B A B C
1 - --
2 NAMA KARYAWAN JENIS KELAMIN JABATAN
3 Agus mahardika LHRD
4 Mubin LMaintenance Building
5 Sujiyono LStaff OB
6 Mas Eko LStaff OB
7 Karim LDriver
8 Nadi Maulana LDriver
9 Siti Rukmini POG
10 Wasis zain LOB
11 Sudarso LOB
12 - --
13 - --
14 - --

Coba buatlah tabel sebagaimana tabel diatas, lalu perhatikan ke kolom E F dan kolom G, isikan pada kolom E1 "NAMA KARYAWAN" kolom F1 "JENIS KELAMIN" dan kolom G1 "JABATAN" perhatikan gambar dibawah ini


Lalu klik tab menu developer, pilih insert > Insert Commandbutton ActiveX Controls, perhatikan lagi gambar diatas. Jika sudah langsung saja ketikan baris kode macro dibawah ini kedalam jendela VBE

Private Sub CommandButton1_Click()
Set Epro = Sheets("HOME")
BarisAkhir = Epro.Cells(Epro.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Epro.Cells(BarisAkhir + 1, 1).Value = Epro.Range("E2").Value
Epro.Cells(BarisAkhir + 1, 2).Value = Epro.Range("F2").Value
Epro.Cells(BarisAkhir + 1, 3).Value = Epro.Range("G2").Value
End Sub

Atau bisa juga ditulis seperti ini

Private Sub CommandButton1_Click()
BarisAkhir = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row + 1
Cells(BarisAkhir, 1).Value = Range("E2").Value
Cells(BarisAkhir, 2).Value = Range("F2").Value
Cells(BarisAkhir, 3).Value = Range("G2").Value
End Sub

Sekarang isikan pada kolom E2 "Nama pembaca" kolom F2 "Jenis kelamin pembaca" dan kolom G2 "Jabatan Pembaca" lalu klik tombol Commanbutton, insya Allah berhasil ya, karena tidak terlalu rumit.

Catatan Membuat form input vba excel

Kita buktikan bahwa ada "kaitanya antara menghitung baris yang aktif dengan membuat form input vba excel", karena kalau diamati memang baris baris kode macro Membuat form input vba excel sangat identik dengan menghitung baris yang aktif .kode macro yang digunakan untuk menghitung baris aktif adalah

Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row

Senada dengan pernyataan diatas bahwa Logika pertama yang digunakan form input agar menghasilkan input data secara teratur adalah mengetahui terlebih dahulu baris yang aktif, Lalu kelogika kedua form input akan meletakan input data tepat dibawah jumlah baris yang aktif, baris kode macronya adalah

Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row + 1

BarisAkhir = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Cells(BarisAkhir + 1, 1).Value . . . . .

Mungkin pembaca masih ada yang bertanya tanya baris kode macro nomor 1,2,3 seperti dibawah ini

Cells(BarisAkhir, 1).Value = ...
Cells(BarisAkhir, 2).Value = ...
Cells(BarisAkhir, 3).Value = ...

Angka 1,2,3 pada kode maro tersebut tidak mewakili baris (Row) akan tetapi angka tersebut mewakili kolom yakni angka 1 untuk kolom A, angka 2 untuk kolom B, kolom C diwakili angka 3 dan seterusnya.


Tanpa iklan yang bikin muter muter

Demikianlah tips dan tutorial cara Membuat Entri Data dengan VBA, silahkan buka aplikasi microsoft excel anda lalu pahami tentang Visual basic for application (VBA), semoga bermanfaat dan mudah dimengerti. Aamiin


EmoticonEmoticon