Cara Membuat Ribbon Dropdown List Dengan Data List Di Cell

Salah satu kelebihan Microsoft Excel adalah tab dan menu pada Ribbon bisa dimodifikasi. Berbagai macam model Ribbox dapat disematkan pada tab menu Excel. Salah satu jenis Ribbon yang dapat di modifikasi di excel yaitu jenis Ribbon Dropdown List. Pada artikel ini admin akan membahas tentang Cara Membuat Ribbon Dropdown List Dengan Data List Di Cell.

Tab menu bawaan dapat disembunyikan. Excel yang telah dimodifikasi Ribbonnya terlihat lebih elegant dan terkesan profesional. Beberapa orang akan heran melihat aplikasi Excel yang telah dimodifikasi Ribbonnya. 

Tampillan Ribbon Menu DropDown List

Mau dibilang Excel tapi Ribbonnya bukan Excel. Mau dibilang bukan Excel tetapi tampilan cellnya seperti Excel. Beberapa orang bahkan terkelabui seolah-olah melihat aplikasi yang menyaingi Microsoft. katanya "Hebat ini orang yang bikin aplikasi hampir persis sama dengan Excel" Padahal memang Excel.

Namun dengan berbagai alasan dan keperluan sebagian orang tidak menyembunyikan tab menu bawaan Excel tersebut. Ribbon tambahan muncul baik diawal maupun diakhir tab menu bawaan Excel.

Artikel ini Admin tulis untuk memberikan jawaban kepada salah seorang pengunjung yang bertanya melalui pesan Fanspage Facebook. Pada ketika itu admin tidak berada di depan komputer sehingga jawaban yang admin berikan agak ngawur.

Mungkin dengan menuliskan artikel tentang Cara Membuat Ribbon Dropdown List Dengan List Di Cell akan memberikan pencerahan kepada yang telah bertanya.

Pada beberapa artikel di blog ini memang admin tulis berdasarkan pertanyaan dari pengunjung. admin menjawab melalui artikel begini agar yang lain juga dapat mempelajari hal yang sama.

Alasan yang admin ungkapkan diatas tentu sedikit sekali yang membaca. Pengujung lebih cendrung akan melihat inti yang sedang di cari yaitu yang berikut ini.

Langkah-langkah Cara Membuat Ribbon Dropdown List Dengan Data List Di Cell :
  • Buka Excel dan buatlah data pada cell A3 hingga cell A8 berupa "Data1" hingga "Data7"
  • Save Excel dalam format xlsm atau xlsb dan tutup Excelnya. Karena jika masih terbuka untuk menyematkan ribbon tidak akan bisa dilakukan.
  • Selanjutnya buka Custom UI, klik Open dan pilih file Excel yang sudah kita siapkan tadi. Bagi  yang belum punya Custom UI silahkan di download dulu disini
  • Setelah file Excel dibuka dengan Costom UI selanjutnya klik Insert dan pilih Office 2007 Custom UI Part
  • Tuliskan kode seperti yang terlihat pada gambar format gif dibawah ini
Tampilan Custom UI dan Kode
  • Setelah kode selesai ditulis jangan lupa klik tombol Save untuk menyimpan Ribbon ke Excel. Pada tahap ini kita sudah selesai menyematkan Ribbon ke Excel. Custom UI sudah dapat ditutup.
  • Tahap selanjutnya kita akan menulis kode macro agar Ribbon bisa berfungsi. Buka Excel yang telah disematkan Ribbon Tadi.
  • Setelah Excel terbuka tekan tombol Alt + F11 untuk masuk ke Visual Basic For Application
  • Pada jendela Visual Basic tambahkan sebuah modul dengan cara klik Insert dan pilih Module
  • Tuliskan kode-kode macro berikut ini pada module1 untuk menanamkan fungsi pada Ribbon
