Belajar RibbonX 01 Perkenalan

RIBBONX

kaserat:NangAgus

PENDAHULUAN

RibbonX merupakan sarana untuk meng”custom”isasi Ribbon yang telah disediakan oleh Microsoft, dengan ribbonX kita dapat menambah, mengurangi bahkan mengganti total Ribbon microsoft Excel.

Untuk membuat RibbonX diperlukan beberapa software untuk menulis script pada CustomUI. Ada banyak software yang dapat digunakan untuk menulis Script CustomUI, beberapa diantaranya CustomUI editor, notepad, notepad ++, dll.

Untuk pemula seperti saya sebaiknya menggunakan CustomUI editor, namun menurut Mr. Kid sebaiknya digunakan notepad ++. Semua software tersebut memiliki kekurangan dan kelebihan masing-masing.

No	Software	Kelebihan	Kekurangan	DownLoads
1.	Notepad	Semua komputer ada	Jika terjadi kesalahan script tidak terdeteksi, membuat file relasi	-
2.	Notepad ++	Hanya butuh 1 software	Membuat file relasi sendiri	Mriki
3.	CustomUI editor	Jika ada kesalahan mudah terdeteksi	Membutuhkan netframe work 3.5	Mriki & Mriki

Terserah pada anda sekalian silahkan dipakai sesuai dengan kebutuhan dan kebiasaan, dalam kesempatan ini saya mengajak rekan-rekan semua untuk belajar menggunakan CustomUI editor saja yang lebih mudah penggunaannya.

PERKENALAN DENGAN CUSTOM UI EDITOR 

Setelah anda menginstall Custom UI Editor, marilah kita buka custom UI editor.CustomUI editor sangat sederhana dalam tampilannya dibandingkan dengan notepad++ lihat gambar di bawah ini!

 

Coba bandingkan kesederhanaan jendela CustomUI di atas dengan jendela Notepad++ di bawah ini!

Sekarang marilah kita lihat masing-masing Tab pada CustomUI.

Pada tab menu File terdapat dropdown menu Open, Save, Save As, Close dan Exit, sangat standar dan pasti anda semua sudah dimengerti semua gunanya.

Demikian pula untuk tab menu Edit isinya juga sangat standar isinya.

Adakah yang memerlukan penjelasan untuk tab menu File dan Edit? Silahkan email saya atau lebih bagus jika diemailkan ke milis sehingga lebih banyak yang akan menanggapi.

Untuk Tab Insert terdapat dropdown menu yang khusus untuk CustomUI.

Office 2010 CustomUI Part digunakan untuk mengubah RibbonX office 2010

Office 2007 CustomUI Part digunakan untuk mengubah RibbonX office 2007

Menu Icon digunakan untuk menambahkan icon buatan sendiri

Sample XMLdigunakan untuk membuka contoh yang sudah disediakan Custom UI editor.

Toolbar Validatedigunakan untuk mengecek apakah penulisan script sudah betul apa belum?Jika kita sudah membuka file Excel maka CustomUI editor terbelah menjadi dua:

Disebelah kiri merupakan jendela exploler tempat memilih file xml yang akan ditulis, sedangkan jendela kanan tempat menulis script.

Mohon maaf apabila semua tulisan saya membingungkan, karena saya belajar sendiri tentang RibbonX ini, sudilah kiranya semua dapat mengoreksi tulisan ini sehingga bermanfaat untuk semuanya. Saya hanya ingin untuk membagi ilmu yang saya miliki, sebatas yang saya mengerti, semoga TUHAN memberi pencerahan kepada saya sehingga lebih mengerti tentang RibbonX melalui rekan rekan semua yang mau meralat tulisan ini, terima kasih.

<previous | next>

Membuat Daftar dan memilih Sheet

Oleh: Hendrik Karnadi

Dalam bekerja sering kali kita dihadapkan pada keharusan membuat atau menerima file (workbook) dengan jumlah sheet yang sangat banyak.

Baru-baru ini saya menerima satu file dengan jumlah sheet sebanyak 98 sheets dengan nama-nama yang hampir sama. Karena letak sheet yang tidak berurutan (mis. sesuai topik atau abjad) maka setiap kali saya mau mencari satu sheet saya harus mengingat-ingat letak sheet tersebut. Ketika saya coba membuka VBE Sheet untuk melihat letak sheet yang saya cari ternyata urutan nama sheet di VBE Sheet tidak sama dengan yang ada dalam workbook.

Saya coba membuat macro yang bisa membuat daftar sheets yang up to date pada sheet "Daftar" yang saya letakkan pada sheet paling kiri. Up to date berarti jika kita menambah, menghapus atau memindahkan sheet maka nama sheet akan langsung terdaftar dalam, terhapus dari sheet "Daftar" dan tersusun sesuai dengan urutan sheet terakhir. Jadi jika kita ingin mencari suatu sheet maka kita cukup mengklik sheet "Daftar" dan mendouble klik nama sheet yang kita inginkan.

