Определение на VBA Hyperlink

Хипервръзката обикновено се използва с уебсайтове за навигация от една страница на друга или един уебсайт към друг в интернет. По подобен начин можем да контролираме движенията и в работния лист excel. Различните операции, които могат да се извършват в Excel са:

  • Преминаване до определено място в текущата работна книга.
  • Отваряне на различни документи и изберете спомената област в документа.
  • Навигиране до уеб страници от работния лист.
  • Изпращане на имейл до определен адрес.

Хипервръзката е лесна за разпознаване поради промяна на цвета й, предимно в синьо. Съществуват различни методи за създаване на хипервръзка в excel и позволяване на използване на VBA.

Как да създадете хипервръзка в Excel с помощта на VBA код?

Можете да добавите хипервръзка към текст или един лист към друг работен лист в excel, като използвате свойството за добавяне на хипервръзка. Форматът трябва да бъде последван от посочване къде трябва да се създаде хипервръзката и навигационен URL и т.н.

Формат за хипервръзка на VBA Добавяне

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

  • Котва: Определя клетката, която искате да създадете хипервръзката.
  • Адрес: URL адресът, към който трябва да се премести навигацията.
  • (SubAddress): Под-адрес на URL адреса.
  • (ScreenTip): Стойността на показалеца на мишката, която трябва да бъде показана, докато поставяте показалец на мишката.
  • (Текст за показване): Текстът трябва да бъде показан на клетката.

Използвайте свойството Активна клетка, за да добавите хипервръзка.

Изберете метода за добавяне от списъка

Примери за създаване на хипервръзки в Excel VBA

По-долу са различните примери за създаване на хипервръзки в excel с помощта на VBA код.

Можете да изтеглите този шаблон на VBA Hyperlink Excel тук - шаблон на VBA Hyperlink Excel

Пример №1 - Създаване на хипервръзка от Работния лист към уебсайт

Искаме да създадем хипервръзка от работен лист с име sub към уебсайт, използвайки VBA код в excel.

По-долу са стъпките за създаване на хипервръзка в Excel VBA:

Стъпка 1: Създайте функция, наречена хипер, за да добавите хипервръзката.

Код:

 Частен Sub хипер () Край Sub

Стъпка 2: Използвайте обекта Active Cell, за да отворите метода за добавяне на хипервръзка.

