Aplikasi Data Penduduk Dengan Excel

17-08-2021
 |  [RAND-100] - Comments


APLIKASI PENGOLAHAN DATA PENDUDUK BERBASIS WEBUntuk Mendapatkan Aplikasi ini - Silahkan SUBSCRIBE Chanel kami di sini dan Tuliskan Emai.


KODEINPUT
  1. Kali ini saya kembali mendapat kesempatan untuk mengulas Aplikasi Kependudukan RT Gratis dengan excel (xls) yang dapat didownload secara mudah. Aplikasi data penduduk gratis ini memiliki fitur yang sederhana. Untuk Sobat Desa yang ingin menggunakan aplikasi ini.
  2. File data base ini berupa aplikasi berformat microsoft excel yang amat familier bagi seorang pendidik, yang merupakan sebuah kemasan dari beberapa aplikasi maupun program untuk mengolah beberapa data berkaitan dengan administrasi guru serta laporan penilaian secara menyeluruh.
  3. 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.
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
Penduduk
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

Cara Membuat Aplikasi Data Penduduk Dengan Excel

EndWith
Data
EndSub
Aplikasi
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

Download Aplikasi Data Penduduk Dengan Excel

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

Aplikasi Data Penduduk Dengan Excel Ke

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 Untuk

.Rows.Borders(xlInsideHorizontal).LineStyle= xlDash
.Rows.Borders(xlInsideVertical).LineStyle =xlContinuous
.Font.Size = 11

Aplikasi Data Penduduk Dengan Excel Gratis


Worksheets('data').Range('a8:X3000').Interior.ColorIndex= 2
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