Гіперпосилання VBA - Як створити гіперпосилання в Excel VBA? (Приклади)

• Визначення гіперпосилання VBA

Визначення гіперпосилання VBA

Гіперпосилання зазвичай використовується для веб-сайтів для навігації з однієї сторінки на іншу або одного веб-сайту на інший в Інтернеті. Аналогічним чином ми також можемо контролювати рухи на робочому аркуші excel. У Excel можна виконати різні операції:

• Переміщення до певного місця в межах поточної робочої книги.
• Відкрийте різні документи та виберіть згадану область в документі.
• Навігація до веб-сторінок із робочого аркуша.
• Надсилання електронної пошти на певну адресу.

Гіперпосилання легко розпізнати через зміну кольору, переважно синього кольору. Існують різні методи створення гіперпосилання в excel та дозволення використання VBA.

Як створити гіперпосилання в Excel за допомогою коду VBA?

Ви можете додати гіперпосилання до тексту або одного аркуша до іншого робочого листа в межах excel, використовуючи властивість гіперпосилання add. Формат повинен дотримуватися, вказуючи, де слід створити гіперпосилання та URL-адресу навігації тощо.

Формат для гіперпосилання VBA Додати

Формат показує, що параметри потрібно надати для додавання гіперпосилання на робочий аркуш.

• Якір: визначає клітинку, для якої потрібно створити гіперпосилання.
• Адреса: URL-адреса, до якої повинна переміститися навігація.
• (Адреса підрозділу): під адреса URL-адреси.
• (ScreenTip): Значення вказівника миші повинно бути показано під час розміщення вказівника миші.
• (Текст для відображення): текст повинен бути відображений у комірці.

Використовуйте властивість "Активна клітинка", щоб додати гіперпосилання.

Виберіть зі списку метод додавання

Приклади створення гіперпосилань у Excel VBA

Нижче наведено різні приклади створення гіперпосилань у excel за допомогою коду VBA.

Ви можете завантажити цей шаблон Excel для гіперпосилання VBA тут - Шаблон Excel з гіперпосилання VBA

Приклад №1 - Створення гіперпосилання з Робочого листа на веб-сайт

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

Нижче наведено етапи створення гіперпосилання в Excel VBA:

Крок 1: Створіть функцію з назвою гіпер, щоб додати гіперпосилання.

Код:

 Приватний Sub гіпер () Кінець Sub 

Крок 2. Використовуйте об'єкт "Активна комірка", щоб відкрити метод додавання гіперпосилання.

