Untuk Import data pilih menu Kependudukan-Import-Data dari aplikasi lain, atau download conventer dari excel pada link kami, isikan data pada contoh format baru konvert. Jika mengalami kesulitan kirim file database ke kami insya allah kami bantu memasukan ke app adminduk. Klau untuk input data pilih menu Kependudukan-Masukkan data-Data Awal. Akhirnya, Aplikasi Excel Buku Induk Penduduk versi ExcelManiacs dengan referensi data dan formulir-formulir administrasi kependudukan berasal dari Kementerian Dalam Negeri dengan basis aplikasi spesialis maniaknya excel yaitu Microsoft Office Excel. Dalam Microsoft Excel dengan format penulisan yang masih kurang tertata dengan baik. Masalah muncul ketika terdapat warga yang pindah, datang, lahir ataupun meninggal. Perubahan data dilakukan secara manual sehingga akan sangat memakan waktu dalam proses perubahan data tersebut. Maka dibangunlah aplikasi sensus penduduk ini yang.
KODEINPUT
Dim iRowAs Long
iRow =Sheets('DATA').Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).row
Sheets('DATA').Cells(iRow,3).Value = TextBox13.Value
Sheets('DATA').Cells(iRow,4).Value = ('' & TextBox1.Value)
Sheets('DATA').Cells(iRow,5).Value = TextBox2.Value
Sheets('DATA').Cells(iRow,6).Value = ('' & TextBox3.Value)
Sheets('DATA').Cells(iRow,7).Value = ComboBox1.Value
Sheets('DATA').Cells(iRow,8).Value = ComboBox2.Value
Sheets('DATA').Cells(iRow,9).Value = TextBox4.Value
Sheets('DATA').Cells(iRow,10).Value = TextBox22.Value
Sheets('DATA').Cells(iRow,11).Value = ComboBox3.Value
Sheets('DATA').Cells(iRow,12).Value = ComboBox4.Value
Sheets('DATA').Cells(iRow,13).Value = ComboBox5.Value
Sheets('DATA').Cells(iRow,14).Value = ComboBox6.Value
Sheets('DATA').Cells(iRow,15).Value = TextBox6.Value
Sheets('DATA').Cells(iRow,16).Value = TextBox7.Value
Sheets('DATA').Cells(iRow,17).Value = TextBox8.Value
Sheets('DATA').Cells(iRow,18).Value = TextBox9.Value
Sheets('DATA').Cells(iRow,19).Value = TextBox10.Value
Sheets('DATA').Cells(iRow,20).Value = TextBox11.Value
Sheets('DATA').Cells(iRow,21).Value = ComboBox7.Value
Sheets('DATA').Cells(iRow,22).Value = TextBox12.Value
Data =NOMOR.Value
Set c =.Find(Data, LookIn:=xlValues)
MsgBox 'nama belum terdaftar',vbCritical
BARIS= c.row
Sheets('Data').Cells(BARIS,3).Value = TextBox13.Value
Sheets('Data').Cells(BARIS,4).Value = TextBox1.Value
Sheets('Data').Cells(BARIS,5).Value = TextBox2.Value
Sheets('Data').Cells(BARIS,6).Value = TextBox3.Value
Sheets('Data').Cells(BARIS,7).Value = ComboBox1.Value
Sheets('Data').Cells(BARIS,8).Value = ComboBox2.Value
Sheets('Data').Cells(BARIS,9).Value = TextBox4.Value
Sheets('Data').Cells(BARIS,10).Value = TextBox5.Value
Sheets('Data').Cells(BARIS,11).Value = ComboBox3.Value
Sheets('Data').Cells(BARIS,12).Value = ComboBox4.Value
Sheets('Data').Cells(BARIS,13).Value = ComboBox5.Value
Sheets('Data').Cells(BARIS,14).Value = ComboBox6.Value
Sheets('Data').Cells(BARIS,15).Value = TextBox6.Value
Sheets('Data').Cells(BARIS,16).Value = TextBox7.Value
Sheets('Data').Cells(BARIS,17).Value = TextBox8.Value
Sheets('Data').Cells(BARIS,18).Value = TextBox9.Value
Sheets('Data').Cells(BARIS,19).Value = TextBox10.Value
Sheets('Data').Cells(BARIS,20).Value = TextBox11.Value
Sheets('Data').Cells(BARIS,21).Value = ComboBox7.Value
Sheets('Data').Cells(BARIS,22).Value = TextBox12.Value
EndWith
EndSub
KODE PENOMORAN
PrivateSub CommandButton12_Click()
DimSr As Long
Range('A9').Value = '=IF(COUNTIF(C8:C9,C9)=2,0,IF(COUNTIF(C8:C9,C9)=1,C9,0))'
Range('A9:' & 'A' & Sr).FillDown
Range('a1')= Application.CountA(Range('E8:E3000')) + 1
Forxx = 1 To Range('a1')
Cells(No+ 7, 2).Value = No
'-----------------------------------------
Dimx As Worksheet, LastRow&
LastRow= x.Cells.SpecialCells(xlCellTypeLastCell).row
x.Range('A8:C'& LastRow).PasteSpecial Paste:=xlPasteValues
x.Range('W8:X'& LastRow).PasteSpecial Paste:=xlPasteValues
TextBox29.Value= Sheets('DATA').Cells(6, 6).Value
End Sub
HITUNG UMUR
'UMUR
Range('W1').Value= Now()
Range('X8').Value = '=IF(E8<>0,DATEDIF(J8,$w$1,$x$1),0)'
Range('W8:' & 'x' & SB).FillDown
EndSub
KODE BORDER
Membuat Aplikasi Data Penduduk Dengan Excel
'Border
Cells.Borders.LineStyle = xlNone
LastRow = Cells.Find('*', ,xlValues, , xlRows, xlPrevious).row
LastCol = Cells.Find('*', ,xlValues, , xlByColumns, xlPrevious).Column
.BorderAround xlDouble
.Rows.Borders(xlInsideHorizontal).LineStyle= xlDash
.Rows.Borders(xlInsideVertical).LineStyle =xlContinuous
.Font.Size = 11
Worksheets('data').Range('a8:X3000').Interior.ColorIndex= 2
Aplikasi Data Penduduk Dengan Excel
For i = 8 To Range('A1') + 7
Set r2 = Range('A' & i& ':X' & i)
If r1.Value = 'Kepala Keluarga' Then r2.Interior.ColorIndex = 35
If r1.Value = 'Istri' Then r2.Interior.ColorIndex = 34
End Sub
UNDUH SAMPE FILE XLSM >> FORM ENTRI DATA PENDUDUK