Cara Membuat ComboBox Ribbon di Excel

saya akan membahas tentang custom ribbon Excel, kali ini kita akan belajar cara membuat ComboBox di Ribbon Excel, ComboBox ini nantinya digunakan untuk menampilkan Sheet tertentu, sebagai contohnya adalah untuk menampilkan laporan berdasarkan bulan.

Penampakannya akan seperti gambar di bawah ini:

Nah, gak perlu banyak kata-kata, langsung saja kita mulai membuatnya:

1Buka Aplikasi Microsoft Excel, kemudian klik tombol Save As - Excel Macro - Enabled Workbook. pada File Name isikan nama terserah anda saja, misal ComboBox Ribbon.xlsm. Setelah tersimpan silahkan klik tombol Close (X) untuk menutup aplikasi Microsoft Excel.

2Buka Aplikasi Custom UI Editor, klik menu File - Open  atau tombol Open dan pilih File Excel yang tadi baru saja kita buat (ComboBox Ribbon.xlsm).

3Pada Aplikasi Custom UI Editor di sebelah kiri akan tampak file yang tadi di buka (ComboBox Ribbon.xlsm), Klik kanan pada File tersebut dan Pilih Office 2007 Custom UI Part, maka akan tampil sebuah file baru bernama customUI.xml.

4Selanjutnya pada bagian kanan pada aplikasi Custom UI Editor masukkan script xml sebagai berikut:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="laporan" label="Laporan Bulanan">
        <group id="laporanQ" label="Pilih Nama Bulan">
          <comboBox id="comboBox" label="Periode" onChange="Bulan">
            <item id="item01" label="Januari" />
            <item id="item02" label="Februari" />
            <item id="item03" label="Maret" />
            <item id="item04" label="April" />
            <item id="item05" label="Mei" />
            <item id="item06" label="Juni" />
            <item id="item07" label="Juli" />
            <item id="item08" label="Agustus" />
            <item id="item09" label="September" />
            <item id="item10" label="Oktober" />
            <item id="item11" label="Nopember" />
            <item id="item12" label="Desember" />
          </comboBox>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

5Penampakan pada Custom UI Editornya seperti berikut:

6Setelah selesai klik tombol Validate pada toolbar Custom UI Editor untuk memeriksa apakah script XML sudah benar atau masih ada kesalahan. Jika menampilkan pesan "Custom UI XML is well formed!" berarti sudah benar dan tidak ada masalah, selanjutnya klik tombol Save untuk menyimpan script, dan tutup aplikasi Custom UI Editor dengan mengklik tombol Close (X).

7Buka kembali file ComboBox Ribbon.xlsm dengan aplikasi Microsoft Excel, dan perhatikan pada bagian Ribbon akan tampil Tab baru bernama "Laporan Bulanan" dan ComboBox yang berisi nama-nama bulan, dari Januari sampai Desember. Ketika nama-nama bulan tersebut di klik maka tidak terjadi perubahan apapun, karena itu kita perlu menambahkan code VBA.

8Tekan Tombol Alt+F11 pada keyboard untuk menampilkan Aplikasi Microsoft Visual Basic.

9Pada Microsoft Visual Basic, klik menu Insert - Module untuk menambahkan sebuah Module baru, Selanjutnya masukkan kode seperti berikut ini:

Sub Bulan(control As IRibbonControl, Nama_Bulan As String)
On Error Resume Next
Worksheets(Nama_Bulan).Activate
If Err.Number <> 0 Then
    MsgBox "Mohon Maaf, Sheet " & Nama_Bulan & _
    " tidak di temukan", vbInformation, "Info Penting"
End If
End Sub

10Kembali ke jendela Microsoft Excel, rubah nama sheetnya menjadi nama-nama bulan (Januari, Februari, Maret dan seterusnya).

11Selanjutnya coba klik pada ComboBox dan pilih nama bulan, Jika berhasil maka misalnya memilih "Februari" maka Sheet Februari akan terbuka dan sebagainya, Namun bila Sheet bulannya tidak ada maka akan tampil sebuah pesan Message Box.