VBA Гиперссылка - Как создать гиперссылку в Excel VBA? (Примеры)

• Определение гиперссылки VBA

Определение гиперссылки VBA

Гиперссылка обычно используется с веб-сайтами для перехода с одной страницы на другую или с одного веб-сайта на другой в Интернете. Аналогичным образом, мы можем также контролировать движения в листе Excel. Различные операции, которые могут быть выполнены в Excel:

• Перемещение в определенное место в текущей рабочей книге.
• Открываем разные документы и выбираем указанную область внутри документа.
• Переход к веб-страницам с рабочего листа.
• Отправка электронной почты на указанный адрес.

Гиперссылка легко распознается из-за изменения цвета, в основном синего цвета. Существуют разные способы создания гиперссылки в Excel и использования VBA.

Как создать гиперссылку в Excel, используя код VBA?

Вы можете добавить гиперссылку на текст или один лист на другой лист в Excel, используя свойство добавления гиперссылки. Формат должен сопровождаться указанием, где гиперссылка должна быть создана и URL навигации и т. Д.

Формат для VBA Гиперссылка Добавить

Формат показывает параметры, которые необходимо указать для добавления гиперссылки на лист.

• Якорь: Определяет ячейку, которую вы хотите создать гиперссылку.
• Адрес: URL, по которому должна перейти навигация.
• (SubAddress): подадрес URL.
• (ScreenTip): значение указателя мыши, отображаемое при размещении указателя мыши.
• (Текст для отображения): текст должен отображаться в ячейке.

Используйте свойство Active cell, чтобы добавить гиперссылку.

Выберите метод добавления из списка

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

Ниже приведены различные примеры создания гиперссылок в Excel с использованием кода VBA.

Вы можете скачать этот шаблон гиперссылки VBA Excel здесь - Шаблон гиперссылки VBA Excel

Пример № 1 - Создание гиперссылки из рабочего листа на сайт

Мы хотим создать гиперссылку из рабочей таблицы с именем sub на веб-сайт, используя код VBA в Excel.

Ниже приведены шаги для создания гиперссылки в Excel VBA:

Шаг 1: Создайте функцию с именем hyper, чтобы добавить гиперссылку.

Код:

 Private Sub hyper () End Sub 

Шаг 2: Используйте активный объект ячейки, чтобы открыть метод добавления гиперссылки.

Код:

 Private Sub hyper () ActiveCell.Hyperlinks.Add (End Sub 

Шаг 3: Укажите значения параметров для метода добавления гиперссылки.

Код:

 Private Sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "Это гиперссылка", TextToDisplay: = "Обучение Excel" End Sub 

• Якорь: название листа
• Адрес: Гиперссылка, по которой следует перемещать элемент управления, учитывая адрес веб-сайта.
• ScreenTip: текст указателя мыши
• TextToDisplay: к какому тексту должна быть привязана гиперссылка

Шаг 4: Нажмите F5 или кнопку Run под VBE, чтобы запустить этот код и увидеть результат.

Диапазон ячеек A1 выбран, и тексту назначается гиперссылка, после того как вы нажмете на текст «Обучение Excel», он будет перенаправлен на веб-сайт https://www.educba.com/. Когда вы перемещаете указатель мыши рядом с текстом, он показывает текст указателя мыши.

Пример №2 - Гиперссылка для соединения двух листов

У нас есть две таблицы с именами Home и sub . Давайте попробуем создать гиперссылку с юга на дом, используя код VBA.

Выполните следующие шаги, чтобы создать гиперссылку с одного листа на другой в той же книге, используя код VBA.

Шаг 1: Создайте функцию, где мы напишем все коды для выполнения действия. Напишите код для выбора «подчиненного» листа, используя метод выбора рабочего листа.

Код:

 Private Sub hyper1 () Рабочие таблицы ("sub"). Выберите End Sub 

Поскольку элемент управления перемещается внутри листа, необходимо выбрать лист, в котором вы создаете гиперссылку.

Шаг 2: Выберите диапазон ячеек на листе, где будет создана гиперссылка.

Код:

 Private Sub hyper1 () Рабочие листы ("sub"). Выберите Range ("A1"). Выберите End Sub 

Шаг 3: Теперь давайте добавим гиперссылку, используя свойство active cell.

Код:

 Private Sub hyper1 () Worksheets ("sub"). Выберите диапазон ("A1"). Выберите ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Нажмите, чтобы переместить домашний лист" End Sub 

Поскольку рабочая таблица уже выбрана, привязка задается как «Выбор». Гиперссылка указана как лист «Домой» и диапазон А1.

Шаг 4: Запустите код и на листе будет показана гиперссылка, как показано ниже.

Шаг 5: После нажатия на текст элемент управления будет перемещен на лист « Домой ». И ячейка А1 будет выделена.

Пример № 3 - Гиперссылка с несколькими листами

Если вы хотите создать гиперссылку на нескольких листах, это также возможно. В этом примере у нас есть несколько листов в одной книге. Существует другой тип функций Excel, так что из основного листа «Функции». Давайте попробуем создать гиперссылку на другой лист, названный разными функциями, используя код VBA:

Несколько рабочих листов названы ниже с различными именами функций Excel

Поскольку мы хотим создать гиперссылку на каждый лист, трудно повторить код. Для создания гиперссылки с использованием кода VBA в Excel выполните следующие действия:

Шаг 1: Создайте переменную для удобной работы с таблицей.

Код:

 Private Sub hyper2 () Dim ws As Worksheet End Sub 

Шаг 2: Теперь мы хотим выбрать главную страницу, которая действует как индексную страницу, и выбрать диапазон ячеек A1.

Код:

 Private Sub hyper2 () Dim ws As Worksheet Worksheet («Функции»). Выберите диапазон («A1»). Выберите End Sub 

Шаг 3: Для перемещения по нескольким рабочим листам и гиперссылкам мы создаем для каждого цикла. A1 уже выбран в качестве активной ячейки, поэтому создайте гиперссылку из этого.

Код:

 Private Sub hyper2 () Dim ws As Worksheet Sheets («Функции»). Выберите диапазон («A1»). Выберите для каждого ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub 

Шаг 4. Укажите значения параметров, чтобы создать гиперссылку для каждого листа. Поскольку гиперссылка начинается с активной ячейки, якорь = активная ячейка, адрес задается как «» .

Код:

 Private Sub hyper2 () Dim ws As Worksheet Worksheet ("Функции"). Выберите диапазон ("A1"). Выберите для каждого ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Sub 

Шаг 5: Гиперссылка проходит через лист, поэтому мы должны указать подадрес в качестве имен листов. Чтобы получить имена листов, мы можем использовать переменную ws и диапазон ячеек как A1. Название листа будет указано с одинарной кавычкой. Имя листа и диапазон будут указаны, а также закрыты одинарной кавычкой.

Код:

 Private Sub hyper2 () Dim ws As Worksheet Sheets («Функции»). Выберите диапазон («A1»). Выберите для каждого ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Далее ws End Sub 

Шаг 6: Чтобы получить гиперссылку с именем листа, TextToDisplay присваивается как ws.Name

Код:

 Private Sub hyper2 () Dim ws As Worksheet Sheets («Функции»). Выберите диапазон («A1»). Выберите для каждого ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Далее ws End Sub 

Этот код будет хранить гиперссылки для каждого листа в той же ячейке A1.

Шаг 7: Чтобы изменить этот каждый лист на другую ячейку вниз на одну ячейку от активной ячейки.

Код:

 Private Sub hyper2 () Dim ws As Worksheet Sheets («Функции»). Выберите диапазон («A1»). Выберите для каждого ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "», SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Выбрать следующий ws End Sub 

Шаг 8: Запустите программу, и каждое имя листа будет отображено на листе «Функции», и при нажатии на него элемент управления переместится на соответствующий лист.

То, что нужно запомнить

• Свойство гиперссылки активной ячейки, используемой для создания гиперссылок в VBA.
• Гиперссылка поможет легко перемещаться по книге.

Рекомендуемые статьи

Это руководство по гиперссылкам VBA. Здесь мы узнаем, как создавать гиперссылки на рабочем листе, используя код VBA для быстрого перехода с одного листа на другой, а также некоторые практические примеры и загружаемый шаблон Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

1. Введение в VBA Loops
2. Удалить гиперссылки в Excel
3. VBA Break для Loop
4. Найти внешние ссылки в Excel