Гиперссылка из выпадающего списка

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Гиперссылка из выпадающего списка (Формулы/Formulas)

Paladii

Дата: Среда, 02.09.2015, 17:11 | Сообщение № 1

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

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

Сообщений: 10

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

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

Excel 2013

Добрый день!

На листе2 есть список гиперссылок. На листе1 раскрывающиеся списки. необходимо чтобы при выборе из раскрывающего списка появлялась гиперссылка. ^_^

Пример с описанием во вложении.
Добавил. Гиперссылки прямые
[moder]На листе 2 сделайте реальные гиперссылки. Дело в том, что их можно сделать двумя способами и от этого зависит метод решения.

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

Сообщение отредактировал Paladii - Среда, 02.09.2015, 17:34

Ответить

KSV

Дата: Среда, 02.09.2015, 18:28 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 770

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

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

Excel 2013

Добрый день!
Как вариант: [vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
      If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
      Dim v$: v = Target(1).Value: If Len(v) = 0 Then Exit Sub
      Dim a$: a = "Файлы для гиперссылок\" & v
      With Target(1).Hyperlinks
          If .Count Then .Item(1).Address = a Else .Add Target(1), a, , , v
      End With
End Sub

[/vba]

К сообщению приложен файл: HyperLink.zip (36.8 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Среда, 02.09.2015, 18:35

Ответить

Paladii

Дата: Четверг, 03.09.2015, 08:25 | Сообщение № 3

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

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

Сообщений: 10

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

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

Excel 2013

То что нужно! Спасибо! Работает как надо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Гиперссылка из выпадающего списка (Формулы/Formulas)

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