NamaJumlahHarga
name
thumb
Quantity
Increment
Decrement
Total
Rp 0.00
Total Belanja:
Blogroll
Klik show untuk melihat
Saturday, July 25, 2020
Ada banyak jenis Menu DropDown di Microsoft Excel, salah satunya Menu Drop Down di Ribbon Excel yang bisa Anda buat dengan cara dibawah ini, Namun sebelum melanjutkan, silahkan luangkan waktu sepuluh menit untuk membaca dan melihat gambar secara cermat , karena ini akan sangat detail dan singkat.
Cara Dan Langkah-langkah
- Buka Microsft Excel
- Simpan dengan extensi Enable Macro (.xlsm)
- Buka Software Custom UI Editor, jika belum punya silahkan Download Software Custom UI Editor dan lakukan Cara Instal Software Custom UI Editor
- Setelah membuka software, silahkan klik > File > Open > pilih file yang sudah dibuat tadi > Open
- Klik kanan file dan pilih Office 2007 dan Office 2010 (lihat gambar)
- Silahkan salin Kode XML dibawah ini dan tempelkan di Office 2007
- Untuk mengecek apakah Kode XML sudah betul atau belum, silahkan klik Validate
- Jika Kode XMl sudah betul maka muncul pesan vbInformation seperti gambar dibawah ini
- Jika Kode XML salah maka muncul pesan vb Critical seperti gambar dibawah ini
- Langkah selanjutnya klik simpan dan silahkan keluar (close)
- Buka file excel yang sudah Anda buat tadi, dan jika Menu Ribbon sudah sama persis maka Anda sudah berhasil membuat Menu Drop Down di Ribbon Excel.
- Untuk selanjutnya tekan Alt+F11 maka Anda disajian dngan jendela Visual Basic for Application (VBA)
- Buat satu module dan salin Kode Macro dibawah ini
Dim ItemCount As Integer
Dim ListItemsRg As Range
Dim MySelectedItem As String
Sub DDItemCount(control As IRibbonControl, ByRef returnedVal)
With Sheet1.Range("A1:A3")
Set ListItemsRg = Range(.Cells(1), .Offset(.Rows.Count).End(xlUp))
ItemCount = ListItemsRg.Rows.Count
returnedVal = ItemCount
End With
End Sub
Sub DDListItem(control As IRibbonControl, index As Integer, ByRef returnedVal)
returnedVal = ListItemsRg.Cells(index + 1).Value
End Sub
Sub DDOnAction(control As IRibbonControl, ID As String, index As Integer)
MySelectedItem = ListItemsRg.Cells(index + 1).Value
End Sub
Sub DDItemSelectedIndex(control As IRibbonControl, ByRef returnedVal)
returnedVal = 0
MySelectedItem = ListItemsRg.Cells(1).Value
End Sub
Sub ValueSelectedItem(control As IRibbonControl)
MsgBox "The variable MySelectedItem have the value = " & MySelectedItem & vbNewLine & _
"You can use MySelectedItem in other code now to use the dropdown value"
End Sub
Dim ListItemsRg As Range
Dim MySelectedItem As String
Sub DDItemCount(control As IRibbonControl, ByRef returnedVal)
With Sheet1.Range("A1:A3")
Set ListItemsRg = Range(.Cells(1), .Offset(.Rows.Count).End(xlUp))
ItemCount = ListItemsRg.Rows.Count
returnedVal = ItemCount
End With
End Sub
Sub DDListItem(control As IRibbonControl, index As Integer, ByRef returnedVal)
returnedVal = ListItemsRg.Cells(index + 1).Value
End Sub
Sub DDOnAction(control As IRibbonControl, ID As String, index As Integer)
MySelectedItem = ListItemsRg.Cells(index + 1).Value
End Sub
Sub DDItemSelectedIndex(control As IRibbonControl, ByRef returnedVal)
returnedVal = 0
MySelectedItem = ListItemsRg.Cells(1).Value
End Sub
Sub ValueSelectedItem(control As IRibbonControl)
MsgBox "The variable MySelectedItem have the value = " & MySelectedItem & vbNewLine & _
"You can use MySelectedItem in other code now to use the dropdown value"
End Sub
- Simpan dan silahkan keluar (close)
Kesimpulan
Semua Kode XML harus diawali dengan Kode dibawah ini
Dan diakhiri dengan Kode XML dibawah ini
Tonton Video
Selain memberi artikel dan lampiran sampel file, kami juga memberikan tutorial video yang mungkin ini akan membantu Anda untuk mendapatkan hasil yang maksimal dari artikel ini. Tonton Video Disini.
Untuk keterangan dan kesimpulan lebih lanjut silahkan hubungi kami di kontak yang sudah tersedia.
