2016-09-16 9 views
3

私たちのオフィスの誰かが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

答えて

0

これを指摘してくれた@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 
============================== 
0

あなたのプロジェクトモジュールを押してください。ここでは、VBAマクロコーディングのショートカットを見つけることができます。あなたがそれを保持したい場合は、そうしなければ、すべてを選択し、ファイルを削除して保存して閉じることができます。

+1

aboutsはマクロコードを正確にどこに? – User632716

+0

モジュールでは、マクロコーディングを見つけることができます。 – jitender

関連する問題