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

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отреактировать макрос, который создает гиперссылку на ячейку (Макросы/Sub)

antycapral

Дата: Вторник, 12.08.2014, 11:53 | Сообщение № 1

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

Ранг: Участник

Сообщений: 62

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

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

Excel 2016

Доброго дня форумчане.
Сам написал макрос, с помощью этого форума и планеты + активный поиск в яндексах и гуглах, за код сильно не пинать, только учусь...
Суть ошибки макроса: макрос создает гиперссылку на ячейку в текущей книге, но на другом листе, если имя листа начинается с цифры (20TH100) от все ОК, но вот если имя листа начинается с буквы (Met) , то выдает ошибку ""Данное имя недопустимо"" .
Помогите допилить мой код, и если не затруднит объясните почему ошибка возникает?
И второе как применить данный код в выделенному диапазону ячеек для кажой ячеки?
В примере все расписал что не получается и что хочется воплотить в жизнь!
Спасибо.
Вот код:
[vba]

Код

Dim WWW
Dim TXT

' извлекаем формулу из ячеки
TXT = Right(ActiveCell.FormulaLocal, Len(ActiveCell.FormulaLocal) - 2)
' создаем текст на ссылку
WWW = "#'[" & ActiveWorkbook.Name & "]" & TXT

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, _
Address:=WWW

[/vba]

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

Сообщение отредактировал antycapral - Вторник, 12.08.2014, 11:55

Ответить

_Boroda_

Дата: Вторник, 12.08.2014, 12:22 | Сообщение № 2

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

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub Прямоуг4_Щелкнуть()
     Dim TXT
     On Error Resume Next
     For i = 1 To Selection.Count
         TXT = ""
         TXT = Right(Selection(i).FormulaLocal, Len(Selection(i).FormulaLocal) - 1)
         ActiveSheet.Hyperlinks.Add Anchor:=Selection(i), Address:="", SubAddress:=TXT
     Next i
     On Error GoTo 0
End Sub

[/vba]
Для всей кучи выделенных ячеек

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

antycapral

Дата: Вторник, 12.08.2014, 12:25 | Сообщение № 3

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

Ранг: Участник

Сообщений: 62

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

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

Excel 2016

_Boroda_, да именно так и нужно !!
Огромное СПАСИБО Вам за помощь !!!
hands

Ответить

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