Gambar diatas adalah Menu Ribbon Excel Buatan Sendiri atau disebut Customize Ribbon Excel yang kami buat menggunakan software Custom UI Editor.
Sesuai judul artikenya, Pada postingan kali ini kami akan meberikan langkah-langkah membuat tab menu ribbon baru di excel.
Baca Juga :
FORM LOGIN BANYAK ANGGOTA DITENTUKAN OPERATOR
DOWNLOAD ICON DINAMIS UNTUK MENU RIBBON EXCEL
DOWNLOAD SOFTWARE CUSTOM UI EDITOR
SIMULASI JADWAL SIMPATIKA BERBASIS EXCEL
APLIKASI KOREKSI SOAL PILIHAN GANDA 20 PAKET
APLIKASI KARTU UJIAN
VBA Excel Full Screan Layar Worksheets Excel
Kode Macro Worksheets Excel Layar Penuh
Cara Merubah Layar Worksheets Excel Menjadi Full Screan
Langkah-lankah yang akan kami berikan ini sangat mudah dan sangat simpel sehingga luangkan 10 menit untuk membaca dan praktik.
Langkah-Langkah Membuat Tab Menu Ribbon Baru Di Excel sebagai berikut :
- Buka microsoft excel (2007 atau 2010 atau 2013 atau 2019 atau versi terbaru)
- Simpan dengan nama Membuat Tab Menu Baru Di Excel
- Untuk Save as type silahkan pilih .xlsb atau disebut jugaExcel Binary Workbook
- Masuk ke jendela VBA (Visual Basic for Application) dengan cara menekan tombol keyboard Alt+F11 atau melalui menu Developer > Visual Basic
- Buat 1 buah module dengan nama Ribbon Code
- Copy dan pastekan kode macro dibawah ini kedalam module tadi
- Selanjutnya simpan dan colse
- Sekarang buka software Custom UI Editor
- Open file excel
- Klik kanan file excelnya dan pilih Office 2007 dan Office 2010
- Copy - paste Code XML dibawah ini kedalam office 2007
- kemudian Copy-Pate Kode CML dibawah ini kedalam Office 2010
- Untuk mevalidasi kode xml diatas, silahkan klik tombol Validation
- Simpan dan Close
- Selanjutnya silahkan buka File Excel Yang Sudah Anda buat tadi
- Untuk Mencobanya silahkan klik menu ribbon
- Jika sudah bisa di jalankan dan sesuai, sekarang silahkan save dan Selesai
Selain Save as type diatas apakah boleh mas ?
Boleh, namun tidak rekomended
Kenapa mas ?
Menu Tab Baru Di Excel yang kita bahas kali ini memerlukan macro sebagai peng-eksekusi
Berarti Save as type dengan .xlsm boleh mas ya ?
Boleh, yang penting extensi support kode macro excel
Sub sheet(Control As IRibbonControl) Sheets("Sheet1").Select Range("A1") = "Sampiyan Pancen Toopp" End Sub Sub sheett(Control As IRibbonControl) Sheets("Sheet2").Select Range("A1") = "Sampiyan Pancen Toopp" End Sub Sub sheettt(Control As IRibbonControl) Sheets("Sheet3").Select Range("A1") = "Sampiyan Pancen Toopp" End Sub Sub sheeet(Control As IRibbonControl) Sheets("Sheet1").Select Range("A1") = "Belajar Menu Ribbon Di www.mtsbmtumbrasanom.id" End Sub Sub ssheet(Control As IRibbonControl) Sheets("Sheet2").Select Range("A1") = "Belajar Menu Ribbon Di www.mtsbmtumbrasanom.id" End Sub Sub sssheet(Control As IRibbonControl) Sheets("Sheet3").Select Range("A1") = "Belajar Menu Ribbon Di www.mtsbmtumbrasanom.id" End Sub
Bagi Anda yang belum mempunya Software Custom UI Editor for Office, silahkan download dan untuk Panduan Instalnya disini
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<commands>
<command idMso="ApplicationOptionsDialog" enabled="false"/>
<command idMso="FileExit" enabled="false"/>
</commands>
<ribbon startFromScratch="true">
<tabs>
<tab id="customTab2" label="TAB RIBBON KE 2" insertAfterMso="TabHome">
<group id="tabgroupdua" label="Belajar Kode XML UI Editor">
<button id="d" visible="true" size="large" label="Sheets 1" imageMso="HeaderFooterFileNameInsert" onAction="sheeet"/>
<separator id="Pemisah1"/>
<button id="e" visible="true" size="large" label="Sheets 2" imageMso="HeaderFooterFileNameInsert" onAction="ssheet"/>
<separator id="Pemisah2"/>
<button id="f" visible="true" size="large" label="Sheets 3" imageMso="HeaderFooterFileNameInsert" onAction="sssheet"/>
</group>
<group id="tabgrouptiga" label="Alat">
<button idMso="Copy" label="Ganti" size="large"/>
<button idMso="PasteValues" label="Templekno" visible="true" size="large" imageMso="Paste"/>
<button idMso="FileSave" label="Simpen" size="large"/>
<button idMso="FileClose" label="Metu" size="large"/>
</group>
</tab>
<tab id="customTab1" label="TAB RIBBON KE 1" insertAfterMso="TabHome">
<group id="tabgroupsatu" label="Belajar Kode XML UI Editor">
<button id="a" visible="true" size="large" label="Sheets 1" imageMso="HeaderFooterFileNameInsert" onAction="sheet"/>
<separator id="Pemisah3"/>
<button id="b" visible="true" size="large" label="Sheets 2" imageMso="HeaderFooterFileNameInsert" onAction="sheett"/>
<separator id="Pemisah4"/>
<button id="c" visible="true" size="large" label="Sheets 3" imageMso="HeaderFooterFileNameInsert" onAction="sheettt"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
<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="customTab2" label="TAB RIBBON KE 2" insertAfterMso="TabHome">
<group id="tabgroupdua" label="Belajar Kode XML UI Editor">
<button id="d" visible="true" size="large" label="Sheets 1" imageMso="HeaderFooterFileNameInsert" onAction="sheeet"/>
<separator id="Pemisah1"/>
<button id="e" visible="true" size="large" label="Sheets 2" imageMso="HeaderFooterFileNameInsert" onAction="ssheet"/>
<separator id="Pemisah2"/>
<button id="f" visible="true" size="large" label="Sheets 3" imageMso="HeaderFooterFileNameInsert" onAction="sssheet"/>
</group>
<group id="tabgrouptiga" label="Alat">
<button idMso="Copy" label="Ganti" size="large"/>
<button idMso="PasteValues" label="Templekno" visible="true" size="large" imageMso="Paste"/>
<button idMso="FileSave" label="Simpen" size="large"/>
<button idMso="FileClose" label="Metu" size="large"/>
</group>
</tab>
<tab id="customTab1" label="TAB RIBBON KE 1" insertAfterMso="TabHome">
<group id="tabgroupsatu" label="Belajar Kode XML UI Editor">
<button id="a" visible="true" size="large" label="Sheets 1" imageMso="HeaderFooterFileNameInsert" onAction="sheet"/>
<separator id="Pemisah3"/>
<button id="b" visible="true" size="large" label="Sheets 2" imageMso="HeaderFooterFileNameInsert" onAction="sheett"/>
<separator id="Pemisah4"/>
<button id="c" visible="true" size="large" label="Sheets 3" imageMso="HeaderFooterFileNameInsert" onAction="sheettt"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
NB : Jika muncul vbInformation, maka kode xml diatas sudah betul, dan apabila muncul vbcritical maka kode xml diatas masih ada yang salah. Saya asumsikan kode xml diatas sudah valid
Apabila Anda melakukan langkah-langkah diatas dengan baik dan benar serta urut, maka rumus/kode macro akan berjalan sesuai arahan.
Sekian dari kami semoga artikel yang kami tulis ini bermanfaat bagi hadirin sekalian.
Terimakasih atas kunjungannya dan menjadi tamu kami sehingga.
Jabat Erat@Hak Cipta 2015
Post a Comment for "Langkah Membuat Tab Menu baru di Excel ?"