Tento návod VBA sa zaoberá rôznymi spôsobmi práce s hypertextovými odkazmi vo VBA.
Hypertextové odkazy VBA
Pomocou VBA môžete pridávať hypertextové odkazy, odstraňovať hypertextové odkazy, vytvárať e -maily pomocou hypertextových odkazov a otvárať súbory pomocou hypertextových odkazov vo VBA.
Pridajte hypertextový odkaz s VBA
Metóda Hyperlinks.Add pridá hypertextový odkaz na bunku pomocou VBA.
Nasledujúci kód pridá hypertextový odkaz do bunky A1:
123 | Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/"Koniec pod |
Výsledkom je:
Pridanie textu na zobrazenie pomocou VBA
Do svojho hypertextového odkazu pomocou VBA môžete pridať úhľadný a užívateľsky príjemný text. Ak by ste použili funkciu pracovného hárka, vložili by ste hypertextový odkaz a potom by ste pridali text na zobrazenie v poskytnutom dialógovom okne.
Nasledujúci kód ukazuje, ako pridať text na zobrazenie do hypertextového odkazu pomocou jazyka VBA:
123 | PodtextToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizovať Excel"Koniec pod |
Výsledkom je:
Pridanie ScreenTipu s VBA
K svojmu hypertextovému odkazu môžete pridať ScreenTip, ktorý sa divákovi zobrazí, keď naň umiestnite kurzor myši.
Nasledujúci kód ukazuje, ako pridať ScreenTip k vášmu hypertextovému odkazu pomocou VBA:
123 | Sub ScreenTipForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automate Excel", ScreenTip: = "This is the link for Automate Excel"Koniec pod |
Výsledkom je:
Odstráňte hypertextový odkaz pomocou VBA
Metódu Hyperlinks.Delete je možné použiť na odstránenie hypertextového odkazu z bunky.
Nasledujúci kód odstráni hypertextový odkaz z bunky A1 a textu v bunke.
Upozorňujeme, že iba odstránením hypertextového odkazu sa neodstráni samotný text, a preto ak chcete text odstrániť, musíte použiť aj metódu Vymazať.
1234 | Sub DeleteHyperlinkinCell ()Rozsah („A1“). Hypertextové odkazy. OdstrániťRozsah („A1“). JasnéKoniec pod |
Odstráňte všetky hypertextové odkazy v pracovnom hárku
Môžete tiež odstrániť všetky hypertextové odkazy v hárku pomocou metódy Hyperlinks.Delete.
Nasledujúci kód odstráni všetky hypertextové odkazy v prvom hárku vo vašom zošite:
123 | Sub RemoveAllHyperlinksInASheet ()ThisWorkbook.Sheets (1) .Hyperlinks.DeleteKoniec pod |
Sledujte hypertextový odkaz na webovú stránku pomocou VBA
Nasledujúci kód vám umožňuje otvoriť adresu webového servera v novom okne v prehliadači pomocou metódy FollowHyperlink vo vašom zošite:
123 | Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Adresa: = "https://www.automateexcel.com/excel", NewWindow: = TrueKoniec pod |
Nasledujte hypertextový odkaz na priečinok na vašom disku
Nasledujúci kód otvorí priečinok s názvom ExcelFiles na ploche pomocou metódy FollowHyperlink:
123 | Sub FollowHylinklinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Adresa: = "C: \ Desktop \ ExcelFiles"Koniec pod |
Nasledujte hypertextový odkaz na súbor na vašom disku
Nasledujúci kód otvorí súbor programu Excel s názvom WorkbookOne v priečinku s názvom ExcelFiles na ploche pomocou metódy FollowHyperlink:
123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Adresa: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TrueKoniec pod |
Prejdite na bunku v inom hárku toho istého zošita
Do bunky v jednom hárku môžete pridať hypertextový odkaz, ktorý vás presmeruje na iný hárok, do toho istého zošita s VBA. Povedzme, že sa nachádzate v hárku 1, bunke A1 vášho zošita a chcete vložiť hypertextový odkaz na hárok 2, bunku B2 rovnakého zošita, môžete na to použiť vlastnosť Podadresa.
Nasledujúci kód ukazuje, ako to urobiť:
123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "'" & Sheet2.Name & "'! B2", TextToDisplay: = "Kliknutím sem prejdete na list2, bunku B2 bunky rovnaký pracovný zošit “Koniec pod |
Zobrazte všetky hypertextové odkazy v pracovnom hárku
Máte prístup k zbierke hypertextových odkazov a zobraziť všetky hypertextové odkazy vo svojom pracovnom hárku v priečinku Stredné okno v editore VBA. Najprv musíte stlačiť CTRL+G na klávesnici alebo prejdite na Zobraziť> Stredné okno v editore VBE, aby ste zobrazili prechodné okno.
Nasledujúci kód ukazuje, ako zobraziť hypertextové odkazy v hárku v prechodnom okne:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet ()Dim ws As worksheetNastaviť ws = ThisWorkbook.Sheets (1)Za každý lnk v ws.HyperlinksDebug.Print lnk.AddressDalsie lnkKoniec pod |
Výsledky sú zobrazené v prechodnom okne.
Zobrazte všetky hypertextové odkazy v zošite
Máte prístup k zbierke hypertextových odkazov, môžete prechádzať a zobrazovať všetky hypertextové odkazy vo svojom zošite v poli správ.
Nasledujúci kód ukazuje, ako to urobiť, a na to používa vnorenú slučku:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook ()Dim ws As worksheetZa každé ws v ActiveWorkbook.WorksheetsZa každý lnk v ws.HyperlinksMsgBox lnk.AddressDalsie lnkĎalšie wsKoniec pod |
Na vytváranie e -mailov používajte metódu FollowHyperlink
E -maily môžete vytvárať aj pomocou metódy FollowHyperlink.
Nasledujúci kód vám ukáže, ako vytvárať e -maily pomocou metódy FollowHyperlink vo VBA:
12345678 | Sub SendEmailUsingHyperlink ()Dim msgLink As StringmsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Ahoj" & "&" & "body =" & "Ako sa máš?"ActiveWorkbook.FollowHyperlink (msgLink)Koniec pod |
Výsledkom je:
Pridanie hypertextového odkazu na automatický tvar v programe Excel
Do automatického tvarovania v programe Excel môžete pridať hypertextový odkaz, aby sa používateľ po kliknutí na tvar dostal na adresu webovej stránky.
Nasledujúci kód vytvorí zaoblený obdĺžnik, pridá do neho text a pridá naň hypertextový odkaz:
12345678910111213 | SubaddingAHyperlinkToAShape ()Dim myShape As ShapeNastaviť myDocument = pracovné listy ("List1")Nastaviť myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)S myShape.TextFrame.Characters.Text = "Automatizovať Excel"Ukončiť sActiveSheet.Hyperlinks.Add Anchor: = myShape, Address: = "https://www.automateexcel.com/excel"Koniec pod |
Výsledkom je:
Vloženie vzorca hypertextového odkazu do bunky pomocou VBA
Povedzme, že máte názov príspevku v bunke A4 a odkaz na príspevok v bunke B4, ako je znázornené na obrázku nižšie.
Rýchle pripomenutie syntaxe vzorca hypertextového odkazu v pracovnom hárku je:
HYPERLINK (umiestnenie_odkazu, [názov_priateľa]
link_location - toto je odkaz na dokument, súbor, miesto v zošite alebo na online webe.
priateľské meno - (Voliteľné) - Text alebo číselná hodnota, ktorá sa zobrazí v bunke.
Do bunky C4 chcete pridať hypertextový odkaz s popisným textom na zobrazenie. Teraz zvyčajne zadáte do C4 vzorec = HYPERLINK (B4, A4), aby ste získali nasledujúce:
Namiesto toho môžete použiť VBA na dosiahnutie rovnakého výsledku a vložiť tento vzorec do bunky na hárku 1 s nasledujúcim kódom:
123 | Vedľajšia vložkaHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Range ("C4"). Formula = "= hyperlink (B4, A4)"Koniec pod |
Pridanie hypertextového odkazu na tlačidlo v programe Access
VBA vám tiež umožňuje pracovať s hypertextovými odkazmi v programe Access. Povedzme, že máme tlačidlo vo formulári, a keď používateľ klikne na toto tlačidlo, chceme, aby boli presmerovaní na webovú stránku. Jeden zo spôsobov, ako to môžete urobiť, je prostredníctvom metódy Application.FollowHyperlink.
Máme náš vzorový formulár s tlačidlom s názvom buttonOne, ktoré je uvedené nižšie.
Kód pre toto tlačidlo bude:
12345 | Súkromné tlačidlo SubOne_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")Koniec pod |
Vytvorenie hypertextového odkazu z výberu vo Worde
S hypertextovými odkazmi môžete pracovať aj vo Worde VBA.
Povedzme, že máme text Slovo , ktoré hovorí: „Kliknutím sem prejdete na webovú stránku Automate Excel“, ktorá je vybratá, ako je uvedené nižšie.
Ak chcete z tohto textu vytvoriť hypertextový odkaz pomocou jazyka VBA, môžete použiť nasledujúci kód:
123 | Súkromný čiastkový výber odbočiek doAHyperlink ()ActiveDocument.Hyperlinks.Add Anchor: = Selection.Range, Adresa: = "https://www.automateexcel.com/excel/", ScreenTip: = "Kliknite sem prosím", Cieľ: = Nové oknoKoniec pod |
Výsledkom je: