Berikut ini adalah daftar shortcut key di excel yang akan berguna untuk mempercepat proses pekerjaan
1. format selected object, press ctrl+1
2. insert current date, press ctrl+;
3. insert current time, press ctrl+shift+;
4. repeat last action, press F4
5. edit a cell comment, press shift + F2
6. autosum selected cells, press alt + =
7. see the suggest drop-down in a cell, press alt + down arrow
8. enter multiple lines in a cell, press alt+enter
9. insert a new sheet, press shift + F11
10. edit active cell, press F2 (places cursor in the end)
11. hide current row, press ctrl+9
12. hide current column, press ctrl+0
13. unhide rows in selected range, press ctrl+shift+9
14. unhide columns in selected range, press ctrl+shift+0
15. recalculate formulas, press F9
16. select data in current region, press ctrl+shift+8
17. see formulas in the worksheet, press ctrl+shift+` (ctrl+~)
18. editing formulas to change the reference type from absolute to relative vice versa, press F4
19. format a number as currency, press ctrl+shift+4 (ctrl+$)
20. apply outline border around selected cells, press ctrl+shift+7
21. open the macros dialog box, press alt+F8
22. copy value from above cell, press ctrl+’
23. format current cell with comma formats, press ctrl+shift+1
24. go to the next worksheet, press ctrl+shift+pg down
25. go to the previous worksheet, press ctrl+shift+pg up
Semoga membantu
Tampilkan postingan dengan label Shortcut Key. Tampilkan semua postingan
Tampilkan postingan dengan label Shortcut Key. Tampilkan semua postingan
Selasa, 25 November 2014
Rabu, 26 Juni 2013
Create Your Own Shortcut Key
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).
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).
Rabu, 01 Desember 2010
Shortcut To Delete and Insert Row / Column
Untuk melakukan insert row , dengan cara biasa adalah sbb :
1. Block Row
2. Masuk ke Insert
3. Pilih Row
Untuk melakukan delete row , dengan cara biasa adalah sbb :
1. Block Row
2. Klik Kanan Mouse
3. Pilih Delete
Begitu juga dengan column....
Untuk mempercepat pekerjaan anda, biasanya kita bisa menggunakan short cut
Short cut untuk menambah baris :
1. Shift + Space --> Untuk block row
2. Alt + i + e
atau bisa juga dengan :
1. Shift + Space
2. Ctrl Shift + (Control Shift Plus)
Short cut untuk menghapus baris :
1. Shift + Space
2. Ctrl - (Control Minus)
Untuk block column ganti Shift + Space menjadi Ctrl + Space
Semoga membantu
1. Block Row
2. Masuk ke Insert
3. Pilih Row
Untuk melakukan delete row , dengan cara biasa adalah sbb :
1. Block Row
2. Klik Kanan Mouse
3. Pilih Delete
Begitu juga dengan column....
Untuk mempercepat pekerjaan anda, biasanya kita bisa menggunakan short cut
Short cut untuk menambah baris :
1. Shift + Space --> Untuk block row
2. Alt + i + e
atau bisa juga dengan :
1. Shift + Space
2. Ctrl Shift + (Control Shift Plus)
Short cut untuk menghapus baris :
1. Shift + Space
2. Ctrl - (Control Minus)
Untuk block column ganti Shift + Space menjadi Ctrl + Space
Semoga membantu
Langganan:
Postingan (Atom)