- Aplikasi Data Kependudukan Excel
- Aplikasi Data Penduduk Dengan Excel Untuk
- Aplikasi Data Penduduk Dengan Excel
Download Aplikasi Data Penduduk Gratis Software Kependudukan RT RW Desa Excel Full Monday, March 25, 2019 Add Comment Edit FORMAT-ADMINISTRASI-DESA.BLOGSPOT.COM - Jika sebelumnya Admin Blog ini sudah mengizinkan saya me-review Aplikasi APBDes Excel 'Software Administrasi Desa Full'. 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.
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
'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
Aplikasi Data Kependudukan Excel
End Sub