Selasa, 29 Maret 2016

MEMBUAT FORM VBA SEDERHANA PADA MS. EXCEL

    MEMBUAT FORM VBA SEDERHANA PADA MS. EXCEL

    tutorialmicrosoftexcel.net -Pada Tutorial Microsoft Excel yang lalu kita telah membahas beberapa point mengenai bagaimana cara memulai VBA Excel Macro. Kali ini kita akan praktik bagaimana Form VBA Sederhana Pada Ms. Excel dan menyimpan data pada Ms.Excel menggunakan form tersebut. Membuat form dengan VBA Excel dimaksudkan agar aplikasi pada VBA Excel lebih user friendly dan mudah untuk melakukan control data.
    Pada Tutorial Excel kali ini kita akan mencoba mempraktikkan membuat dan mendesain sebuah Form pendataan Karyawan kemudian data tersebut dapat kita simpan di worksheet Excel. Ikuti langkah-langkah berikut ini.
    1. Buka Microsoft Excel, lalu pastikan anda telah mengaktifkan menu developer (baca Tutorial Memulai VBA Excel)
    2. Klik menu developer lalu klik tombol Visual basic atau dapat juga menggunakan Shortkey Alt + F11.
    3. Pilih menu Insert > UserForm maka akan tampil form VBA
    4. Perhatikan jendela Toolbox, Jendela tool box digunakan untuk membuat control object yang dibutuhkan oleh FORM.  Membuat FORM dengan VBA Excel macro
    5. Berikut ini keterangan dari control toolboxs yang akan kita gunakan untuk membuat form VBA Sederhana Pada Ms. Excel
  1. Setiap control memiliki properti ada pada jendela properties. Gambar di bawah ini akan menjelaskan bagaimana mengisi sebuah properti pada control.
  2. Buatlah control sesuai dengan ketentuan properti di bawah ini
  3. Kini saatnya untuk melakukan coding program,
  4. Klik kanan pada form lalu pilih viewcode
  5. Masukkan code pemrograman di bawah ini.
    Private Sub UserForm_Initialize() 
    'Kosongkan data Text Box 
    txtidKar.Value = "" 
    txtemKar.SetFocus 
    txtnamaKaryawan.Value = "" 
    txttempatLahir.Value = "" 
    txtemailid.Value = "" 
    
    'Clear Combo Tanggal Lahir 
    cmbTgl.Clear 
    cmbBulan.Clear 
    cmbTahun.Clear 
    
    'Isi Tanggal untuk combo Box Tanggal Lahir 
    With cmbTgl 
    .AddItem "1" 
    .AddItem "2" 
    .AddItem "3" 
    .AddItem "4" 
    .AddItem "5" 
    .AddItem "6" 
    .AddItem "7" 
    .AddItem "8" 
    .AddItem "9" 
    .AddItem "10" 
    .AddItem "11" 
    .AddItem "12" 
    .AddItem "13" 
    .AddItem "14" 
    .AddItem "15" 
    .AddItem "16" 
    .AddItem "17" 
    .AddItem "18" 
    .AddItem "19" 
    .AddItem "20" 
    .AddItem "21" 
    .AddItem "22" 
    .AddItem "23" 
    .AddItem "24" 
    .AddItem "25" 
    .AddItem "26" 
    .AddItem "27" 
    .AddItem "28" 
    .AddItem "29" 
    .AddItem "30" 
    .AddItem "31" 
    End With 
    
    'Isi Bulan untuk combo Box Bulan Lahir 
    With cmbBulan 
    .AddItem "JAN" 
    .AddItem "FEB" 
    .AddItem "MAR" 
    .AddItem "APR" 
    .AddItem "MAY" 
    .AddItem "JUN" 
    .AddItem "JUL" 
    .AddItem "AUG" 
    .AddItem "SEP" 
    .AddItem "OCT" 
    .AddItem "NOV" 
    .AddItem "DEC" 
    End With 
    
    'Isi Tahun untuk combo Box Tahun Lahir 
    With cmbTahun 
    .AddItem "1980" 
    .AddItem "1981" 
    .AddItem "1982" 
    .AddItem "1983" 
    .AddItem "1984" 
    .AddItem "1985" 
    .AddItem "1986" 
    .AddItem "1987" 
    .AddItem "1988" 
    .AddItem "1989" 
    .AddItem "1990" 
    .AddItem "1991" 
    .AddItem "1992" 
    .AddItem "1993" 
    .AddItem "1994" 
    .AddItem "1995" 
    .AddItem "1996" 
    .AddItem "1997" 
    .AddItem "1998" 
    .AddItem "1999" 
    .AddItem "2000" 
    .AddItem "2001" 
    .AddItem "2002" 
    .AddItem "2003" 
    .AddItem "2004" 
    .AddItem "2005" 
    .AddItem "2006" 
    .AddItem "2007" 
    .AddItem "2008" 
    .AddItem "2009" 
    .AddItem "2010" 
    .AddItem "2011" 
    .AddItem "2012" 
    End With 
    
    'Reset Radio Button/Option Button 
    radioLaki.Value = False 
    radioPerempuan.Value = False 
    End Sub 
    
    Private Sub cmdSimpan_Click() 
    
    Dim emptyRow As Long 
    'aktifkan Sheet1 
    Sheet1.Activate 
    
    'deteksi baris kosong 
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 
    
    'Simpan data ke sheet1 
    Cells(emptyRow, 1).Value = txtidKar.Value 
    Cells(emptyRow, 2).Value = txtnamaKaryawan.Value 
    Cells(emptyRow, 3).Value = txttempatLahir.Value 
    Cells(emptyRow, 4).Value = cmbdate.Value & "/" & cmbmonth.Value & "/" & cmbyear.Value 
    Cells(emptyRow, 5).Value = txtemailid.Value 
    
    If radioLaki.Value = True Then 
        Cells(emptyRow, 6).Value = "Laki-Laki" 
    Else 
       Cells(emptyRow, 6).Value = "Perempuan" 
    End If 
    End Sub 
    
    Private Sub cmdBatal_Click() 
    Unload Me 
    End Sub

Tidak ada komentar:

Posting Komentar