Как найти макрос которой принадлежит кнопка?

[Оксана33]

Сообщение от IgorGO

а Вы внимательно прочитайте название темы
возможно так станет понятнее кто кого запутал

-- Дорогая, ты представляешь то, что мы всю нашу долгую совместную жизнь называли оргазмом, ОКАЗЫВАЕТСЯ называется астмой!!!

а что вы имеете в виду, что я клавишу кнопкой назвала, так разве с кнопкой так бывает? Ну, простите, что запутала вас

[alex77755]

А вопрос-то интересный!

а программа пишет, что она уже занята другим макросом.

У меня такого не пишет (2003). Разрешет назначить только не клавишу, а сочетание клавиш. Одно сочетание двум макросам. Не ругается. Но выполняется только первый назначенный. В более поздних версиях екселя не проверял. Но если ругается, то значит где-то имеется информация о назначенных сочетаниях и её можно найти. Мои попытки найти пока не увенчались успехом. Присоединяюсь к вопросу ТС: как найти все (и отдельно пользовательские) сочетания клавишь?

[27102014]

немного погуглил - http://www.planetaexcel.ru/forum/ind...ID=8&TID=36566

[slan]

встроить в каждый макрос debug.print имямакроса

нажимаешь на кнопочки и смотришь, какой макрос сработал

[27102014]

А если их много - в каждый записывать эту строку?
Чем Вас не устраивает придуманное на другом сайте решение? Не пользуюсь сочетание клавиш, но ради теста назначил парочку - все очень красиво получилось, на новом листе список макросов и сочетания клавиш. Не приписываю идею себе, где нашел ссылку указал, код

Sub ExportAllVBComponents()
Dim sh As Worksheet, x As Long
x = 1
Set sh = Workbooks.Add(xlWBATWorksheet).Sheets(1)
iTempPath$ = Environ("Temp") & "\" укажите свою папку 
For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
Select Case iVBComponent.Type
Case 1: iType$ = ".txt"
Case 3: iType$ = ".frm"
Case 2, 100: iType$ = ".cls"
End Select
iVBComponent.Export _
Filename:=iTempPath$ & iVBComponent.Name & iType$

