Aplikasi ini bisa diakses secara offline mapun online, sehingga setiap perangkat desa bisa mengurus data penduduk dengan mudah, kapanpun dan dimanapun. Bahkan jika anda tidak membawa laptop pun, anda bisa menggunakan Tablet Android untuk mengerjakan tugas administrasi desa. Scrivener license key reddit. 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.

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

Aplikasi Data Penduduk Dengan Excel Yang

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

Membuat Aplikasi Data Penduduk Dengan Excel

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)'

Aplikasi Data Penduduk Dengan Excel Untuk

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

.Rows.Borders(xlInsideHorizontal).LineStyle= xlDash

.Rows.Borders(xlInsideVertical).LineStyle =xlContinuous

.Font.Size = 11

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

Aplikasi Input Data Penduduk Excel

Aplikasi Data Kependudukan Excel

UNDUH SAMPE FILE XLSM >> FORM ENTRI DATA PENDUDUK