Rabu, 19 Agustus 2015

Cara Membuat ComboBox Ribbon di Excel

Rumus Excel [.] com - Sudah lama tidak 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:

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

  1. Buka 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.
  2. Buka Aplikasi Custom UI Editor, klik menu File - Open  atau tombol Open dan pilih File Excel yang tadi baru saja kita buat (ComboBox Ribbon.xlsm).
  3. Pada 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.
  4. Selanjutnya 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>
    
  5. Penampakan pada Custom UI Editornya seperti berikut:

    ComboBox Ribbon Excel
  6. Setelah 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).
  7. Buka 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.
  8. Tekan Tombol Alt+F11 pada keyboard untuk menampilkan Aplikasi Microsoft Visual Basic.
  9. Pada 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
    
  10. Kembali ke jendela Microsoft Excel, rubah nama sheetnya menjadi nama-nama bulan (Januari, Februari, Maret dan seterusnya).
  11. Selanjutnya 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.

Lampiran

ComboBox Ribbon.xlsm   [ 17,2 KB ]

Begitulah cara membuat ComboBox Ribbon di Excel, Semoga Bermanfaat...
Comments


EmoticonEmoticon