Здравствуйте, помогите пожалуйста правильно создать макрос, чтобы на скрытых листах работала гиперссылка. Составил, при некой помощи макрос, он работает, но при переносе строки перестает работать. есть такой макрос: [vba]
Код
Sub SheetNameAsHyperLinks() Dim shet As Worksheet Dim cell As Range With ActiveWorkbook ' Для каждого листа (имени) создадим свою ссылку For Each Sheet In ActiveWorkbook.Worksheets Set cell = Worksheets(1).Cells(Sheet.Index, 1) .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _ SubAddress:="'" & Sheet.Name & "" & "!A3" cell.Formula = Sheet.Name Next End With End Sub
[/vba]
Здравствуйте, помогите пожалуйста правильно создать макрос, чтобы на скрытых листах работала гиперссылка. Составил, при некой помощи макрос, он работает, но при переносе строки перестает работать. есть такой макрос: [vba]
Код
Sub SheetNameAsHyperLinks() Dim shet As Worksheet Dim cell As Range With ActiveWorkbook ' Для каждого листа (имени) создадим свою ссылку For Each Sheet In ActiveWorkbook.Worksheets Set cell = Worksheets(1).Cells(Sheet.Index, 1) .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _ SubAddress:="'" & Sheet.Name & "" & "!A3" cell.Formula = Sheet.Name Next End With End Sub
' Для каждого листа (имени) создадим свою ссылку For i = 2 To Worksheets.Count Set sh = Worksheets(i) Set cell = Worksheets(1).Cells(i + 1, "B") Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _ SubAddress:="'" & sh.Name & "'!A3" cell.Value = sh.Name Next i
End Sub
[/vba]
[vba]
Код
Sub SheetNameAsHyperLinks()
Dim sh As Worksheet, cell As Range Dim i As Long
' Для каждого листа (имени) создадим свою ссылку For i = 2 To Worksheets.Count Set sh = Worksheets(i) Set cell = Worksheets(1).Cells(i + 1, "B") Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _ SubAddress:="'" & sh.Name & "'!A3" cell.Value = sh.Name Next i
Опишите Ваши действия. Вы щелкаете по гиперссылке на листе "Сводная" и не происходит переход на лист, т.к. лист скрыт? Нужно, чтобы при щелчке по ссылке отображался лист? А потом лист должен скрываться?
Опишите Ваши действия. Вы щелкаете по гиперссылке на листе "Сводная" и не происходит переход на лист, т.к. лист скрыт? Нужно, чтобы при щелчке по ссылке отображался лист? А потом лист должен скрываться?Karataev
Сообщение отредактировал Karataev - Четверг, 18.01.2018, 10:24
Karataev, хочется чтобы при щелчке на гиперссылку был переход на скрытый лист. А листы в свою очередь так и были скрыты, пока я не захочу их открыть.
Karataev, хочется чтобы при щелчке на гиперссылку был переход на скрытый лист. А листы в свою очередь так и были скрыты, пока я не захочу их открыть.sergey_kv91
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
[/offtop]
