Wednesday, January 25, 2017

Input Data Excel dengan Menggunakan Userform

Pada Kesempatan kali ini saya akan membahas tentang Input data ke Excel dengan menggunakan userform. ini merupakan penyelesaian masalah ketika kita akan membuat data yang banyak, karena dengan input data biasa agak lambat.

Langsung saja kita buat form input data dengan excel, untuk langkah-langkahnya adalah sebagai berikut :

  1. Buka file excel kemudian pada baris menu kita pilih developer kemudian klik visual basic.
  2. Pada jendela visual basic klik insert Kemudian klik Userform.
  3. Buatlah sebuah userform dengan cara mengaktifkan toolbox, kemudian buat 3 buah label dan 3 buah textbox dan 1 buah command button sehingga tampilannya seperti gambar di bawah ini
    input data excel
  4. langkah selanjutnya double klik command button simpan pada jendela visual basic masukan kode berikut 
  5. Private Sub CommandButton1_Click()
    Sheet1.Activate
    Dim isi As Long
    'untuk membuat validasi apabila textbox kosong maka perintah input tidak bisa dijalankan'
    If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then
    MsgBox "data belum lengkap", vbDefaultButton1
    Exit Sub
    End If
    'untuk menghitung data yang kosong pada baris a'
    isi = WorksheetFunction.CountA(Range("A:A")) + 1
    'untuk membuat nomor secara berurutan sebanyak data pada baris a'
    Cells(isi, 1) = WorksheetFunction.Count(Range("A:A")) + 1
    'untuk memasukan nilai textbox ke dalam cells'
    Cells(isi, 2) = TextBox1.Value
    Cells(isi, 3) = TextBox2.Value
    Cells(isi, 4) = TextBox3.Value
    'membuat pesan berhasil'
    MsgBox "Input data berhasil", vbDefaultButton1
    'menghapus textbox'
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    End Sub
  6. Untuk membuat tombol untuk menampilkan userform maka pilih tab developer kemudian buatlah sebuah command button ganti captionnya dengan input data
  7. Kemudian masukan perintah berikut 
Sub Button1_Click()
UserForm1.Show
End Sub

sehingga hasilnya sebagai seperti gambar berikut

input data userform

Nah itulah cara membuat input data ke excel dengan menggunakan userform. semoga bermanfaat.

0 komentar: