Воспользовался кодом из статьи. Переменная k для формирования гиперссылки начиная с четвертой строки. Может удастся подсказать - после преобразование ячейки в гиперссылку значение ячейки меняется - вместо 2.03 стало 2,03. и так далее. Как убрать эту запятую лучше?
Скрытый текст
Код
Dim sheet As Worksheet
Dim cell As Range
Dim k As Long
k = 0
With ActiveWorkbook
For Each sheet In ActiveWorkbook.Worksheets
k = k + 1
If k > 3 Then
Set cell = Worksheets(1).Cells(sheet.Index, 1)
.Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
cell.Formula = sheet.Name
End If
Next
End With
Добрый вечер. Приложил файл с комментариями в тексте макроса. Что есть на текущий момент: Лист "Результаты" и в нём названия ячеек согласно дате: 03.03, 04.03 и т.д.; листы название которых совпадает с названиями ячеек с датами в листе "результаты" Цель: сделать в листе результаты вместо обычных ячеек с датами - гиперссылки, при нажатии на которую происходит переход на другой лист. Вручную сделать можно, но строк очень много, нужно автоматизировать.