Navigasi Perpindahan Antar Sheet Menggunakan ComboBox ActiveX Control

 MlatenMania.com - Assalamu'alaikum Wr. Wb. Salam sejahtera untuk kita semuanya, selamat datang kembali di blog sederhana Saya ini. Pada kesempatan ini kembali Saya akan berbagi sebuah tutorial mengenai VBA Excel, dan sesuai dengan judul artikel ini, pada kesempatan ini Saya akan berbagi sebuah tutorial mengenai ComboBox (ActiveX Control). Berikut merupakan pembahasan lengkapnya.

ComboBox ActiveX Control

Kontrol ActiveX ComboBox di VBA adalah kontrol yang memungkinkan pengguna untuk memilih item dari daftar dropdown atau memasukkan nilai sendiri secara langsung ke dalam kotak teks. Kontrol ini adalah gabungan antara DropDownList dan TextBox, yang sangat berguna untuk membuat antarmuka yang efisien dalam otomatisasi dengan VBA. 

Cara kerjanya

1. Tampilan ringkas: Awalnya, ComboBox menampilkan sebuah kotak teks dengan sebuah tombol dropdown.
 

2. Daftar dropdown : Saat tombol diklik, daftar pilihan akan muncul di bawahnya.
 

3. Pilihan item: Pengguna dapat memilih salah satu item dari daftar yang ditampilkan.
 

4. Input langsung: Pengguna juga dapat mengetikkan nilai baru secara langsung ke dalam kotak teks jika tidak menemukan item yang sesuai dalam daftar, mirip dengan fungsi sebuah TextBox.

Penggunaan di VBA

1. Lokasi: Kontrol ini dapat ditempatkan pada UserForm atau langsung pada lembar kerja (worksheet) di aplikasi seperti Microsoft Excel.
 

2. Fungsi: ComboBox digunakan untuk berbagai tugas otomatisasi, seperti:

• Menyederhanakan penginputan data dengan menyediakan daftar pilihan yang sudah ditentukan. 
• Menerapkan logika atau tindakan berdasarkan pilihan pengguna yang disimpan dalam daftar. 
• Membuat dasbor interaktif dengan pilihan yang lebih dinamis daripada kontrol formulir standar.

Memanfaatkan ComboBox ActiveX Control Untuk Navigasi Perpindahan Antar Sheet

Berikut merupakan salah satu contoh penggunaan combobox activex control sebagai navigasi perpindahan antar sheet di lembar kerja Ms. Excel:

1. Sisipkan sebuah ComboBox ActiveX Control di Sheet1, dengan cara klik pada tab menu Developer - Insert - ComboBox ActiveX Control:

 2. Pada contoh ini Saya meletakkannya di bagian atas lembar kerja seperti pada gambar di bawah ini:

 

3. Selanjutnya kita buka jendela Visual Basic dengan cara klik pada tab menu Developer - Visual Basic atau juga bisa menggunakan Shortcut Alt+F11 pada keyboard.

4.  Klik kanan pada Sheet1 - view code, kemudian copy code Macro di bawah ini ke dalamnya:

 Code Macro:

Private Sub ComboBox1_Click()
'mlatenmania.com
Sheets(ComboBox1.Value).Activate
End Sub

Private Sub Worksheet_Activate()
'mlatenmania.com
Dim i As Integer
ComboBox1.Clear
For i = 1 To Sheets.Count - 0
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

Sehingga akan seperti pada gambar di bawah ini:

5. Jika langkah yang kita lakukan benar, maka akan seperti pada gambar di bawah ini:

 Pada saat kita memilih nama sheet yang ada di dalam ComboBox, makan akan berpindah juga sesuai dengan sheet yang kita pilih. Untuk lebih jelasnya bisa untuk melihatnya pada video di bawah ini:

Demikian artikel mengenai Navigasi Perpindahan Antar Sheet Menggunakan ComboBox ActiveX Control, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih dan Wassalamu'alaikum Wr. Wb.

Baca Juga