删除/列出所有键盘快捷键VBA excel

问题描述:

我们办公室中的某人已将一个宏分配给Ctrl + D。这很令人沮丧,因为它在Excel中已经有了一个函数。删除/列出所有键盘快捷键VBA excel

Excel使您可以轻松地在开发人员>宏中分配宏,我知道如果我在此菜单中推送选项,我可以看到哪些键被分配到了哪里。本工作手册中的宏列表很大,我不想单独打开每个宏。

这是哪里列出的?我认为有一个日志与这个地方?这是我能找到的最接近msdn的地方,但我需要在macroworkbook中分配宏:https://msdn.microsoft.com/en-us/library/hh179479(v=nav.90).aspx

+2

http://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_winother/how-to-list-keyboard-shortcuts-assigned-to/5928fc4f-ae30-469f-86a0-70a332e3be1e?auth = 1 – GSerg

+2

看看[这个页面](http://excel.tips.net/T003162_List_of_Macro_Shortcuts_in_All_Open_Workbooks.html)以及 – BruceWayne

+0

首先写出他们的答案得到的观点:) – User632716

感谢@GSerg指出了这一点,我将在这里发布这个完整性来结束这个问题。来源是在这里:

https://groups.google.com/forum/#!topic/microsoft.public.excel.worksheet.functions/TwcT-IlWjVk

To use this Macro (Sub), <alt-F8> opens the macro dialog box. Select the macro by name, and <RUN>. 
=================================================== 
Option Explicit 
'MUST set to Trust Access to the VBA Project Object Model 
' in Excel Options 
'Set reference to: 
'Microsoft Visual Basic for Applications Extensibility 
'Microsoft Scripting Runtime 
'Microsoft VBScript Regular Expressions 5.5 
Sub ListMacroShortCutKeys() 
    Dim VBProj As VBIDE.VBProject 
    Dim VBComp As VBIDE.VBComponent 
    Dim CodeMod As CodeModule 
    Dim LineNum As Long 
    Dim ProcKind As VBIDE.vbext_ProcKind 
    Dim sProcName As String, sShortCutKey As String 
    Const FN As String = "C:\Temp\Temp.txt" 
    Dim S As String 
    Dim FSO As FileSystemObject 
    Dim TS As TextStream 
    Dim RE As RegExp, MC As MatchCollection, M As Match 

Set RE = New RegExp 
With RE 
    .Global = True 
    .IgnoreCase = True 
    .Pattern = "Attribute\s+(\w+)\.VB_ProcData\.VB_Invoke_Func = ""(\S+)(?=\\)" 
End With 

Set FSO = New FileSystemObject 
Set VBProj = ActiveWorkbook.VBProject 
For Each VBComp In VBProj.VBComponents 
    Select Case VBComp.Type 
     Case Is = vbext_ct_StdModule 
      VBComp.Export FN 
      Set TS = FSO.OpenTextFile(FN, ForReading, Format:=TristateFalse) 
      S = TS.ReadAll 
      TS.Close 
      FSO.DeleteFile (FN) 
      If RE.Test(S) = True Then 
       Set MC = RE.Execute(S) 
       For Each M In MC 
        Debug.Print VBComp.name, M.SubMatches(0), M.SubMatches(1) 
       Next M 
      End If 
    End Select 
Next VBComp 
End Sub 
============================== 

按ALT + F11转到您的项目模块。你可以在这里找到快捷键vba宏编码。如果你想保留它,那么不需要做其他的事情,你可以选择全部并删除并保存并关闭文件。

+1

准确的宏编码在哪里? – User632716

+0

在模块中,您可以找到宏编码。 – jitender