Ово ВБА упутство покрива различите начине рада са хипервезама у ВБА.
ВБА хипервезе
Помоћу ВБА можете да додајете хипервезе, уклањате хипервезе, креирате е -пошту помоћу хипервеза и отварате датотеке помоћу хипервеза у ВБА.
Додајте хипервезу са ВБА
Метода Хиперлинкс.Адд додаје хипервезу ћелији помоћу ВБА.
Следећи код ће додати хипервезу у ћелију А1:
| 123 | Суб АддХиперлинкТоЦелл ()АцтивеСхеет.Хиперлинкс.Адд Ранге ("А1"), Аддресс: = "хттпс://ввв.аутоматеекцел.цом/екцел/"Енд Суб |
Резултат је:
Додавање текста на екран помоћу ВБА
Можете додати уредан текст прилагођен кориснику за приказ на своју хипервезу помоћу ВБА. Ако сте користили функционалност радног листа, уметнули бисте хипервезу, а затим додали текст за приказ у понуђеном дијалогу.
Код у наставку приказује како додати текст за приказ на вашу хипервезу помоћу ВБА:
| 123 | Суб ТектТоДисплаиФорХиперлинк ()АцтивеСхеет.Хиперлинкс.Адд Ранге ("А1"), Аддресс: = "хттпс://ввв.аутоматеекцел.цом/екцел/", ТектТоДисплаи: = "Аутоматизуј Екцел"Енд Суб |
Резултат је:
Додавање савета о екрану са ВБА
Можете додати СцреенТип у своју хипервезу коју ће гледалац видети када задржи показивач изнад везе.
Доњи код показује како да додате СцреенТип у своју хипервезу помоћу ВБА:
| 123 | Суб СцреенТипФорХиперлинк ()АцтивеСхеет.Хиперлинкс.Адд Ранге ("А1"), Аддресс: = "хттпс://ввв.аутоматеекцел.цом/екцел/", ТектТоДисплаи: = "Аутоматизуј Екцел", СцреенТип: = "Ово је веза за Аутоматизовање Екцел -а"Енд Суб |
Резултат је:
Избришите хипервезу са ВБА
Метода Хиперлинкс.Делете може се користити за брисање хипервезе из ћелије.
Следећи код ће избрисати хипервезу из ћелије А1 и текст у ћелији.
Имајте на уму да само брисање хипервезе не брише сам текст, па ако желите да текст буде избрисан, морате користити и методу Обриши.
| 1234 | Суб ДелетеХиперлинкинЦелл ()Опсег ("А1"). Хипервезе.БрисањеДомет ("А1"). ЈасноЕнд Суб |
Избришите све хипервезе на радном листу
Такође можете избрисати све хипервезе на свом радном листу помоћу методе Хиперлинкс.Делете.
Следећи код ће избрисати све хипервезе на првом радном листу у вашој радној свесци:
| 123 | Суб РемовеАллХиперлинксИнАСхеет ()ТхисВоркбоок.Схеетс (1) .Хиперлинкс.ДелетеЕнд Суб |
Пратите хипервезу веб локације помоћу ВБА
Следећи код вам омогућава да отворите адресу веб локације у новом прозору прегледача помоћу методе ФолловХиперлинк у вашој радној свесци:
| 123 | Суб ФолловХиперлинкФорВебсите ()АцтивеВоркбоок.ФолловХиперлинк Адреса: = "хттпс://ввв.аутоматеекцел.цом/екцел", Нови прозор: = ТачноЕнд Суб |
Пратите хипервезу до фасцикле на диску
Следећи код ће отворити фасциклу под називом ЕкцелФилес на радној површини помоћу методе ФолловХиперлинк:
| 123 | Суб ФолловХиперлинкФорФолдерОнДриве ()АцтивеВоркбоок.ФолловХиперлинк Адреса: = "Ц: \ Десктоп \ ЕкцелФилес"Енд Суб |
Пратите хипервезу до датотеке на диску
Следећи код ће отворити Екцел датотеку под називом ВоркбоокОне у фасцикли под називом ЕкцелФилес на радној површини помоћу методе ФолловХиперлинк:
| 123 | Суб ФолловХиперлинкФорФиле ()АцтивеВоркбоок.ФолловХиперлинк Адреса: = "Ц: \ Десктоп \ ЕкцелФилес \ ВоркбоокОне.клск", НевВиндов: = ТруеЕнд Суб |
Идите на ћелију на другом листу у истој радној свесци
Можете додати хипервезу ћелији на једном листу који вас води на други лист, у истој радној свесци са ВБА. Рецимо да се налазите на Схеет1, ћелији А1 ваше радне свеске и желите да уметнете хипервезу на Схеет2, ћелију Б2 исте радне свеске, за то можете користити својство СубАддресс.
Следећи код показује како се то ради:
| 123 | Суб ГоТоАнотхерЦеллИнАнотхерСхеетИнТхеСамеВоркбоок ()АцтивеСхеет.Хиперлинкс.Адд Ранге ("А1"), Аддресс: = "", СубАддресс: = "'" & Схеет2.Наме & "'! Б2", ТектТоДисплаи: = "Кликните овде за одлазак на Лист2, ћелију Б2 иста радна свеска "Енд Суб |
Прикажите све хипервезе на радном листу
Можете приступити збирци хипервеза и приказати све хипервезе на свом радном листу у Средњи прозор у ВБА Едитор -у. Прво морате притиснути ЦТРЛ+Г на тастатури или идите на Поглед> Средњи прозор у ВБЕ Едитор -у за преглед средњег прозора.
Следећи код приказује како да видите хипервезе на свом радном листу у средњем прозору:
| 1234567891011 | Суб СховАллТхеХиперлинксИнТхеВорксхеет ()Дим вс Ас ВорксхеетСет вс = ТхисВоркбоок.Схеетс (1)За сваки лнк У вс.ХиперлинксДебуг.Принт лнк.АддрессНект лнкЕнд Суб |
Резултати су приказани у средњем прозору.
Прикажите све хипервезе у радној свесци
Можете приступити збирци хипервеза, прегледати и приказати све хипервезе у вашој радној свесци у оквиру за поруке.
Следећи код приказује како се то ради и користи угнежђену петљу да би то постигао:
| 1234567891011 | Суб СховАллТхеХиперлинксИнТхеВоркбоок ()Дим вс Ас ВорксхеетЗа сваки вс у АцтивеВоркбоок.ВорксхеетсЗа сваки лнк У вс.ХиперлинксМсгБок лнк.АддрессНект лнкНект всЕнд Суб |
Коришћење методе ФолловХиперлинк за креирање е -поште
Такође можете да креирате е -пошту помоћу методе ФолловХиперлинк.
Доњи код ће вам показати како да креирате е -пошту помоћу методе ФолловХиперлинк у ВБА:
| 12345678 | Суб СендЕмаилУсингХиперлинк ()Дим мсгЛинк Ас СтрингмсгЛинк = "маилто:" & "персон@емаил.цом" & "?" & "субјецт =" & "Здраво" & "&" & "боди =" & "Како сте?"АцтивеВоркбоок.ФолловХиперлинк (мсгЛинк)Енд Суб |
Резултат је:
Додавање хипервезе аутоматском облику у Екцелу
Можете додати хипервезу у Аутосхапе у Екцелу тако да када корисник кликне на облик добије се адреса веб локације.
Следећи код ствара заобљени правоугаоник, додаје текст у правоугаоник и додаје хипервезу у правоугаоник:
| 12345678910111213 | Суб АддингАХиперлинкТоАСхапе ()Дим миСхапе Ас СхапеСет миДоцумент = Ворксхеетс ("Схеет1")Постави миСхапе = миДоцумент.Схапес.АддСхапе (мсоСхапеРоундедРецтангле, 100, 100, 90, 30)Уз миСхапе.ТектФраме.Цхарацтерс.Тект = "Аутоматизуј Екцел"ЗавршитиАцтивеСхеет.Хиперлинкс.Адд Анцхор: = миСхапе, Аддресс: = "хттпс://ввв.аутоматеекцел.цом/екцел"Енд Суб |
Резултат је:
Уметање формуле хипервезе у ћелију помоћу ВБА
Рецимо да имате наслов поста у ћелији А4 и везу за пост у ћелији Б4 као што је приказано на доњој слици.
Брзи подсетник на синтаксу формуле хипервезе радног листа је:
ХИПЕРЛИНК (линк_лоцатион, [фриендли_наме])
линк_лоцатион - Ово је веза до документа, датотеке, места у радној свесци или на веб локацији на мрежи.
пријатељско име - (Опционо) - Текстуална или нумеричка вредност приказана у ћелији.
У ћелију Ц4 желите да додате хипервезу са пријатељским текстом за приказ. Сада бисте обично унели формулу = ХИПЕРЛИНК (Б4, А4) у Ц4 да бисте добили следеће:
Уместо тога, можете да употребите ВБА да бисте постигли исти резултат и убацили ову формулу у ћелију, на листу 1 са следећим кодом:
| 123 | Суб ИнсертХиперлинкФормулаИнЦелл ()АцтивеВоркбоок.Ворксхеетс ("Схеет1"). Ранге ("Ц4"). Формула = "= хипервеза (Б4, А4)"Енд Суб |
Додавање хипервезе дугмету у програму Аццесс
ВБА вам омогућава да радите и са хипервезама у Аццессу. Рецимо да имамо дугме на обрасцу и када корисник кликне на то дугме, желимо да буде одведено на веб локацију. Један од начина на који то можете учинити је метода Апплицатион.ФолловХиперлинк.
Имамо наш образац узорка са дугметом које се зове буттонОне приказано испод.
Код за ово дугме би био:
| 12345 | Приватно дугме Суб_Оне_Цлицк ()Апплицатион.ФолловХиперлинк ("хттпс://ввв.аутоматеекцел.цом/екцел/")Енд Суб |
Креирање хипервезе из избора у програму Ворд
Можете радити и са хипервезама у Ворд ВБА.
Рецимо да имамо текст Реч који каже „Кликните овде да бисте били преусмерени на аутоматизовану веб локацију Екцел“, који је одабран као што је приказано испод.
Да бисте овај текст претворили у хипервезу помоћу ВБА, можете користити следећи код:
| 123 | Привате Суб ТурнАСелецтионИнтоАХиперлинк ()АцтивеДоцумент.Хиперлинкс.Адд Анцхор: = Селецтион.Ранге, Аддресс: = "хттпс://ввв.аутоматеекцел.цом/екцел/", СцреенТип: = "Молимо кликните овде", Циљ: = Нови прозорЕнд Суб |
Резултат је:
