Столбец с гиперссылками

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Столбец с гиперссылками (Формулы/Formulas)

Serjik113

Дата: Четверг, 19.02.2015, 09:24 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Друзья добрый день.
Требуется Ваша помощь в очередной раз.
Подскажите как мне создать столбец с гиперссылками.
Ситуация заключается в следующем. Есть папка с файлами (картинками JPG или PDF ) которая периодически будет пополняться. Название файлов будут иметь вид от UX00001 до UX99999. Требуется создать в екселевском файле столбец в котором при введении в ячейку номера например UX00001 эта ячейка будет автоматически гиперссылкой на файл в папке.
Подскажите пожалуйста решение и возможно ли это вообще.
Спасибо.

Ответить

Nic70y

Дата: Четверг, 19.02.2015, 09:53 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9137

Репутация: 2416 ±

Замечаний: 0% ±

Excel 2010

поместите этот файл в папку с картинками, откройте.
мож не лучший вариант, но работает
[vba]

Код

Private Sub Workbook_Open()
     Columns("A:A").ClearContents
Dim iPath As String
     Dim iFileName As String
     Dim i As Long
     iPath = ThisWorkbook.Path
     iFileName$ = Dir(iPath$ & "\*.*")
     i = 1
     Do While iFileName$ <> ""
     ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=iFileName, TextToDisplay:=iFileName
     i = i + 1
     iFileName$ = Dir
     Loop
End Sub

[/vba]

К сообщению приложен файл: 001_.xls (34.5 Kb)

ЮMoney 41001841029809

Ответить

Manyasha

Дата: Четверг, 19.02.2015, 14:48 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Наверное уже поздно, но вдруг пригодится:
Написала UDF функцию Check_file (в модуле 1)
1-й способ использования (на листе 1) - ссылка в соседнем столбце. Формула:

Код

=ГИПЕРССЫЛКА("C:\pic\"&A2&Check_file("C:\pic\";A2);A2)

2-й способ - макрос на изменение столбца (на листе 2):

К сообщению приложен файл: links_.xlsm (18.9 Kb)

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Четверг, 19.02.2015, 14:48

Ответить

Столбец с гиперссылками (Формулы/Formulas)

Страница 1 из 1
1