Menambahkan, Label, Textbook, dan CommandButton bagi pemula.

1. Menambahkan, Label, Textbook, dan CommandButton bagi pemula.
      Pada artikel yang lalu saya mencoba menulis tentang Cara Membuat UserForm Bagi Pemula, pada Artikel kali ini saya mencoba menuliskan cara Menambahkan, Label, Textbook, dan CommandButton bagi pemula, semoga coretan ini bisa sedikit membantu bagi teman-teman semua yang sedang belajar macro tingkat dasar.

  setelah sudah berhasil  Membuat UserForm Bagi Pemula, dibawah ini adalah contoh menambahkan Label, Textbook, dan CommandButton.

      Untuk menganti nama  Pada Label, Textbook, dan CommandButton. lihat gambar dibawah, Nama di Caption adalah nama yang akan ditampilkan pada menu Aplikasi.

   2. Contoh aplikasi, Unduh Disini yang mengunakan Label, Textbook, dan CommandButton, buatlah Aplikasi sederhan dulu seperti Gambar 1 berikut.

1. Label1 ubah, Caption menjadi Nama 
2. Label2 ubah, Caption menjadi Alamat 
3. TextBox1 &TextBox2 biarkan saja 
4. CommandButton1 ubah, Caption menjadi Masukan data
5. CommandButton2 ubah, Caption menjadi Kembali

Setelah dirubah maka tampilanya akan seperti pada gambar 2 diatas.

Kini saatnya memasukan kodenya dengan cara doble kik pada tombol masukan data

Masukan Data
Private Sub CommandButton1_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.TextBox1.SetFocus 'Masukan data ke database Cells(I, 1).Value = Me.TextBox1.Value Cells(I, 2).Value = "'" & Me.TextBox2.Value 'Untuk menghapus data di TextBox1 dan 2 userform Me.TextBox1.Value = "" Me.TextBox2.Value = "" 'pesan = MsgBox("" & vbCrLf & "TAMBAH DATA LAGI ?", vbYesNo, "sistem aplikasi") 'Select Case pesan 'Case vbYes 'Me.TextBox1.SetFocus 'Case vbNo 'Unload Me 'End Select 'ActiveWorkbook.Save

End Sub

Tombol Kembali

Private Sub CommandButton2_Click()

unload.me

End Sub

Setelah selesai Cobalah menjalankan Aplikasinya,