Membuat Macro/VBA yang dapat diakses dengan Keyboard shortcuts

Untuk membuat VBA/Macro ada 2 cara :

  1. Cara mudah adalah dengan record macro, nanti tinggal kita edit hasilnya.
  2. Bisa juga kita cari  code yang ada diinternet lalu kita edit

Kita mulai dulu dari yang pertama

Kita akan mencoba membuat macro yang dapat paste secara value/angkanya saja dan sekaligus transpose

1.  Cara Pertama, Record Macro

  1. Kita Copy dulu salah satu cells (hal ini supaya tombol paste-specials bisa On)
  2. Kita klik Record Macro di ribbon developer
  3. akan muncul windows sbb :
  4. MacroKeyboard01
  5. Kita isi namanya (usahakan informatif)
  6. Kita klik text box di shortcut key
  7. Kita pencet SHIFT+T jika ingin keyboard shorcut adalah Ctrl+Shift+T (atau tombol lainnya terserah anda)
  8. Pastikan kita memilih Personal Macro Workbook
  9. Isi description dengan penjelasan ttg macro ini
  10. Klik OK
  11. Kita akan kembali ke Excel
  12. Klik kanan salah satu cell, lalu pilih Paste specials
  13. MacroKeyboard02
  14. Pilih Value dan transpose
  15. MacroKeyboard03
  16. Klik OK
  17. Klik stop recording di ribbon developer
  18. MacroKeyboard04
  19. Kita coba
  20. Copy dulu cells yang mau dipaste transpose value
  21. Pencet Ctrl+Shift+T
  22. ini hasilnya
  23. MacroKeyboard05
  24. Ini codenya kalo kita lihat di VBE
  25. Sub Paste_Transpose_Value()
    '
    ' Paste_Transpose_Value Macro
    ' Paste secara transpose value
    '
    ' Keyboard Shortcut: Ctrl+Shift+T
    '
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    End Sub

     

  26. Selesai

 

Tentu saja cara ini menghasilkan code yang masih kotor karena belum ada trap error, artinya jika ada masalah kita tidak tahu dimana kesalahannya

  • Jika kita tidak disheet atau sedang klik shape/picture
  • MacroKeyboard09
  • Kita lupa belum copy
  • MacroKeyboard10
  • Klik End untuk stop/Debug untuk edit code

 

Cara 2.  Kita akan membuat yang lebih perfect

  1. Kita klik Record Macro di ribbon developer
  2. akan muncul windows sbb :
  3. MacroKeyboard06
  4. Kita isi namanya (usahakan informatif)
  5. Kita klik text box di shortcut key
  6. Kita pencet SHIFT+P jika ingin keyboard shorcut adalah Ctrl+Shift+P (atau tombol lainnya terserah anda)
  7. Pastikan kita memilih Personal Macro Workbook
  8. Isi description dengan penjelasan ttg macro ini
  9. Klik OK
  10. Kita akan kembali ke Excel
  11. Klik stop recording di ribbon developer
  12. MacroKeyboard04
  13. Kita coba Edit macro tadi dengan edit langsung ke VBE (Visual Basic Editor)
  14. Pencet Alt+F11
  15. Masuk ke VBE
  16. Cari di project explorer, personal.xlsb
  17. Buka module
  18. Cari ditiap module macro yang tadi kita rekam
  19. Ini hasil rekaman tadi
  20. Sub Paste_Transpose_Value2()
    '
    ' Paste_Transpose_Value2 Macro
    ' Paste Transpose Value cara 2
    '
    ' Keyboard Shortcut: Ctrl+Shift+P
    '
    
    
    End Sub

     

  21. Kita coba cari di internet/ kita buat sendiri code untuk paste value transpose
  22. ini hasilnya
  23. Sub Paste_Transpose_Value2()
    '
    ' Paste_Transpose_Value2 Macro
    ' Paste Transpose Value cara 2
    '
    ' Keyboard Shortcut: Ctrl+Shift+P
    '
    
    '*******************************************************************
    '************** Start  Error Trap
    '*******************************************************************
        'tidak bisa ditampilkan jika bukan range
        If TypeName(Selection) <> "Range" Then
            MsgBox "sorry,hanya bisa dipaste di worksheet, pilih dulu salah satu cell untuk paste"
            
            Exit Sub
        End If
    
        'harus ada yang mau dicopy
        If Application.CutCopyMode = False Then
            MsgBox "Not in  Copy/Cut Mode" & vbCrLf & "dicopy dulu ANUNYA!!!"
            Exit Sub
        End If
    
    '*******************************************************************
    '**************End ERROR TRAP
    '*******************************************************************
    
    
        'baru kita paste value transpose
        Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    
    
    End Sub
    

     

  24. Sudah ada error trapnya jadi jika dipaste di Chart sheet atau di shape/picture nggak bisa, harus ada cell yang terpilih
  25. MacroKeyboard07
  26. Serta harus sudah mengCopy dulu, kalo belum akan ada peringatan
  27. MacroKeyboard08
  28. Selesai

 

Catatan :

Bookmark the permalink.

Leave a Reply

Your email address will not be published. Required fields are marked *