Shortcuts Found in Excel Menus

Location: http://www.mvps.org/dmcritchie/excel/shortmenu.htm      
Home page: http://www.mvps.org/dmcritchie/excel/excel.htm
[View without Frames]

Shortcuts found in the Excel Menus

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.txt
Option 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>&nbsp;(", _
        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

This page was introduced on May 1, 2005. 
[My Excel Pages -- home]    [INDEX to my site and the off-site pages I reference] 
[Site Search -- Excel]     [Go Back]    [Return to TOP

Please send your comments concerning this web page to: David McRitchie send email comments


Copyright © 1997 - 2005,  F. David McRitchie,  All Rights Reserved