Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Автоматическая подстановка ссылок

Автор MakeMeLaugh, 26.04.2014, 18:36

« назад - далее »

MakeMeLaugh

Здравствуйте, подскажите, пожалуйста, возможно ли эксель сделать следующую вещь и если да, то как?:)

Есть некая таблица со следующей шапкой:
|Порядковый номер|Дата|Текст|

На диске (сетевом) есть много папок с названиями, соответствующими порядковым номерам в таблице. Путь до каждой папки статичен и не меняется.

Есть ли возможность средствами экселя сделать автоматическое добавление ссылки к каждой ячейке в столбце А, так, чтобы все действия производились только в рамках столбца А (без использования скрытых ячеек/ячеек на другом листе)?

cheshiki1

#1
можно макросом.
файл пример приложите.
предварительный код подгоняйте под себя. Вставляется в модуль листа.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oFileSystemObject As Object
If Target.Column <> 1 Then Exit Sub 'если изменяемая ячейка не в первом столбце то выход
'""""проверяем существует ли книга с указанным именем""""
Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")
If oFileSystemObject.FileExists("D:\" & Target & ".xlsx") = False Then
    MsgBox "Файла D:\" & Target & ".xlsx нету"
    Exit Sub
End If
'""""вставляет формулу правее на 1 ячейку от измененной""""
Target.Offset(0, 1).FormulaLocal = "='D:\[" & Target & ".xlsx]Лист1'!$B$2"
End Sub

runner

А можно примерно так, естественно, подставив свой путь и расширение
=ГИПЕРССЫЛКА("C:\Users\Иванов\Documents\"&A2&".txt";"ссылка")