宏未在宏表显示，求通过代码为普通Sub宏分配快捷键的方法

Hey there, let's break down your problems and fix them step by step:

1. Why Your LaunchRecognia Macro Isn't Showing Up in the Macro List #

Your code is a Public Sub in a module, which should normally appear in the macro list. Let's check these common culprits:

• Wrong module type: Make sure your sub is stored in a standard module (inserted via Insert > Module), not a sheet module, ThisWorkbook module, or class module. Macros in non-standard modules won't show up in the default macro list.
• Macro security settings: Even though you're skeptical, double-check this quickly: Go to File > Options > Trust Center > Trust Center Settings > Macro Settings. Avoid "Disable all macros without notification"—try "Disable all macros except digitally signed macros" or temporarily "Enable all macros" (only for testing) to see if the macro appears.
• Naming conflicts: Your macro name LaunchRecognia is valid, but just to rule it out: ensure there's no duplicate name elsewhere in the project, and no leading underscores or special characters that might hide it.

Once you confirm the macro runs correctly (test it by pressing F5 in the VBA editor), let's move to assigning a keyboard shortcut via code.

2. Assigning a Keyboard Shortcut to Your Macro with VBA #

You can use Excel's Application.OnKey method to bind a shortcut directly via code. Here's how to set it up:

Basic Shortcut Assignment #

Add this to a standard module:

Sub AssignLaunchRecogniaShortcut()
    ' Bind Ctrl+Shift+R to LaunchRecognia
    ' ^ = Ctrl, + = Shift, % = Alt; use lowercase letters for the key
    Application.OnKey "^+r", "LaunchRecognia"
    MsgBox "Shortcut Ctrl+Shift+R has been assigned to LaunchRecognia!", vbInformation
End Sub

Sub RemoveLaunchRecogniaShortcut()
    ' Clear the shortcut binding
    Application.OnKey "^+r"
    MsgBox "Ctrl+Shift+R shortcut has been removed!", vbInformation
End Sub

• Run AssignLaunchRecogniaShortcut to set the shortcut. Test it by pressing Ctrl+Shift+R—your macro should trigger immediately.
• Use RemoveLaunchRecogniaShortcut if you want to revert the shortcut later.

Make the Shortcut Permanent (Auto-Bind on Workbook Open) #

The OnKey binding resets when you close Excel. To make it stick every time you open the workbook, add this code to the ThisWorkbook module:

Private Sub Workbook_Open()
    ' Auto-bind the shortcut when the workbook opens
    Application.OnKey "^+r", "LaunchRecognia"
End Sub

Note: If the shortcut you pick is already used by Excel's default functions (like Ctrl+R for "Fill Right"), your macro will override that default behavior. Choose a less common combination if needed—for example, Ctrl+Alt+R would be %^r.

内容的提问来源于stack exchange，提问作者Berryl