Страницы: 1
RSS
Гиперссылка на другой лист по названию ячейки
 
Добрый вечер. Приложил файл с комментариями в тексте макроса.
Что есть на текущий момент: Лист "Результаты" и в нём названия ячеек согласно дате: 03.03, 04.03 и т.д.; листы название которых совпадает с названиями ячеек с датами в листе "результаты"
Цель: сделать в листе результаты вместо обычных ячеек с датами - гиперссылки, при нажатии на которую происходит переход на другой лист. Вручную сделать можно, но строк очень много, нужно автоматизировать.

Заранее спасибо уделенное время и за ответы.
 
Код
For Each cell In Selection.SpecialCells(2)
    If cell.Hyperlinks.Count = 0 Then _
    ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:= _
        "'" & cell.Value & "'!A1", TextToDisplay:=cell.Value
Next
По вопросам из тем форума, личку не читаю.
 
qadexys,https://www.planetaexcel.ru/techniques/3/60/
Не бойтесь совершенства. Вам его не достичь.
 
Воспользовался кодом из статьи.
Переменная k для формирования гиперссылки начиная с четвертой строки. Может удастся подсказать - после преобразование ячейки в гиперссылку значение ячейки меняется - вместо 2.03 стало 2,03. и так далее. Как убрать эту запятую лучше?
Скрытый текст
Изменено: qadexys - 25.04.2020 14:50:43
 
qadexys, покажите в файле что у вас получилось и рядом что должно быть! так как код вставляет и меняет точку на запятую или нужно оставить точку? Если да то -просто присвойте столбцу текстовый формат и все

или добавить строку
Код
cell.NumberFormat = "@" 
после        
Код
Set cell = Worksheets(1).Cells(sheet.Index, 1)
         
Изменено: Mershik - 25.04.2020 15:18:35
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1
Наверх