Kamis, 25 Juli 2013

Membuat Database entry KTP dengan Excel Macro 2007



Membuat database entry KTP dengan Excel Macro 2007
Hai all !
Pada postingan kali saya akan mencoba mengupas sedikit tentang bagaimana “Membuat Database Entry KTP dengan Excel Macro 2007”.
Apa dan bagaimana ? persiapan yang harus kita lakukan... ok langsung aja let’s make it real!
berikut ini ! adalah screenshot hasil formulir pembuatan system data entry KTP untuk wilayah serang – banten.
Untuk judul-nya sobat bloger bisa ganti sesuai dengan domisili sobat bloger masing-masing .
Silahkan sobat blogger buat seperti gambar disamping....
Persiapan :
Ganti nama  sheet1 menjadi form dan sheet2 menjadi database, form ini berisi NIK,Nama Lengkap,Tempat Lahir, Tgl Lahir,Jenis Kelamin, Alamat RT/RW, Kel/Desa,Kecamatan,Agama,Status Perkawinan, Pekerjaan, Kewarganegaraan dan masa berlaku.
Lalu siapkan pula dua buah Button, ganti namanya dengan simpan data dan hapus data? Kalau sudah  sekarang kita coba untuk membuat macro simpan data dan hapus data yand tadi sudah kita buat.
Sekarang klik kanan pada Button Simpan Data à Assign Macro à Edit, maka anda akan masuk pada area kerja Visual Basic. Seperti gambar  dibawah ini !
Screenshot gambar Area kerja Visual Basic



Nah sekarang silahkan anda ketik atau Copas Kode dibawah ini :
Sub Button1_Click()
Application.ScreenUpdating = False
Dim nik, nama, tlahir, tgllahir, rtrw, desa, gender, kec, agama, statusp, pekerjaan, kewarganegaraan, masaberlaku As String 'deklarasi
nik = Cells(4, 2).Value
nama = Cells(6, 2).Value
tlahir = Cells(7, 2).Value
tgllahir = Cells(8, 2).Value
gender = Cells(9, 2).Value
rtrw = Cells(11, 2).Value
desa = Cells(12, 2).Value
kec = Cells(13, 2).Value
agama = Cells(6, 4).Value
statusp = Cells(7, 4).Value
pekerjaan = Cells(8, 4).Value
kewarganegaraan = Cells(9, 4).Value
masaberlaku = Cells(10, 4).Value
With Worksheets("database")
baristerakhir = Worksheets("database").Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(baristerakhir + 1, 1).Value = nik
.Cells(baristerakhir + 1, 2).Value = nama
.Cells(baristerakhir + 1, 3).Value = tlahir
.Cells(baristerakhir + 1, 4).Value = CDate(tgllahir)
.Cells(baristerakhir + 1, 5).Value = gender
.Cells(baristerakhir + 1, 6).Value = rtrw
.Cells(baristerakhir + 1, 7).Value = desa
.Cells(baristerakhir + 1, 8).Value = kec
.Cells(baristerakhir + 1, 9).Value = agama
.Cells(baristerakhir + 1, 10).Value = statusp
.Cells(baristerakhir + 1, 11).Value = pekerjaan
.Cells(baristerakhir + 1, 12).Value = kewarganegaraan
.Cells(baristerakhir + 1, 13).Value = masaberlaku
End With
'Range(Cells(4, 2), Cells(6, 2), Cells(7, 2), Cells(8, 2), Cells(9, 2), Cells(11, 2), Cells(12, 2), Cells(13, 2)).ClearContents
'Range(Cells(6, 4), Cells(7, 4), Cells(8, 4), Cells(9, 4), Cells(10, 4)).ClearContents
ActiveWorkbook.Save
MsgBox "Data Sudah disimpan !", vbInformation
Application.ScreenUpdating = True
End Sub
Kalau sudah silahkan coba dan lihat hasilnya...
Semoga bermanfaat

Tidak ada komentar:

Poskan Komentar