Sunday, January 24, 2016

Custom Ribbons Dengan Pilihan Label

Perhatikan gambar yang berformat gif dibawah..!! Pada gambar diatas terlihat bahwa excel telah ditambahkan "RibbonKu" dengan Tab "Aplikasi Ribbon Label" dengan Iconnya sendiri. Ketika User mengklik "RibbonKu" Keluarlah beberapa pilihan Sheet1, Sheet2, dan Sheet3 yang merupakan pilihan dari "RibbonKu". Saat User mengklik Label Ribbon Sheet1 maka Worksheet dengan Sheet1 akan di tampilkan, jika Label Sheet2 yang diklik maka Sheet2 akan di tampilkan, begitu juga dengan Label Sheet3 maka yang ditampilkan adalah Sheet3.

Dengan membuat Ribbon sendiri pada file excel yang kita buat akan terlihat lebih indah dan profesional. Apalagi kita bisa membuat Aplikasi dengan menggunakan Excel, maka sudah seharusnya kita juga menggunakan Ribbon Excel tersendiri. Selain itu dengan menambahkan Ribbon di Excel maka pengguna Aplikasi Excel akan lebih memahami cara menggunakan Aplikasi yang dibuat dengan Excel. Kesempatan ini kita akan mempelaji bagaimana cara membuat Ribbon dengan Pilihan Label. Ikuti ajha langkah-langkah yang akan saya berikan.!! nanti modifikasi sendiri dech...!! disini saya menggunakan Office 2007.


Cara Membuat Ribbon dengan Pilihan Label Pada Excel 2007 :
  • Save Workbook Excel dengan judul "Ribbon1" setelah di Save, Tutup excelnya terlebih dahulu
  • Buka Software Custom UI Editor For Microsoft Office, Selanjutnya Klik File dan pilih Open (Ctrl + O) dan telusuri file Excel yang telah di Save tadi dengan judul "Ribbon1".
  • File Excel "Ribbon1" akan terlihat dipanel sebelah kanan. Selanjutnya Klik Insert dan pilih Office 2007 Custom UI Part.
  • Copy kode berikut ini dan Paste ke Editor Custom UI

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="rxtab" insertBeforeMso="TabHome" label="Aplikasi Ribbon Pertama">
            <group id="rxgrp" label="Ribbon Pertama">
               <!-- Starts the definition of our gallery.-->
               <gallery id="rxgal"
                   label="Ribbon Ku" columns="3" rows="10"
                   imageMso="ChartTypeOtherInsertGallery"
                   getItemCount="rxgal_getItemCount"
                   getItemLabel="rxgal_getItemLabel"
                   getItemScreentip="rxgal_getItemScreentip"
                   onAction="rxgal_Click"
                   showItemLabel="true"
                   size="large">
            <!-- Insert a button at the end of the gallery.-->
            <button id="rxbtn"
                    imageMso="RefreshStatus"
                    label="Visit Ron's Excel site..."
                    onAction="rxbtn_Click"/>
               </gallery>
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>
  • Selanjutnya Klik File dan pilih Save (Ctrl + S). Selesai urusan menggunakan Custom Editor For Office. Tutup ajha dech tu Softwarenya. Selanjutnya..!!!
  • Buka File Excel "Ribbon1", Klik Tab Developer dan pilih Visual Basic  (Alt + F11). Setelah terbuka Editor Visual Basicnya. Klik Insert dan Pilih Modul
Sub rxgal_getItemCount(control As IRibbonControl, ByRef returnedVal)
'Code Untuk memanggil banyaknya Label pada ribbons yang akan ditampilkan.
    returnedVal = 3
End Sub
Sub rxgal_getItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
'Code untuk menampilkan Nama label pada Ribbon
    Dim Labelname As Variant
    Labelname = _
    Array("Sheet 1", _
          "Sheet 2", _
          "Sheet 3")
    On Error Resume Next
    returnedVal = Labelname(index)
    On Error GoTo 0
End Sub
Sub rxgal_getItemScreentip(control As IRibbonControl, index As Integer, ByRef returnedVal)
'Code untuk menampilkan Scren Tips Label.
    Dim Tipname As Variant
    Tipname = _
    Array("Tip 1", _
          "Tip 2", _
          "Tip 3")
    On Error Resume Next
    returnedVal = Tipname(index)
    On Error GoTo 0
End Sub
Sub rxgal_Click(control As IRibbonControl, id As String, index As Integer)
'Code untuk menampilkan nama Macro dari label.
    On Error Resume Next
    Application.Run "macro_" & Format(index + 1, "00")
    On Error GoTo 0
End Sub
Sub macro_01()
Worksheets("Sheet1").Activate
    MsgBox "Anda Telah Menuju Sheet 1", 36, "Aplikasi Ribbon"
End Sub
Sub macro_02()
Worksheets("Sheet2").Activate
    MsgBox "Anda Telah Menuju Sheet 2", 36, "Aplikasi Ribbon"
End Sub
Sub macro_03()
Worksheets("Sheet3").Activate
    MsgBox "Anda Telah Menuju Sheet 3", 36, "Aplikasi Ribbon"
End Sub
Sub rxbtn_Click(control As IRibbonControl)
'Code untuk memanggil Alamat Web saat Klik Help
    ActiveWorkbook.FollowHyperlink "http://www.senbakusen.com/"
End Sub
  • Save Excel, dan selesai....!! Jalankan Aplikasi..!! bila penempatan kode sudah benar maka aplikasi akan tampil seperti punya saya yang didapat di download di akhir posting ini
  • Selebihnya silahkan di modifikasi sendiri, karena saya tidak bisa menjelaskan terlalu panjang lebar, saya tu belajar copy.. modifikasi.. paste.. yang penting hasilnya..!!! 
Download : Aplikasi Ribbon1



Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon