Excel works!

Гиперссылка обеспечивает переход по адресу к нужному месту из документа Excel на сайт или на файл. Как сделать такую гиперссылку в Excel можно прочитать в этой статье:

Гиперссылка (hyperlink) — фактически, второй слой текста, в котором заключена ссылка на другой объект (файл, сайт, программу и т.п.), и при нажатии на нее вы переходите в нужное место.

Как добавить гиперссылку?

Итак, для добавления гиперссылки перейдите на нужную ячейку и на главной панели найдите раздел «Вставка». В разделе находится сектор «Связи», на котором есть функция «Гиперссылка».

 

Нажав на эту кнопку, у нас появится окно «Вставка гиперссылки». В данном окне вам будут предложены варианты создания гиперссылок. У вас есть возможность создать ссылку, в том же документе, на другом листе, нажав в пункте «Связать с..» функцию «Место в документе». Или просто вставьте имеющийся адрес в раздел Адрес.

Наша гиперссылка, а точнее ее наименование, автоматически выделилось в синий цвет, и при ее нажатии левой кнопкой мыши вы перейдете в указанное вами место в документе или в интернете. Таким же образом можно создать обратную гиперссылку, т.е. на исходное положение в документе.

Кроме гиперссылки на том же документе мы можем создать ссылку на другой документ. Чтобы это сделать нужно в окне «Вставка гиперссылки» в пункте «Связать с..» выбрать функцию «Файлом, веб — страницей». Потом в пункте «Папка» выбираем необходимую папку, а в ней и документ, на который вы хотите ссылаться.

Как получить адрес ссылки из ячейки с гиперссылкой

Этому посвящена отдельная статья.

Создание оглавления c гиперссылками в Excel

Одно из решений оглавления в Excel — это окно контрольного значения. Подробно об этой малоизвестной, но полезной возможности можно прочитать здесь.

Так же можно воспользоваться макросом:

Sub SpisokListov()    Dim sheet 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 & "'" & "!A1"          cell.Formula = sheet.Name       Next    End With End Sub

Чтобы не изобретать велосипед макрос взят c прекрасного сайта.