Aplikasi Data Penduduk Dengan Excel

/ Comments off

Aplikasi data penduduk gratis ini mempunyai fitur yang sederhana. Untuk Sobat Desa yang sudah terbiasa dengan microsoft office excel mungkin ini biasa saja. Kali ini aku kembali menerima kesempatan untuk mengulas Aplikasi Kependudukan RT Gratis dengan excel (xls) yang sanggup did0wnl0ad secara mudah. Aplikasi data penduduk gratis ini mempunyai fitur yang sederhana. Download free software aircraft flight test program.



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)
  1. Dari beberapa aplikasi di atas masih banyak kekurangannya misalnya untuk data penduduk tidak bisa di import dari excel jadi Anda harus manual memasukannya. Bisa dibayangkan keselnya input satau-satu jika datanya ribuan, namun bisa diatasi dengan import lewat PHPMyadmin tapi harus tahu dulu kode referensi data penduduknya.
  2. Input Data Warga Miskin & cetak 5. Input foto penduduk (jika diperlukan) 6. Backup database 7. Restore database 8. Print & Preview Report 9. Print & Preview Data Statistik 10. Export (Download) database ke excel 11. Import tabel excel ke dalam aplikasi 12. Setting Konfigurasi user ID, dll 13. Deteksi usia wajib KTP 14. Dapat mengetahui jumlah.
  3. Aplikasi data penduduk full gratis, software kependudukan rt rw dengan excel. Silahkan download.
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

Cara Membuat Aplikasi Data Penduduk Dengan Excel

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
'Border
Cells.Borders.LineStyle = xlNone
LastRow = Cells.Find('*', ,xlValues, , xlRows, xlPrevious).row
LastCol = Cells.Find('*', ,xlValues, , xlByColumns, xlPrevious).Column
.BorderAround xlDouble
Aplikasi Data Penduduk Dengan Excel
.Rows.Borders(xlInsideHorizontal).LineStyle= xlDash
.Rows.Borders(xlInsideVertical).LineStyle =xlContinuous
Aplikasi data penduduk dengan excel gratis

Aplikasi Data Penduduk Rt Dengan Excel Gratis

.Font.Size = 11

Aplikasi Data Penduduk Dengan Excel


Worksheets('data').Range('a8:X3000').Interior.ColorIndex= 2

Aplikasi Data Penduduk Dengan Excel Ke

For i = 8 To Range('A1') + 7
Set r2 = Range('A' & i& ':X' & i)

Aplikasi Data Penduduk Dengan Excel Gratis

If r1.Value = 'Kepala Keluarga' Then r2.Interior.ColorIndex = 35
If r1.Value = 'Istri' Then r2.Interior.ColorIndex = 34
End Sub

Membuat Aplikasi Data Penduduk Dengan Excel


Aplikasi Input Data Penduduk Excel

UNDUH SAMPE FILE XLSM >> FORM ENTRI DATA PENDUDUK