The following shortcuts were pulled out of my menus, and customized for this listing. It includes shortcuts that I have installed for myself as well as those builtin to Excel.
Parent Shortcut Name Caption Worksheet Menu Bar Alt+c Action Action Chart Menu Bar Alt+C Chart Chart Chart Menu Bar Alt+c Action Action Worksheet Menu Bar Alt+D Data Data Worksheet Menu Bar Alt+E Edit Edit Worksheet Menu Bar Alt+F File File Chart Menu Bar Alt+F File File Macro Alt+F11 Visual Basic Editor Visual Basic Editor Macro Alt+F8 Macros... Macros... Worksheet Menu Bar Alt+H Help Help Chart Menu Bar Alt+H Help Help Worksheet Menu Bar Alt+I Insert Insert Chart Menu Bar Alt+I Insert Insert Worksheet Menu Bar Alt+M Macro Macro Worksheet Menu Bar Alt+o Format Format Chart Menu Bar Alt+o Format Format Tester Alt+O One One Macro Alt+Shift+F11 Microsoft Script Editor Microsoft Script Editor Worksheet Menu Bar Alt+T Tools Tools Worksheet Menu Bar Alt+V View View Worksheet Menu Bar Alt+W Window Window Format Ctrl+1 Cells... Cells... Edit Ctrl+C Copy Copy Fill Ctrl+D Down Down Edit Ctrl+F Find... Find... Edit Ctrl+G Go To... Go To... Edit Ctrl+H Replace... Replace... Cell Ctrl+K Hyperlink... Hyperlink... Insert Ctrl+K Hyperlink... Hyperlink... Custom Popup Ctrl+L Navigator Links... Navigator Links... Custom Popup Ctrl+M Navigator Names... Navigator Names... File Ctrl+N New... New... File Ctrl+O Open... Open... File Ctrl+P Print... Print... Custom Popup Ctrl+Q Navigator Sheets... Navigator Sheets... Fill Ctrl+R Right Right File Ctrl+S Save Save Custom Popup Ctrl+Shift+A Select cells in column with same value
(above and below active cell)Select cells in column with same value
(above and below active cell)Custom Popup Ctrl+Shift+C Color each n'th row or column Color each n'th row or column Custom Popup Ctrl+Shift+D Deselect cells Deselect cells Custom Popup Ctrl+Shift+F Insert Filename Insert Filename Custom Popup Ctrl+Shift+F Navigator Find... Navigator Find... Custom Popup Ctrl+Shift+G Go To Last Go To Last Custom Popup Ctrl+Shift+I Apply formula to selected cells Apply formula to selected cells Custom Popup Ctrl+Shift+K Expand selection to last column Expand selection to last column Custom Popup Ctrl+Shift+L Expand selection to last row Expand selection to last row Custom Popup Ctrl+Shift+M Move or resize selection Move or resize selection Custom Popup Ctrl+Shift+O Conditional select cells Conditional select cells Custom Popup Ctrl+Shift+P Convert formulas to their values Convert formulas to their values Custom Popup Ctrl+Shift+Q Quick numbering of cells Quick numbering of cells Custom Popup Ctrl+Shift+R Reset Excel's last cell Reset Excel's last cell Custom Popup Ctrl+Shift+S Save file and create backup Save file and create backup Edit Ctrl+V Paste Paste System Ctrl+W Close Close Edit Ctrl+X Cut Cut Edit Ctrl+Y Repeat Repeat Edit Ctrl+Z Undo Undo Clear Del Contents Contents Help F1 Microsoft Excel Help Microsoft Excel Help Tools F7 Spelling... Spelling... Help Shift+F1 What's This? What's This? Code (#code)
The code can be found in http:/www.mvps.com/dmcritchie/code/shortmenu.txtOption Explicit Sub ShowShortcuts_inMenus() 'David McRitchie, menu.htm, 2005-05-01 'based on Laurent Longre, 2004-02-28 pvt corr. Dim Ctrl As CommandBarControl Dim i As Long, j As Long Application.Calculation = xlCalculationManual Application.ScreenUpdating = False On Error Resume Next i = 1 Cells(i, 1) = "Parent" 'Macro -- menu Cells(i, 2) = " Shortcut" 'Alt+F8 Cells(i, 3) = "Name" 'Macros Cells(i, 4) = "TooltipText" 'Run Macro i = 2 For Each Ctrl In CommandBars.FindControls If Ctrl <> "" Then If Left(Ctrl.Parent.Name, 3) = "My " Or _ Ctrl.accKeyboardShortcut <> "" Then Cells(i, 1) = Ctrl.Parent.Name 'Macro -- menu Cells(i, 2) = Ctrl.accKeyboardShortcut 'Alt+F8 Cells(i, 3) = Ctrl.accName 'Macros Cells(i, 4) = Ctrl.TooltipText 'Run Macro i = i + 1 End If End If Next '- some fixups for HTML usage Columns("A:G").AutoFit Columns("A:A").Replace What:="Custom Popup *", replacement:="Custom Popup", _ lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False Columns("C:D").Replace What:=" (", replacement:="<b> (", _ lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False Columns("C:D").Replace What:="Can't ", replacement:="", _ lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False Columns("D:D").Select Run "'personal.xls'!fix_U_menu" 'changes &Edit to <u>E<u>dit With Rows("1:1") .Font.Bold = True .Font.ColorIndex = 5 End With Rows("2:2").FreezePanes = True '- sort Cells.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _ , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 For j = 1 To 5 If Cells(i, j) <> Cells(i - 1, j) Then GoTo not_now Next j Rows(i).Delete not_now: Next i Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub fix_U_menu() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim cell As Range, i As Long, rng As Range 'On Error Resume Next 'In case no cells in selection Set rng = Selection For Each cell In Intersect(rng, _ rng.SpecialCells(xlConstants, xlTextValues)) i = InStr(1, cell.Value, "&") If i <> 0 Then cell.Value = Left(cell.Value, i - 1) & _ "<u>" & Mid(cell.Value, i + 1, 1) & _ "</u>" & Mid(cell.Value, i + 2) End If Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True '-- see showshortcuts End Sub
Please send your comments concerning this web page to: David McRitchie send email comments
Copyright © 1997 - 2005, F. David McRitchie, All Rights Reserved