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

Download File