Написание макроса

[Ant641]

Добрый день

Все пытаюсь настроить функцию, но никак не получается. Суть в том, чтобы нажимая сочетание клавиш (условно "ctrl + ["), excel переходил в ячейку, откуда были подтянуты данные. Данное действие соответствует двойному щелчку левой кнопкой мыши при отключении функции "allow editing directly in cells". Причем не важно открыт ли файл с искомыми данными, если он закрыт, он открывается.

Буду благодарен за помощь. Спасибо

[R Dmitry]

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

Добрый день

Все пытаюсь настроить функцию, но никак не получается. Суть в том, чтобы нажимая сочетание клавиш (условно "ctrl + ["), excel переходил в ячейку, откуда были подтянуты данные. Данное действие соответствует двойному щелчку левой кнопкой мыши при отключении функции "allow editing directly in cells". Причем не важно открыт ли файл с искомыми данными, если он закрыт, он открывается.

Буду благодарен за помощь. Спасибо

Вот когда то на планете делал .....

Sub Hotkey()
'ful
' Замена горячей клавиши R Dmitry
' При условии что в названии паки нет "'!"
' Сочетание клавиш: любое
'
Dim Ph As String, str As String, sh As String, adCel As String
Dim Ofl As Long, NumP As Long, NumP2 As Long, dp As Byte
str = ActiveCell.Formula
If str Like "*" & "(" & "*" Then str = "=" & Mid(str, InStrRev(str, "(") + 1, InStrRev(str, ",") - InStrRev(str, "(") - 4)
On Error Resume Next
If str = "" Then Exit Sub
Ofl = InStrRev(str, ":\"): NumP = InStrRev(str, "]")
If NumP <> 0 Then
Ph = Replace(Mid(str, 3, InStr(str, "]") - 3), "[", ""): dp = 0
Else
Ph = ActiveWorkbook.Name: dp = 1
End If

If Ofl <> 0 Then
NumP2 = InStrRev(str, "'!"): sh = Mid(str, NumP + dp + 1, NumP2 - NumP - 1): adCel = (Mid(str, NumP2 + 2))
Workbooks.Open Filename:=Ph: Application.Goto Reference:=Sheets(sh).Range(adCel)
Else
NumP2 = InStrRev(str, "!")
If NumP2 = 0 Then
Application.Goto Reference:=Range(Mid(str, 2))
Else
sh = Mid(str, NumP + 1 + dp, NumP2 - NumP - 1 - dp): adCel = (Mid(str, NumP2 + 1))
Application.Goto Reference:=Workbooks(Ph).Sheets(sh).Range(adCel)
End If
End If
End Sub

ВАМ ЭТО НАДО?

http://www.planetaexcel.ru/forum.php...llnum_forum=61

[Ant641]

Да, огромное спасибо. Именно то, что искал. Не подскажете еще, пожалуйста, как в самом коде прописать горячую клавишу (ctrl + [). А то английский эксель выдает ошибку, когда вводишь знак, а не букву?

[R Dmitry]

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

Да, огромное спасибо. Именно то, что искал. Не подскажете еще, пожалуйста, как в самом коде прописать горячую клавишу (ctrl + [). А то английский эксель выдает ошибку, когда вводишь знак, а не букву?

Насколько я помню, назначить вызов макроса можно только сочетанием CTRL + Любая буква, в вашем случае англецкая ,

хотя даже не на все русские выполняется ctrl + х , то же не запускает. Видимо не хочет отправлять пользователя на х....

[Ant641]

Спасибо. Просто на работе как-то используется именно это сочетание в экселе. И еще, можно ли усложнить код, чтобы если в строке формул несколько ячеек перечислено, откуда подтянуты данные, он переходил к первой и если например прописана формула "sum" он выделял все искомые ячейки?

[R Dmitry]

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

Спасибо. Просто на работе как-то используется именно это сочетание в экселе. И еще, можно ли усложнить код, чтобы если в строке формул несколько ячеек перечислено, откуда подтянуты данные, он переходил к первой и если например прописана формула "sum" он выделял все искомые ячейки?

Для всех формул не сделаешь, да и надо ли оно.............