Responsive Ads Here

Tuesday, 3 October 2017

Input Data Excel Menggunakan Userform

Excel adalah salah satu program yang user friendly yang sering digunakan dalam berbagai pekerjaan kantoran, karena excel ini merupakan salah satu cabang dari microsoft office. Salah satu fungsi penggunaan microsoft excel adalah untuk memasukan data-data yang penting, nah kali ini saya akan berbagi pengetahuan mengenai input data di microsoft excel dengan menggunakan userform.

Input data excel menggunakan userform kali ini akan saya bahas dengan menggunakan microsoft excel 2010, walaupun sebenarnya bisa kita gunakan dengan microsoft excel tipe lain, cuma peletakan dari ribbon yang berbeda, untuk istilahnya tetap sama.

Memasukan data ke lembar kerja excel dengan menggunakan userform akan sangat membantu pekerjaan kita karena pekerjaannya bisa di kerjakan dengan cepat bahkan bisa diperintahkan kepada orang lain yang awam sekalipun terhadap komputer.

Oke, langsung saja akan saya bahas cara input data excel dengan menggunakan userform, langkah-langkahnya sebagai berikut :
  1. Bukalah lember kerja microsoft excel;
  2. Siapkanlah lembar kerja excel dengan memberi judul kolom, kali ini saya akan memberikan judul kolom yang sederhana saja misalnya No, dan nama
  3. Setelah dipersiapkan judul kolom lalu kita masuk ke menu tab developer, pilihlah visual basic, sehingga tampil jendela visual basic seperti gambar di bawah ini
  4. Pada jendela visual basic pilihlah menu insert kemudian pilihlah userform;
  5. Saya hanya akan membuat input data yang sederhana saja yaitu bagaimana memasukan nama, kepada cells excel, berarti hanya membutuhkan satu buah textbox untuk input nama dan satu buah commandbutton untuk eksekusi perintahnya, sementara kita buat label untuk memberikan judul nama agar jelas apa yang akan kita input kan ke dalam lembar kerja excel itu.
  6. input data excel userform
  7.  Setelah itu Double klik pada commandbutton kemudian masukan rumus berikut:
  8.  
    Private Sub CommandButton1_Click()
    Dim isi As Long
    isi = WorksheetFunction.CountA(Sheet1.Range("A:A")) + 1
    Cells(isi, 1) = WorksheetFunction.Count(Sheet1.Range("A:A")) + 1
    Cells(isi, 2) = TextBox1.Value
    End Sub
     
    Sekarang coba jalankan Input data dengan menggunakan userform pada microsoft excel dengan menekan tombol run atau dengan menekan F5 pada keyboard. 
Nah itulah cara sederhana input data pada microsoft excel untuk pengembangannya silahkan kembangkan sendiri sesuai dengan kebutuhan pada pekerjaan untuk lebih jelasnya bisa dilihat di video tutorial linknya di sini


No comments:

Post a Comment