Переход по линкам

[3акup]

Проблема:
В Ячейке стоит цифра. Нажимаешь на цифру и в верхнем адресном окне появляется ссылка на другой документ, ЭТО И ЕСТЬ ЛИНК (напр. В2='С:\Работа\[Иванов.xls]зарплата'!$AB$86). Нужно, чтобы при двойном клике на данную ячейку, автоматически открывался документ, из которого взята данная цифра и выделялась соответствующая ячейка.
Заранее спасибо.

[b00s]

Ну стандартными средствами Excel это по моему сделать нельзя.
Надо воспользоваться VBA.
Вам нужна процедура

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
......
End Sub

При двойном клике на ячейке вы берёте путь к файлу, а именно С:\Работа\[Иванов.xls] уберате квадратные скобки и запускает его.

В принципе это 10 мин. дело.
Вперед...... будут проблемы пишите...

[3акup]

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

Ну стандартными средствами Excel это по моему сделать нельзя.
Надо воспользоваться VBA.
Вам нужна процедура

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
......
End Sub

При двойном клике на ячейке вы берёте путь к файлу, а именно С:\Работа\[Иванов.xls] уберате квадратные скобки и запускает его.

В принципе это 10 мин. дело.
Вперед...... будут проблемы пишите...

А можно полностью написать макрос, а то я никак не додумаю.
Заранее спасибо.

[SAS888]

Посмотрите вложение.

[b00s]

ну вот что то вроде этого

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim file
    file = Mid(Target.FormulaR1C1, 3, InStr(1, Target.FormulaR1C1, "[") - 3) & _
           Mid(Target.FormulaR1C1, InStr(1, Target.FormulaR1C1, "[") + 1, _
           InStr(1, Target.FormulaR1C1, "]") - InStr(1, Target.FormulaR1C1, "[") - 1)
    Application.Workbooks.Open file
End Sub

[SAS888]

b00s
Извините, но Ваша процедура не будет работать, если файл уже открыт. И у Вас нет активации ячейки из формулы по ссылке.

[3акup]

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

Посмотрите вложение.

Посмотрел, применил, но выдает вот такое сообщение. Смотрите в приложении.

[SAS888]

А Вы запускали именно предложенный файл, или переносили код в другой? Если так, то не забыли ли Вы перенести сам макрос "ToLink", находящийся в программном модуле?

[3акup]

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

А Вы запускали именно предложенный файл, или переносили код в другой? Если так, то не забыли ли Вы перенести сам макрос "ToLink", находящийся в программном модуле?

Я переносил код в другой.
Програмный модуль я тоже перенес. Но дело в том, что некоторые книги содержат линк и на книгу, в которой записан сам модуль.
А Ваше предложение, я так понимаю, обязательно для иерархического строения файлов. То есть, есть книга, данные в листах которой содержат линки на другие. НО в моем случае, они ссылаются друг на друга, а также бывает что и листы в пределах одной раб книги имеют линки друг на друга.

[3акup]

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

ну вот что то вроде этого

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim file
    file = Mid(Target.FormulaR1C1, 3, InStr(1, Target.FormulaR1C1, "[") - 3) & _
           Mid(Target.FormulaR1C1, InStr(1, Target.FormulaR1C1, "[") + 1, _
           InStr(1, Target.FormulaR1C1, "]") - InStr(1, Target.FormulaR1C1, "[") - 1)
    Application.Workbooks.Open file
End Sub

Я применил Ваш код, но теперь все линки в моей книге, где я собственно и применил Ваш код, стали иметь начало "=C:\Documents and Settings\username-b00s\Local Settings\Temporary Internet Files\"название папки"[название листа]'ячейка'
В общем, пришлось удалить. Хорошо что сохранил резервную версию (...перекрестился...)