Код:

 Private Sub гіпер () ActiveCell.Hyperlinks.Add (End Sub 

Крок 3: Надайте значення параметрів методу додавання гіперпосилання.

Код:

 Приватний суб гіпер () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Діапазон ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "це гіперпосилання", TextToDisplay: = "Навчання в Excel" Кінець підрозділу 

• Якір: назва робочого аркуша
• Адреса: Гіперпосилання на те, де слід керувати елементом управління, вказавши адресу веб-сайту
• ScreenTip: текст вказівника миші
• TextToDisplay: до якого тексту має бути призначений гіперпосилання

Крок 4: Натисніть кнопку F5 або Запустити під VBE, щоб запустити цей код і побачити вихід.

Виділяється діапазон комірок A1, а текст присвоюється гіперпосиланням, після натискання на текст "Excel Training" він перенаправлятиметься на веб-сайт https://www.educba.com/. При переміщенні вказівника миші поруч із текстом він відображатиме текст вказівника миші.

Приклад №2 - Гіперпосилання для з'єднання двох робочих таблиць

У нас є два робочих аркуші з назвою « Головна» та « Підряд» . Спробуємо створити гіперпосилання від суб додому за допомогою коду VBA.

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

Крок 1: Створіть функцію, де ми запишемо всі коди для виконання дії. Напишіть код, щоб вибрати робочий аркуш 'sub', використовуючи метод вибору робочого аркуша.

Код:

 Приватні Sub Subper1 () Робочі таблиці ("sub"). Виберіть End Sub 

Оскільки елемент управління переміщується всередині аркуша, необхідно вибрати робочий аркуш, на якому ви створюєте гіперпосилання.

Крок 2: Виберіть діапазон комірок на аркуші, де потрібно створити гіперпосилання.

Код:

 Приватний Sub гіпер1 () Робочі таблиці ("під"). Виберіть Діапазон ("А1"). Виберіть Кінець Під 

Крок 3: Тепер додамо гіперпосилання за допомогою властивості активної комірки.

Код:

 Приватні робочі таблиці Hyper1 () ("sub"). Виберіть діапазон ("A1"). Оберіть ActiveCell.Hyperlinks.Add Anchor: = Вибір, Адреса: = "", SubAddress: = "'Головна'! A1", TextToDisplay: = "Клацніть для переміщення домашнього аркуша" Закінчити Sub 

Оскільки робочий аркуш уже вибраний, прив’язка задається як "Виділення". Гіперпосилання задається як "Головна" аркуш і діапазон A1.

Крок 4: Запуск коду та підрозділу аркуша буде показано гіперпосилання, як показано нижче.

Крок 5: Після натискання на текст управління буде переміщено на аркуш " Домашня сторінка ". І клітина A1 буде вибрана.

Приклад №3 - Гіперпосилання з декількома робочими листами

Якщо ви хочете створити гіперпосилання на декількох робочих аркушах, це також можливо. У цьому прикладі ми маємо кілька аркушів у межах однієї робочої книги. Існує інший тип функцій excel, таким чином, в основному робочому аркуші "Функції". Спробуємо створити гіперпосилання на різні робочі аркуші, названі з різними функціями, використовуючи код VBA:

Кілька робочих таблиць названі нижче, з різними назвами функцій excel

Оскільки ми хочемо створити гіперпосилання на кожен робочий аркуш, важко повторити код. Виконайте наведені нижче дії для створення гіперпосилання за допомогою коду VBA в Excel:

Крок 1. Створіть змінну, щоб легко працювати з робочим аркушем.

Код:

 Приватний суб гіпер2 () Розмір тем, як робочий аркуш Кінець Під 

Крок 2: Тепер ми хочемо вибрати головну сторінку, яка виступає як індексну сторінку, і вибрати діапазон комірок A1.

Код:

 Private Sub hyper2 () Dim ws As Work Worketheets ("Функції"). Виберіть діапазон ("A1"). Виберіть End Sub 

Крок 3: Для переміщення через кілька робочих аркушів та гіперпосилань ми створюємо для кожного циклу. А1 вже вибрано як активну комірку, тому з цього створюється гіперпосилання.

Код:

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

Крок 4: Надайте значення параметрів, щоб створити гіперпосилання для кожного робочого аркуша. Оскільки гіперпосилання починається з активного яєчка клітини = Активна комірка, адреса задається як "" .

Код:

 Private Sub hyper2 () Dim ws As Workheet Worksheets ("Функції"). Виберіть діапазон ("A1"). Виберіть для кожного ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Наступний кінець Під 

Крок 5: Гіперпосилання прокручується через робочий аркуш, тому нам слід надати підзаголовок як назви аркушів. Для отримання назв аркушів ми можемо використовувати змінну ws та діапазон комірок як A1. Назва аркуша буде посилатися на одну пропозицію. Назва та діапазон аркуша будуть вказані, а також закриті однією пропозицією.

Код:

 Private Sub hyper2 () Dim ws As Workheet Worksheets ("Функції"). Виберіть діапазон ("A1"). Виберіть для кожного ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAdreress: = "" & ws.Name & "! A1" & "" Наступний ws Закінчення Sub 

Крок 6: Для отримання гіперпосилання з назвою аркуша надається TextToDisplay як ws.Name

Код:

 Private Sub hyper2 () Dim ws As Workheet Worksheets ("Функції"). Виберіть діапазон ("A1"). Виберіть для кожного ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAdreress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Наступний w Закінчення Sub 

Цей код буде зберігати гіперпосилання для кожного робочого аркуша в одній клітині A1.

Крок 7: Для зміни цього кожного аркуша до іншої комірки вниз по одній клітинці від активної комірки.

Код:

 Private Sub hyper2 () Dim ws As Workheet Worksheets ("Функції"). Виберіть діапазон ("A1"). Виберіть для кожного ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAdreress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Виберіть Next ws End Sub 

Крок 8: Запустіть програму, і назва кожного аркуша буде відображатися на аркуші "Функції", і при натисканні на нього елемент управління перейде до відповідного аркуша.

Що потрібно пам’ятати

• Властивість гіперпосилання активної комірки, що використовується для створення гіперпосилань у VBA.
• Гіперпосилання допомагає легко рухатися в межах робочої книги.

Рекомендовані статті

Це посібник із гіперпосилань VBA. Тут ми дізнаємося, як створити гіперпосилання на робочому аркуші за допомогою коду VBA для швидкого переходу з одного аркуша на інший аркуш разом із деякими практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

1. Вступ до циклів VBA
2. Видаліть гіперпосилання в Excel
3. Перерва VBA для циклу
4. Знайдіть зовнішні посилання в Excel