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

Дата: Четверг, 27.02.2014, 17:58 | Сообщение № 1

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

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

Сообщений: 39

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

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

Excel 2010

Добрый вечер!
Помогите, пож-та, нужно,. что бы в файле эксель в выпадающем списке при выборе необходимого значения открывалось соответствующее изображение в отдельном окне. Я знаю, что подобный вопрос уже затрагивался на форуме, но ответа на него я так и не нашла....Хочу. что бы было так как во вложении, только для картинок

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

Дата: Четверг, 27.02.2014, 18:25 | Сообщение № 2

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

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

Сообщений: 514

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

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

Может достаточно указать ссылку на изображение?

К сообщению приложен файл: post_236148-1-.xls (36.5 Kb)

"Ничто не приносит людям столько неприятностей, как разум."

Дата: Пятница, 28.02.2014, 11:07 | Сообщение № 3

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

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

Сообщений: 39

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

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

Excel 2010

Вариант шикарный, то что нужно, Но есть несколько но:
1. У меня уже есть один макрос для данной таблицы и при запуске вашего макроса для моего файла excel ругается и пишет что повторяющиеся название, а именно "Worksheet_Change"
К сожалению, не могу выложить свою таблицу

Дата: Пятница, 28.02.2014, 11:10 | Сообщение № 4

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

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

Сообщений: 39

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

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

Excel 2010

Прилагаю скрин ошибки

К сообщению приложен файл: 7974468.jpg (31.8 Kb)

Сообщение отредактировал Мария233 - Пятница, 28.02.2014, 11:14

Дата: Пятница, 28.02.2014, 12:41 | Сообщение № 5

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

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

Сообщений: 39

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

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

Excel 2010

А как бы еще сделать так, что бы все таки не ссылки были в списке. Это не очень красиво

Дата: Пятница, 28.02.2014, 23:05 | Сообщение № 6

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

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

Сообщений: 514

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

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

1. Макрос нужно встраивать в уже имеющийся у вас макрос!
2. Во вложении два варианта, чтобы в списке были не ссылки!

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

"Ничто не приносит людям столько неприятностей, как разум."

Дата: Среда, 05.03.2014, 11:13 | Сообщение № 7

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

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

Сообщений: 39

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

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

Excel 2010

Добрый день!
1. С первым вариантом ( ссылки) все вышло, а вот со вторым не получается...((( открывает почему-то папку с данным рисунком, а не само изображение, а при присвоении ссылки к каждому из значений выпадающего списка, выскакиевает ошибка. Во вложении пример..
2. Возможно ли сделать так, что бы гиперссылка согранялась в выбранном пункте, т.е. можно было бы просмотреть изображение не только при выборе его из списка, но и потом, когда оно уже выбрано??

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

Сообщение отредактировал Мария233 - Среда, 05.03.2014, 12:30

Дата: Среда, 05.03.2014, 15:37 | Сообщение № 8

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

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

Сообщений: 514

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

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

1. Возоможно вы не изменили диапазон со списком значений (E7:E12) в строке:
[vba]

Код

Address:=[a1].Value & Cells(Range("E7:E12").Find(What:=Target.Value).Row, 4).Value

[/vba]
2. Удалите строку:
[vba]

Код

Target.Hyperlinks.Delete

[/vba]

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Среда, 05.03.2014, 15:38

Дата: Среда, 05.03.2014, 16:01 | Сообщение № 9

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

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

Сообщений: 39

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

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

Excel 2010

Да нет, все изменила, в том то и дело... Возможно я как то не верно делаю ссылки на сами картинки... НУжно же в ячейке с выпадающем списком. для каждого из значений сделать свою гиперссылку?

Дата: Среда, 05.03.2014, 18:43 | Сообщение № 10

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

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

Сообщений: 514

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

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

Цифра 4 в строке:
[vba]

Код

Address:=[a1].Value & Cells(Range("E7:E12").Find(What:=Target.Value).Row, 4).Value

[/vba]
это номер стоблца, в котором находятся имена файлов!

"Ничто не приносит людям столько неприятностей, как разум."