Macronya adalah seperti ini (pada VBE Sheet1(Daftar):

Private Sub Worksheet_Activate()

    Dim Sh As Worksheet

    Application.EnableEvents = False

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    Sheets("Daftar").Activate

    Range("A1").Select

    Range("A1").CurrentRegion.ClearContents

    For Each Sh In Worksheets

        If Sh.Name <> "Daftar" Then

            ActiveCell.Value = Sh.Name

            ActiveCell.Offset(1, 0).Select

        End If

    Next

    Range("A1").Select

    Application.EnableEvents = True

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Sheets(ActiveCell.Value).Select

End Sub

Untuk mentes macro ini, kita bisa melakukan langkah-langkah berikut ini:

Menambah sheet

- Tambahkan sheet.

- Klik Sheet Daftar

- Lihat apakah sheet yang ditambahkan tersebut telah terdaftar

Menghapus sheet

- Hapus nama sheet

- Klik Sheet Daftar

- Lihat apakah sheet yang dihapus telah hilang dari daftar

Memindahkan sheet

- Pindahkan sheet dengan mendragnya dengan mouse

- Klik Sheet Daftar

- Lihat apakah urutan sheet dalam daftar telah sesuai dengan urutan atau letak sheet yang terakhir

Memilih sheet yang diinginkan

- Klik Sheet Daftar (paling kiri)

- Pilih dan Double Click nama sheet yang diinginkan

Semoga macro sederhana ini bermanfaat untuk menghemat waktu kerja kita.

Hendrik Karnadi/27-06-13

Create Your Own Shortcut Key

Oleh: Ferry Setiawan

Awal mulanya muncul perasaan kurang efisien pada saat bekerja dengan excel yang terdiri dari beberapa worksheet, mengapa demikian ? karena pada saat akan pindah sheet, kita harus klik sheet yang dimaksud dengan menggunakan mouse, cara kedua adalah dengan menggunakan shortcut Ctrl + Page Up/Down.

Melihat posisi tombol Page Up/Down yang ada di pojok kanan atas keyboard (Laptop Dell) rasanya susah juga untuk menekan tombol dengan benar tanpa melihat (mungkin saya kurang ahli dalam ketik mengetik hehehe....).

Akhirnya sambil iseng iseng mulailah bikin macro untuk membuat shorcut key sendiri dengan memanfaatkan Personal.xlsb yang diload setiap aplikasi excel dibuka

Codenya adalah sebagai berikut :



'Pilih Sheet sebelah kanan
Sub SelectRightSheet()
  If ActiveSheet.Index < Worksheets.Count Then
    ActiveWorkbook.Sheets(ActiveSheet.Index + 1).Activate
  End If
End Sub

'Pilih Sheet sebelah kiri
Sub SelectLeftSheet()
  If ActiveSheet.Index > 1 Then
    ActiveWorkbook.Sheets(ActiveSheet.Index - 1).Activate
  End If
End Sub

Kedua procedure ini saya masukkan dalam module.

Kemudian tambahkan juga setup code nya :

Public Sub Workbook_Open()
  Application.OnKey "%{LEFT}", "PERSONAL.XLSB!SelectLeftSheet"
  Application.OnKey "%{RIGHT}", "PERSONAL.XLSB!SelectRightSheet"
End Sub  

Code ini saya masukkan dalam workbook dari personal.xlsb juga.  
Setelah selesai , maka saya bisa memanfaatkan tombol Alt + Left/Right Arrow yang tentunya lebih mudah dijangkau oleh jari dan tanpa melihatpun bisa dengan mudah di tekan.   Setelah itu beberapa shortcut juga saya tambahkan untuk mempermudah saya dalam menggunakan excel,  

'Untuk paste format painter
Sub SelectFormatPainter()
  Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  SkipBlanks:=False, Transpose:=False
End Sub

'Untuk membesarkan Font
Sub FontSizeUp()
  Selection.Font.Size = Selection.Font.Size + 1
End Sub

'Untuk mengecilkan Font
Sub FontSizeDown()
  Selection.Font.Size = Selection.Font.Size - 1
End Sub

'Untuk refresh pivot
Sub RefreshPivot()
  On Error GoTo last:
    ActiveCell.PivotTable.PivotCache.Refresh
  last:
End Sub

Sehingga code pada workbook menjadi :  

Public Sub Workbook_Open()   'Alt + Left Arrow
  Application.OnKey "%{LEFT}", "PERSONAL.XLSB!SelectLeftSheet"
  'Alt + Right Arrow
  Application.OnKey "%{RIGHT}", "PERSONAL.XLSB!SelectRightSheet"
  'Alt + `
  Application.OnKey "%{`}", "PERSONAL.XLSB!SelectFormatPainter"
  'Alt + [
  Application.OnKey "%{[}", "PERSONAL.XLSB!FontSizeUp"
  'Alt + ]
  Application.OnKey "%{]}", "PERSONAL.XLSB!FontSizeDown"
  'Alt + \
  Application.OnKey "%{\}", "PERSONAL.XLSB!RefreshPivot"
End Sub

Tentunya ada kekurangan mendasar dari cara ini, yaitu komputer/laptop lain yang tidak mempunyai code tersebut tidak bisa menggunakan, karena personel.xlsb hanya menempel pada komputer/laptop dimana code di masukkan (local code).