Wednesday, October 26, 2016

VBA Excel Pemula 28 : Pengenalan ComboBox - Menampilkan List ComboBox Di UserForm

VBA Excel Pemula 28 : Pengenalan ComboBox - Menampilkan List ComboBox Di UserForm - Tampilkan Data- ComboBox adalah salah satu kontrol UserForm. Kita dapat menggunakannya dari Tools dan meletakkannya pada UserForm. ComboBox dapat menyimpan dan menampilkan daftar data yang dapat dipilih oleh pengguna aplikasi. Pelajari Lebih lanjut Tentang ComboBox di Posting VBA Excel Pemula Pengenalan ComboBox pada UserForm.

Daftar data dapat ditampilkan dengan menggunakan ComboBox, Namun pada posting ini daftar data yang ditampilkan tidak menggunakan range seperti yang dijelaskan pada posting VBA Excel Pemula 29. Data yang akan ditampilkan ditulis secara langsung dalam kode Vba. Agar anda dapat membedakan cara menampilkan data yang ditulis dalam baris kode dan cara menampilkan data di ComboBox menggunakan range dinamis, disarankan untuk mempelajari juga VBA Excel Pemula 29


Cara Menampilkan Data Pada ComboBox Di UserForm
  • Buka Excel, dan selanjutnya Pilih Tab Developer, klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11. Jangan lupa disave dengan format Enable Macro atau Binary
  • Pada Jendela Visual Basic Tambahkan UserForm1 dengan Caption "Aplikasi Pemula 28", tambahkan ComboBox1 dan tambahkan CommandButton1 dengan Caption "Create ComboBox"
  • Klik Kanan pada UserForm1, pilih View Kode dan masukkan kode berikut ini pada Private Sub UserForm_Initialize
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "BANDA ACEH"
    ComboBox1.AddItem "ACEH UATARA"
    ComboBox1.AddItem "ACEH UTARA"
    ComboBox1.AddItem "ACEH BARAT"
    ComboBox1.AddItem "ACEH SELATAN"
End Sub


  • Atau dengan kode yang telah diringkat berikut ini, Bleh pilih yang diatas atau yang dibawah. Fungsingya sama menampilkan data pada ComboBox1
Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "BANDA ACEH"
        .AddItem "ACEH UATARA"
        .AddItem "ACEH UTARA"
        .AddItem "ACEH BARAT"
        .AddItem "ACEH SELATAN"
    End With
End Sub
  • Menambahkan ComboBox Dinamik Klik kanan pada CommandButton1 dengan Caption "Create ComboBox", Pilih View Code dan masukkan Kode berikut 
Private Sub CommandButton1_Click()'
Set CmbBx = UserForm1.Controls.Add("Forms.comboBox.1")
CmbBx.Left = 72
CmbBx.Top = 90
End Sub
  • Selesai..!! Uji Aplikasi dengan mengklik Run atau dengan menekan tombol F5. Bila penempatan kode dan rancangan UserForm sudah mengikuti dengan benar maka ComboBox akan menampilkan data berjalan sesuai dengan yang diharapkan.
Download : Aplikasi Pemula 28

Demikian Posting VBA Excel Pemula 28 : Pengenalan ComboBox - Menampilkan List ComboBox Di UserForm -. Jika anda memiliki Modefikasi kode lainnya tentang ComboBox silahkan di share pada kolom komentar.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon