Изменять и показывать адрес гиперссылки с другого файла.

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменять и показывать адрес гиперссылки с другого файла. (Формулы/Formulas)

Matthew

Дата: Пятница, 28.10.2016, 15:38 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2010

Здравствуйте.
Подскажите пожалуйста.
Есть два файла, во втором (2) файле находится таблица примерно следующего вида

Во первом (1) файле эксель мне нужно отобразить имя и подразделение при изменении номера (это уже получилось с помощью

Код

=СЦЕПИТЬ(ВПР(D24;'ССЫЛКА НА ФАЙЛ'!$B$15:$L$6000;2;ЛОЖЬ))

это на 2й столбец допустим, в другой ячейке тоже самое на 4),
а также текст гиперссылки из 2го столбца, что не получается.
Получается только в первом (1) файле с помощью макроса
[vba]

Код

Function Get_Hyperlink_Address(ByVal rCell As Range) As String
Dim s As String
If rCell.Hyperlinks.Count = 0 Then
If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
Get_Hyperlink_Address = Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13)
Else
Get_Hyperlink_Address = "Нет ссылки в ячейке"
End If
Else
s = rCell.Hyperlinks(1).SubAddress
If s <> "" Then s = "#" & rCell.Hyperlinks(1).SubAddress
Get_Hyperlink_Address = rCell.Hyperlinks(rCell.Hyperlinks.Count).Address & s
End If
End Function

[/vba]

Возможно ли это в принципе? Т.е. при замене в первом (1) файле, я хочу чтобы помимо сцепленных ячеек где меняется текст, так же копировалась гиперссылка на файл (а не сам текст гиперссылки) и показывался адрес изменяемой гиперссылки.
[moder]Для оформления кода и формул есть спецтеги (кнопки # и fx)[/moder]

Сообщение отредактировал Pelena - Пятница, 28.10.2016, 17:24

Ответить

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