Код:

 Private Sub hyper () ActiveCell.Hyperlinks.Add (Край Sub

Стъпка 3: Предоставете стойностите на параметрите към метода за добавяне на хипервръзка.

Код:

 Private Sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Обхват ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "това е хипервръзка", TextToDisplay: = "Excel Training" End Sub
  • Котва: име на работния лист
  • Адрес: Хипервръзка към мястото, където трябва да се навигира контрола, като се има предвид адресът на уебсайта
  • ScreenTip: Текст на показалеца на мишката
  • TextToDisplay: Към кой текст трябва да бъде присвоена хипервръзката

Стъпка 4: Натиснете F5 или Run бутона под VBE, за да стартирате този код и да видите изхода.

Избран е диапазонът на клетките A1 и текстът е присвоен с хипервръзка, след като кликнете върху текста „Excel Training“, той ще се пренасочи към уебсайта 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: Сега нека добавим хипервръзката, като използваме свойството на активната клетка.

Код:

 Private Sub hyper1 () Работни листове ("sub"). Изберете диапазон ("A1"). Изберете ActiveCell.Hyperlinks.Add Anchor: = Избор, Адрес: = "", SubAddress: = "'Начало"! A1 ", TextToDisplay: = "Кликнете, за да преместите началния лист" End Sub

Тъй като работният лист вече е избран, Котвата се дава като „Избор“. Хипервръзката е определена като „Начало“ и диапазон А1.

Стъпка 4: Изпълнете кода и под-лист на листа ще се покаже хипервръзката, както е показано по-долу

Стъпка 5: След като щракнете върху текста, контролът ще бъде преместен в листа „ Начало “. И клетката A1 ще бъде избрана.

Пример №3 - Хипервръзка с множество работни листове

Ако искате да създадете хипервръзка в множество работни листове, също е възможно. В този пример имаме няколко листа в една и съща работна книга. Съществува различен тип функции на excel, така че от основния работен лист „Функции“. Нека се опитаме да създадем хипервръзка към различните работни листове, наречени с различни функции, използвайки VBA код:

Множеството работни листове са посочени по-долу с различни имена на функции excel

Тъй като искаме да създадем хипервръзка към всеки работен лист, е трудно да повторим кода. Следвайте стъпките по-долу, за да създадете хипервръзка, използвайки VBA код в Excel:

Стъпка 1: Създайте променлива, за да се справите лесно с работния лист.

Код:

 Private Sub hyper2 () Dim ws като Работен лист End Sub

Стъпка 2: Сега искаме да изберем основната страница, която действа като индексна страница, и да изберем обхвата на клетката A1.

Код:

 Private Sub hyper2 () Dim ws като работни работни листове ("Функции"). Изберете диапазон ("A1"). Изберете End Sub

Стъпка 3: За да преминете през множество работен лист и хипервръзка ние създаваме за всеки цикъл. А1 вече е избран като активна клетка, така че създава хипервръзка от това.

Код:

 Private Sub hyper2 () Dim ws като работни работни листове ("функции"). Изберете диапазон ("A1"). Изберете за всяка ws в ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Следващ ws End Sub

Стъпка 4: Въведете стойностите на параметрите, за да създадете хипервръзка за всеки работен лист. Тъй като хипервръзката започва от активна котва на клетката = Активна клетка, адресът се дава като „“ .

Код:

 Private Sub hyper2 () Dim ws като работни работни листове („функции“). Изберете диапазон („A1“). подводница

Стъпка 5: Хипервръзката е циклична през работния лист, така че трябва да дадем под-адрес като имена на листа. За да получим имената на листа, можем да използваме променливата ws и обхвата на клетките като A1. Името на листа ще се позовава на един цитат. Името и диапазонът на листа ще бъдат уточнени и също затворени с една оферта.

Код:

 Private Sub hyper2 () Dim ws като работни листове на работния лист ("функции"). Изберете диапазон ("A1"). = "" & ws.Name & "! A1" & "" Следващ ws End Sub

Стъпка 6: За да получите хипервръзката с името на листа, дава TextToDisplay като ws.Name

Код:

 Private Sub hyper2 () Dim ws като работни листове на работния лист ("функции"). Изберете диапазон ("A1"). = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Next ws End Sub

Този код ще съхранява хипервръзка за всеки работен лист в една и съща клетка А1.

Стъпка 7: За да промените този всеки лист в различна клетка надолу по една клетка от активната клетка.

Код:

 Private Sub hyper2 () Dim ws като работни листове на работния лист ("функции"). Изберете диапазон ("A1"). = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Изберете Next ws End Sub

Стъпка 8: Стартирайте програмата и всяко име на листа ще се покаже на листа „Функции“ и докато щракнете върху него, контролът ще се премести в съответния лист.

Неща, които трябва да запомните

  • Свойство на хипервръзка на активната клетка, използвана за създаване на хипервръзки във VBA.
  • Hyperlink помага лесно да се движите в работната книга.

Препоръчителни статии

Това е ръководство за хипервръзките на VBA. Тук научаваме как да създаваме хипервръзки в Работен лист, използвайки кода на VBA, за бързо преминаване от един лист на друг лист, заедно с някои практически примери и свалящ се шаблон на excel. Можете да разгледате и другите ни предложени статии -

  1. Въведение в VBA контури
  2. Премахнете хипервръзките в Excel
  3. VBA почивка за контур
  4. Намерете външни връзки в Excel

Категория:

VBA