Cara Membuat Aplikasi Excel dengan Menu Ribbon Sendiri

Ruang Excel : Para pengembang dan pecinta aplikasi excel berbasis visual basic, mereka yang sudah paham dan berkecimpung di microsoft excel tentunya telah memiliki kreativitas sendiri dalam mengembangkan aplikasi salah satunya adalah dengan mendisgn sendiri menu ribbon dengan bantuan aplikasi Custom UI Editor yang bisa agan download deh di goolge, banyak bersebaran dan gratis lagi. he...he..

Pada kesempatan kali ini, Ane bukanlah master vba dan custom Ribbon, namun ane akan berbagi ilmu dan pengalam bagaimana cara membuat aplikasi excel dengan menu Ribbon yang didesign atau dirancang sesuai selera dan keinginan agan-agan sendiri deh. Ok gan, Kita mulai gan ke TKP.

Langkah pertama yang perlu agan siapkan sebelum membuat menu Ribbon melalui Custome UI adalah mengunduh aplikasi custom UI. Unduh Custom UI Editor 

Kemudian berikutnya langkah kedua, silahkan agan siapkan aplikasi excel yang akan dirubah menu ribbonnya dan cari scrip kode menu ribbon yang nantinya diinput ke aplikasi Custom UI Editor dan sesuaikan dengan aplikasi excel atau vba yang agan telah disiapkan. contoh seperti berikut ini :

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<commands>
    <command idMso="ApplicationOptionsDialog" enabled="false"/>
    <command idMso="FileExit" enabled="false"/>
</commands>
    <ribbon startFromScratch="true">
        <tabs>
            <tab id="CustomData" label="App.Instrumen Penilaian. V.01" insertAfterMso="TabHome">

<group id="customGroup1" label="EDIT/CETAK DATA">
    <button id="Sheet6" imageMso="OpenStartPage" label="DATA BASE" size="large" onAction="BukaSheet6"/>
<separator  id="Separator1" />
   <button id="Sheet5" imageMso="AccessTableContacts" label="KOMPETENSI DASAR" size="large" onAction="BukaSheet5"/>
   <separator  id="Separator2" />
   <button id="Sheet2" imageMso="AccessTableContacts" label="ABSENSI SISWA" size="large" onAction="BukaSheet2"/>
   <separator  id="Separator3" />
   <button id="Sheet4" imageMso="AccessTableContacts" label="RUBRIK" size="large" onAction="BukaSheet4"/>
   <separator  id="Separator4" />
   <button id="Sheet7" imageMso="AccessTableContacts" label="JURNAL SIKAP" size="large" onAction="BukaSheet7"/>
   <separator  id="Separator5" />
   <button id="Sheet8" imageMso="SignatureLineInsert" label="REMEDIAL PENGAYAAN" size="large" onAction="BukaSheet8"/>
<separator  id="Separator6" />
   <button id="Sheet9" imageMso="SignatureLineInsert" label="PORTO FOLIO" size="large" onAction="BukaSheet9"/>
    </group>

<group id="customGroup2" label="ALAT">
    <button idMso="Copy" label="Salin" size="large"/>
    <button idMso="PasteValues" label="Tempel" visible="true" size="large" imageMso="Paste"/>
    <button idMso="FileSave" label="Simpan" size="large"/>
    <button idMso="FileClose" size="large"/>
    </group>

<group id="customGroup3" label="INFORMASI">
<button id="Sheet10" visible="true" size="large" label="Programer" imageMso="OutlookGlobe" onAction="BukaSheet10"/>
</group>

<group id="customGroup4" label="http://ruangexcel.blogspot.com">
<button id="Cap" label="Applikasi ini dirancang untuk mempermudah Guru dalam membuat Administrasi KBM di Sekolah" size="large" onAction="hakcipta" image="idmso83x83"/>
</group>
    </tab>
    </tabs>
    </ribbon>
    </customUI>

Langkah ketiga buat atau cari di google scrip kode menu ribbon yang nantinya dipasang di modul pada aplikasi excel atau vba yang agan telah dipersiapkan, agar nantinya menu ribbon yang agan buat berfungsi dan ngelink dengan nama sheets pada aplikasi excel yang agan miliki. Contoh sekripnya seperti berikut :

Sub BukaSheet2(ribbon As IRibbonControl)
Sheet2.Activate
End Sub
Sub BukaSheet3(ribbon As IRibbonControl)
Sheet3.Activate
End Sub
Sub BukaSheet4(ribbon As IRibbonControl)
Sheet4.Activate
End Sub
Sub BukaSheet5(ribbon As IRibbonControl)
Sheet5.Activate
End Sub
Sub BukaSheet6(ribbon As IRibbonControl)
Sheet6.Activate
End Sub
Sub BukaSheet7(ribbon As IRibbonControl)
Sheet7.Activate
End Sub
Sub BukaSheet8(ribbon As IRibbonControl)
Sheet8.Activate
End Sub
Sub BukaSheet9(ribbon As IRibbonControl)
Sheet9.Activate
End Sub
Sub BukaSheet10(ribbon As IRibbonControl)
Sheet10.Activate
End Sub

Nah.., setelah langkah-langkah diatas sudah dilakukan. Langkah selanjutnya adalah cara membuat Aplikasi dengan Menu Ribbon Sendiri. Caranya silahkan agan baca dan pahami berikut ini :

Pertama, Masukan kode scrip Ribbon control pada modul pada menu macros di file aplikasi yang akan kita sesuaikan menu ribbonya dan pastikan nama sheets sudah sesuai dengan nama sheets yang akan dimasukan pada aplikasi custome Ribbon.

Kedua, Masukan kode srip ribbon pada aplikasi custome Ribbon, Seperti gambar berikut :

Kemudian klik validasi (tanda ceklist merah) jika sudah benar, silahkan klik save dan tutup. maka Insya Alloh menu akan berubah sesuai yang kita buat yakni Menu Ribbon ngelink dengan sheet pada aplikasi yang kita telah buat.

Demikian berbagi kali ini semoga bermanfaat dan sukses selalu dalam setiap langkah dan niat yang positif dalam setiap hal yang telah kita lakukan.