Dim a, i&, tmp
a = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath$ & iVBComponent.Name & iType$).OpenasTextStream(1).readall, vbNewLine)
ReDim b(1 To UBound(a), 1 To 2)
ii = 0
For i = 0 To UBound(a)
If InStr(a(i), "VB_ProcData.VB_Invoke_Func =") Then
If InStr(a(i), "Then") = 0 Then
ii = ii + 1
b(ii, 1) = a(i - 1)
b(ii, 2) = "Ctrl + " & Split(Split(a(i), "VB_Invoke_Func = " & """")(1), "\")(0)
End If
End If
Next
If ii <> 0 Then sh.Cells(x, 1).Resize(ii, 2) = b
x = x + ii
Next
End Sub

[Оксана33]

Сообщение от alex77755

А вопрос-то интересный!

У меня такого не пишет (2003). Разрешет назначить только не клавишу, а сочетание клавиш. Одно сочетание двум макросам. Не ругается. Но выполняется только первый назначенный. В более поздних версиях екселя не проверял. Но если ругается, то значит где-то имеется информация о назначенных сочетаниях и её можно найти. Мои попытки найти пока не увенчались успехом. Присоединяюсь к вопросу ТС: как найти все (и отдельно пользовательские) сочетания клавишь?

у меня вообще какая-то путаница: проверяла в разных файлах, в первом случае закрепляется за первым макросом, во-втором случае - за последним, но пол года назад вообще выдавало ОШИБКА

Скажите, пож., что такое ТС? уже два раза слышу...

[Оксана33]

Сообщение от 27102014

А если их много - в каждый записывать эту строку?
Чем Вас не устраивает придуманное на другом сайте решение? Не пользуюсь сочетание клавиш, но ради теста назначил парочку - все очень красиво получилось, на новом листе список макросов и сочетания клавиш. Не приписываю идею себе, где нашел ссылку указал, код

Sub ExportAllVBComponents()
Dim sh As Worksheet, x As Long
x = 1
Set sh = Workbooks.Add(xlWBATWorksheet).Sheets(1)
iTempPath$ = Environ("Temp") & "\" укажите свою папку 
For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
Select Case iVBComponent.Type
Case 1: iType$ = ".txt"
Case 3: iType$ = ".frm"
Case 2, 100: iType$ = ".cls"
End Select
iVBComponent.Export _
Filename:=iTempPath$ & iVBComponent.Name & iType$

Dim a, i&, tmp
a = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath$ & iVBComponent.Name & iType$).OpenasTextStream(1).readall, vbNewLine)
ReDim b(1 To UBound(a), 1 To 2)
ii = 0
For i = 0 To UBound(a)
If InStr(a(i), "VB_ProcData.VB_Invoke_Func =") Then
If InStr(a(i), "Then") = 0 Then
ii = ii + 1
b(ii, 1) = a(i - 1)
b(ii, 2) = "Ctrl + " & Split(Split(a(i), "VB_Invoke_Func = " & """")(1), "\")(0)
End If
End If
Next
If ii <> 0 Then sh.Cells(x, 1).Resize(ii, 2) = b
x = x + ii
Next
End Sub

спасибо, проверим, но я надеялась,что где-то есть в настройках такая функция

[Hugo121]

Сообщение от Оксана33

Скажите, пож., что такое ТС? уже два раза слышу...

ТС — двубуквенная аббревиатура.

Вероятные значения:

Таможенный союз
Таможенный союз ЕврАзЭС (начиная с 2011 года активно употребляется в прессе именно в таком качестве, без уточнения про ЕврАзЭС)
Телеметрическая система
Телесигнализация (сигнал)
Телефонная станция
Техническая система
ТопикСтартер (человек, создавший тему на форуме)
Торговая сеть
Торговая система (Форекс)
Точка сборки
Трансерфинг
Транспортер снегоболотоходный
ТС-1
Транспортное средство
Трансформатор силовой
Тренажер стрелковый
Три состояния — тип выхода цифровой электронной схемы
TeamSpeak
Терапевтическая система (лекарственная форма)
Тайны Смолвиля

Единица измерения:

тонна-сила


https://ru.wikipedia.org/wiki/%D0%A2%D0%A1

[Оксана33]

Сообщение от slan

встроить в каждый макрос debug.print имямакроса

нажимаешь на кнопочки и смотришь, какой макрос сработал

простите, но если их до 100 шт, то это - вначале впиши в каждый, а потом выпиши, не многова-то ли гем...(либо создать копию док. для теста)

[Оксана33]

Сообщение от Hugo121

ТС — двубуквенная аббревиатура.

Вероятные значения:

Таможенный союз
Таможенный союз ЕврАзЭС (начиная с 2011 года активно употребляется в прессе именно в таком качестве, без уточнения про ЕврАзЭС)
Телеметрическая система
Телесигнализация (сигнал)
Телефонная станция
Техническая система
ТопикСтартер (человек, создавший тему на форуме)
Торговая сеть
Торговая система (Форекс)
Точка сборки
Трансерфинг
Транспортер снегоболотоходный
ТС-1
Транспортное средство
Трансформатор силовой
Тренажер стрелковый
Три состояния — тип выхода цифровой электронной схемы
TeamSpeak
Терапевтическая система (лекарственная форма)
Тайны Смолвиля

Единица измерения:

тонна-сила


https://ru.wikipedia.org/wiki/%D0%A2%D0%A1

огоо, ну а в данном случае?
выдержка "Кажется мне ТС имеет таки в виду не кнопки, А сочетания клавиш назначаемых макросу", "Присоединяюсь к вопросу ТС: как найти все (и отдельно пользовательские) сочетания клавишь?"