IMPUT DATA DARI USER FORM

IMPUT DATA DARI USER FORM 

          Slamat Malem...? semua terimakasih telah mampir di blog saya, Seperti yan pernah saya utarakan kemarin, bahwa saya belajar dari Autodidak sedikit demi sedikit merangkai/menumpulkan pengetahuan, maka dari itu bagi teman-teman yang berkenan menberi Saran,masukan saya ucapkan terimakasih, bisa di tulis dikolom komentar, atau yang mungkin berkenan belajar bareng sama saya, atau mengajari saya bagi blogger saya malah seneng.

              Coretan ini saya buat hanya bagi pemula yang mungkin haya cari refrensi/atau gambaran mengenai peroyek macro yang sedang dibuat.tetang input data.

Tahapanya menurut Saya sebagai berikut

- Bukalah lembar Keja Ms.Excel buatlah suatu Proyek dengan nama imput data jangan lupa formalya excel macro enabled workbook.

 - Berikutnya tambahkan userform dn buatlah dan tambahkan TextBox, Label, CommandButton dan ComboBox seperti Pada gambar Dibawah,

- Buatlah Nama-nama seperti gambar di Atas

- Lalu Masukan Kode- Kode Berikut 

Private Sub UserForm_Initialize()

With DUKUH

.AddItem ""

.AddItem "KRAJAN"

.AddItem "SIDADAP"

.AddItem "SIBUGEL"

End With

With DUKUH

End With

With RT

.AddItem ""

.AddItem "01"

.AddItem "02"

.AddItem "03"

End With

With RT

End With

With RW

.AddItem ""

.AddItem "01"

.AddItem "02"

.AddItem "03"

End With

With RW

End With

With KELAMIN

.AddItem ""

.AddItem "Laki-laki"

.AddItem "Perempuan"

End With

With KELAMIN

End With

With TEMPATLHR

.AddItem ""

.AddItem "Kebumen"

.AddItem "Purworejo"

.AddItem "Wonosobo"

End With

With TEMPATLHR

End With

TOMBOL MASUKAN DATA

Private Sub CommandButton2_Click()

Dim I As Long

Sheet1.Activate

'I = WorksheetFunction.CountA(Range("A:A")) + 1 Adalah yang untuk memindahkan jika baris satu sudah terisi data

I = WorksheetFunction.CountA(Range("A:A")) + 1

Me.TextBoxNAMA.SetFocus

'Masukan data ke database

Cells(I, 1).Value = Me.TextBoxNAMA.Value

Cells(I, 2).Value = "'" & Me.TextBoxNIK.Value

Cells(I, 3).Value = "'" & Me.TextBoxNOMORKK.Value

Cells(I, 4).Value = Me.DUKUH.Value

Cells(I, 5).Value = "'" & Me.RT.Value

Cells(I, 6).Value = "'" & Me.RW.Value

Cells(I, 7).Value = Me.KELAMIN.Value

Cells(I, 8).Value = Me.TEMPATLHR.Value

'Untuk menghapus data di tektbok userform

Me.TextBoxNAMA.Value = ""

Me.TextBoxNIK.Value = ""

Me.TextBoxNOMORKK.Value = ""

Me.DUKUH.Value = ""

Me.RT.Value = ""

Me.RW.Value = ""

Me.KELAMIN.Value = ""

Me.TEMPATLHR.Value = ""

pesan = MsgBox("" & vbCrLf & "TAMBAH DATA LAGI ?", vbYesNo, "sistem aplikasi")

Select Case pesan

Case vbYes

Me.TextBoxNAMA.SetFocus

Case vbNo

Unload Me

End Select

ActiveWorkbook.Save

TOMBOL BATAL

Private Sub CommandButton1_Click()

Unload Me

untuk proyek aplikasi contohya ada di sini  UNDUH