Kode berikut ini akan berfungsi untuk memberitahukan kepada Excel agar membaca range yang ditentukan dan menghitung data yang ada pada area range tersebut. Memberikan perintah pada menu dropdown untuk mengambil data yang ada pada range tersebut


Option Explicit

Dim ItemCount As Integer
Dim ListItemsRg As Range
Dim DataItem As String

'=========Drop Down Code =========

''Memberikan perintah range yang dibaca untuk Item DropDown
Sub AreaDatanya(control As IRibbonControl, ByRef returnedVal)
    With Sheet1.Range("B3:B100")
        Set ListItemsRg = Range(.Cells(1), .Offset(.Rows.Count).End(xlUp))
        ItemCount = ListItemsRg.Rows.Count
        returnedVal = ItemCount

    End With

End Sub


Kode berikut ini untuk memanggil untuk setiap item di dropdown


Sub DaftarData(control As IRibbonControl, index As Integer, ByRef returnedVal)

    returnedVal = ListItemsRg.Cells(index + 1).Value

End Sub


Kode berikut ini kira-kira memberikan fungsi untuk menghandel perubahan pilihan pada menu dropdown. Bila perubahan pilihan terjadi maka data yang tampil juga akan berubah pada dropdown menu.


Sub PanggilAksi(control As IRibbonControl, ID As String, index As Integer)

    DataItem = ListItemsRg.Cells(index + 1).Value

  End Sub


Kode berikut ini kira-kirang fungsinya untuk mengembalikan indeks item yang akan ditampilkan


Sub IndexPilihanData(control As IRibbonControl, ByRef returnedVal)

    returnedVal = 0
    DataItem = ListItemsRg.Cells(1).Value

End Sub


Kode berikut ini untuk memberikan fungsi pada menu Enter


Sub Enter(control As IRibbonControl)

    MsgBox "Anda Memilih DataItem Yang Tersedia = " & DataItem & vbNewLine & _
           "Untuk Mengubah Pilihan Klik Pada Menu DropDown"

End Sub



Perlu di ingat bahwa tempatkan kode-kode macro yang admin sebutkan diatas pada module1. Lahkah terakhir jangan lupa save dan jalankan fungsi masing-masing menu yang telah siap dibuat.

Bila anda sudah mengikuti petunjuk dan menempatkan kode dengan benar dan tepat, Aplikasi akan berjalan sebagaimana yang terlihat pada gambar format gif diatas. Semoga dapat dikembangkan dengan inginan masing-masing.

Demikian yang dapat admin ulas beberapa kode pada artikel Cara Membuat Ribbon Dropdown List Dengan Data List Di Cell. Semoga menjadi referensi bagi yang sedang mencari informasi Cara Membuat Ribbon Dropdown List Dengan Data List Di Cell.

Jika ada pertanyaan, saran serta kritikan untuk admin dalam mengembangkan blog ini mohon bisa disampaikan dengan bijaksana pada kolom komentar.

Jika ingin mendapatkan seluruh contoh file penerapan Vba dan aplikasi Vba Excel tanpa proteksi untuk dapat dipelajari secara mandiri mohon dapat menghubungi admin melalui WA dengan nomor 0811-6822-023

Berlangganan update artikel terbaru via email:

4 Responses to "Cara Membuat Ribbon Dropdown List Dengan Data List Di Cell"

  1. Replies
    1. Sudah saya tambahkan tempat download Custom UI di artikel.. agar lebih mudah..

      Delete
  2. Sub showprof(control As IRibbonControl)
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("ID_Sklh")
    .Visible = True
    .Activate
    End With
    MsgBox ("Silakan Edit Data Anda!"), vbQuestion, "ENTRI DATA"
    End Sub

    Gan gimana koding diatas agar bisa menambahkan option msgbox menjadi YesNo

    ReplyDelete
    Replies
    1. Silahkan di baca disini berbagai macam msgbox
      http://www.senbakusen.com/2016/11/cara-bikin-berbagai-macam-msgbox-vba.html

      Delete

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel