Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запись гиперссылки на ячейку - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись гиперссылки на ячейку (Макросы/Sub)
Запись гиперссылки на ячейку
ees Дата: Понедельник, 03.07.2017, 17:31 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток!

Не получается записать гиперссылку на ячейку в листе, которая может изменяться.

Запись макросов выдала вот такой вот код:



однако мне необходимо запись "Лист1!A10" заменить на запись типа Worksheets(list).Cells(x, y), где list = "Лист1", x = 10, y = 1, потому что эти параметры будут вычисляться.

Сам текст ячейки можно заменить на строковую переменную, а вот как быть с заданием адреса?

Подскажите пожалуйста, как можно записать гиперссылку.

Спасибо!


Сообщение отредактировал ees - Понедельник, 03.07.2017, 17:38
 
Ответить
СообщениеДоброго времени суток!

Не получается записать гиперссылку на ячейку в листе, которая может изменяться.

Запись макросов выдала вот такой вот код:



однако мне необходимо запись "Лист1!A10" заменить на запись типа Worksheets(list).Cells(x, y), где list = "Лист1", x = 10, y = 1, потому что эти параметры будут вычисляться.

Сам текст ячейки можно заменить на строковую переменную, а вот как быть с заданием адреса?

Подскажите пожалуйста, как можно записать гиперссылку.

Спасибо!

Автор - ees
Дата добавления - 03.07.2017 в 17:31
buchlotnik Дата: Понедельник, 03.07.2017, 19:35 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3328
Репутация: 886 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
как-то так[vba]
Код
List = "Лист1"
x = 10
y = 1
s = List & "!" & Cells(x, y).Address
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=s, TextToDisplay:=s
[/vba]


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru


Сообщение отредактировал buchlotnik - Понедельник, 03.07.2017, 19:49
 
Ответить
Сообщениекак-то так[vba]
Код
List = "Лист1"
x = 10
y = 1
s = List & "!" & Cells(x, y).Address
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=s, TextToDisplay:=s
[/vba]

Автор - buchlotnik
Дата добавления - 03.07.2017 в 19:35
KuklP Дата: Вторник, 04.07.2017, 07:26 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2340
Репутация: 479 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
s = Sheets(1).Cells(x, y).Address(0, 0, xlA1, True)
ActiveSheet.Hyperlinks.Add Selection, "", s, s
[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
s = Sheets(1).Cells(x, y).Address(0, 0, xlA1, True)
ActiveSheet.Hyperlinks.Add Selection, "", s, s
[/vba]

Автор - KuklP
Дата добавления - 04.07.2017 в 07:26
ees Дата: Вторник, 04.07.2017, 09:28 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем большое спасибо за помощь!!!
 
Ответить
СообщениеВсем большое спасибо за помощь!!!

Автор - ees
Дата добавления - 04.07.2017 в 09:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись гиперссылки на ячейку (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!