Ta vadnica VBA zajema različne načine dela s hiperpovezavami v VBA.
Hiperpovezave VBA
Z VBA lahko dodate hiperpovezave, odstranite hiperpovezave, ustvarite e -poštna sporočila s pomočjo hiperpovezav in odprete datoteke s pomočjo hiperpovezav v VBA.
Dodajte hiperpovezavo z VBA
Metoda Hyperlinks.Add doda hiperpovezavo v celico z uporabo VBA.
Naslednja koda bo dodala hiperpovezavo v celico A1:
| 123 | Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range ("A1"), Naslov: = "https://www.automateexcel.com/excel/"End Sub |
Rezultat je:
Dodajanje besedila v prikaz z VBA
V hiperpovezavo z VBA lahko dodate lepo uporabniku prijazno besedilo za prikaz. Če ste uporabili funkcionalnost delovnega lista, bi vstavili hiperpovezavo in nato v prikazanem pogovornem oknu dodali besedilo za prikaz.
Spodnja koda prikazuje, kako dodate besedilo za prikaz na svojo hiperpovezavo z uporabo VBA:
| 123 | Sub TextToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizirajte Excel"End Sub |
Rezultat je:
Dodajanje nasveta zaslona z VBA
Hiperpovezavi lahko dodate nasvet zaslona, ki ga bo gledalec videl, ko premakne miškin kazalec nad povezavo.
Spodnja koda prikazuje, kako dodati hiperpovezavo na vaš zaslon s pomočjo VBA:
| 123 | Sub ScreenTipForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automate Excel", ScreenTip: = "To je povezava za Automate Excel"End Sub |
Rezultat je:
Izbrišite hiperpovezavo z VBA
Metodo Hyperlinks.Delete lahko uporabite za brisanje hiperpovezave iz celice.
Naslednja koda bo izbrisala hiperpovezavo iz celice A1 in besedilo v celici.
Upoštevajte, da samo brisanje hiperpovezave ne izbriše samega besedila, zato morate, če želite izbrisati besedilo, uporabiti tudi metodo Počisti.
| 1234 | Sub DeleteHyperlinkinCell ()Obseg ("A1"). Hiperpovezave.IzbrišiDomet ("A1"). JasnoEnd Sub |
Izbrišite vse hiperpovezave na delovnem listu
Z metodo Hyperlinks.Delete lahko izbrišete tudi vse hiperpovezave na svojem delovnem listu.
Naslednja koda bo izbrisala vse hiperpovezave na prvem delovnem listu v vašem delovnem zvezku:
| 123 | Sub RemoveAllHyperlinksInASheet ()ThisWorkbook.Sheets (1) .Hyperlinks.IzbrišiEnd Sub |
Sledite hiperpovezavi spletnega mesta z uporabo VBA
Naslednja koda omogoča odpiranje naslova spletnega mesta v novem oknu brskalnika z uporabo metode FollowHyperlink v vašem delovnem zvezku:
| 123 | Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Naslov: = "https://www.automateexcel.com/excel", Novo okno: = TrueEnd Sub |
Sledite hiperpovezavi do mape na svojem pogonu
Naslednja koda bo odprla mapo z imenom ExcelFiles na namizju z uporabo metode FollowHyperlink:
| 123 | Sub FollowHyperlinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Naslov: = "C: \ Desktop \ ExcelFiles"End Sub |
Sledite hiperpovezavi do datoteke na disku
Naslednja koda bo odprla Excelovo datoteko z imenom WorkbookOne v mapi z imenom ExcelFiles na namizju z uporabo metode FollowHyperlink:
| 123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Naslov: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TrueEnd Sub |
Pojdite na celico na drugem listu v istem delovnem zvezku
Hiperpovezavo lahko dodate v celico na enem listu, ki vas popelje na drug list, v istem delovnem zvezku z VBA. Recimo, da ste na listu 1, celici A1 vašega delovnega zvezka in želite vstaviti hiperpovezavo do lista 2, celice B2 istega delovnega zvezka, za to lahko uporabite lastnost SubAddress.
Naslednja koda prikazuje, kako to storiti:
| 123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "'" & Sheet2.Name & "'! B2", TextToDisplay: = "Kliknite tukaj, da se pomaknete na List2, celica B2 v isti delovni zvezek "End Sub |
Prikažite vse hiperpovezave na delovnem listu
Dostopate lahko do zbirke hiperpovezav in prikažete vse hiperpovezave na svojem delovnem listu v Vmesno okno v urejevalniku VBA. Najprej morate pritisniti CTRL+G na tipkovnici ali pojdite na Pogled> Vmesno okno v urejevalniku VBE za ogled vmesnega okna.
Naslednja koda prikazuje, kako si ogledate hiperpovezave na svojem delovnem listu v vmesnem oknu:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet ()Zatemni kot delovni listSet ws = ThisWorkbook.Sheets (1)Za vsako lnk V w.HyperlinksOdpravljanje napak. Natisni lnk. NaslovNaslednji lnkEnd Sub |
Rezultati so prikazani v vmesnem oknu.
Prikažite vse hiperpovezave v delovnem zvezku
Dostopate lahko do zbirke hiperpovezav, pregledate in prikažete vse hiperpovezave v svojem delovnem zvezku v polju za sporočila.
Naslednja koda prikazuje, kako to storiti, in za to uporablja ugnezdeno zanko:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook ()Zatemni kot delovni listZa vsako ws v ActiveWorkbook.WorksheetsZa vsako lnk V w.HyperlinksMsgBox lnk.NaslovNaslednji lnkNaslednji wsEnd Sub |
Uporaba metode FollowHyperlink za ustvarjanje e -poštnih sporočil
E -poštna sporočila lahko ustvarite tudi z metodo FollowHyperlink.
Spodnja koda vam bo pokazala, kako ustvariti e -poštna sporočila z uporabo metode FollowHyperlink v VBA:
| 12345678 | Sub SendEmailUsingHyperlink ()Zatemni msgLink kot nizmsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Pozdravljeni" & "&" & "body =" & "Kako ste?"ActiveWorkbook.FollowHyperlink (msgLink)End Sub |
Rezultat je:
Dodajanje hiperpovezave samodejni obliki v Excelu
Samodejni obliki v Excelu lahko dodate hiperpovezavo, tako da uporabnik, ko klikne na obliko, preide na naslov spletnega mesta.
Naslednja koda ustvari zaokrožen pravokotnik, pravokotniku doda besedilo in pravokotniku doda hiperpovezavo:
| 12345678910111213 | Sub AddingAHyperlinkToAShape ()Zatemni mojo obliko kot oblikoSet myDocument = Delovni listi ("List1")Nastavi myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)Z myShape.TextFrame.Characters.Text = "Avtomatizirajte Excel"Končaj sActiveSheet.Hyperlinks.Add Anchor: = myShape, Naslov: = "https://www.automateexcel.com/excel"End Sub |
Rezultat je:
Vstavljanje formule hiperpovezave v celico z uporabo VBA
Recimo, da imate naslov objave v celici A4 in povezavo do objave v celici B4, kot je prikazano na spodnji sliki.
Hiter spomin na sintakso formule hiperpovezave na delovnem listu je:
HYPERLINK (povezava_lokacija, [prijazno_ime])
link_location - To je povezava do dokumenta, datoteke, mesta v delovnem zvezku ali na spletnem mestu.
prijazno_ime - (Neobvezno) - Besedilo ali številska vrednost, ki je prikazana v celici.
V celici C4 želite dodati hiperpovezavo s prijaznim besedilom za prikaz, zdaj bi običajno v C4 vnesli formulo = HYPERLINK (B4, A4), da dobite naslednje:
Namesto tega lahko uporabite VBA, da dosežete enak rezultat, in to formulo vstavite v celico na Sheet1 z naslednjo kodo:
| 123 | Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Range ("C4"). Formula = "= hiperpovezava (B4, A4)"End Sub |
Dodajanje hiperpovezave gumbu v Accessu
VBA vam omogoča tudi delo s hiperpovezavami v Accessu. Recimo, da imamo gumb na obrazcu in ko uporabnik klikne na ta gumb, želimo, da ga odprejo na spletno mesto. Eden od načinov, s katerimi lahko to storite, je metoda Application.FollowHyperlink.
Imamo vzorčni obrazec z gumbom, ki se imenuje spodnji.
Koda za ta gumb bi bila:
| 12345 | Zasebni gumb SubApplication.FollowHyperlink ("https://www.automateexcel.com/excel/")End Sub |
Ustvarjanje hiperpovezave iz izbora v Wordu
S hiperpovezavami lahko delate tudi v Wordu VBA.
Recimo, da imamo besedilo Beseda ki pravi: »Kliknite tukaj, da vas odprejo na avtomatizirano spletno mesto Excel«, ki je izbran, kot je prikazano spodaj.
Če želite to besedilo pretvoriti v hiperpovezavo z uporabo VBA, lahko uporabite naslednjo kodo:
| 123 | Private Sub TurnASelectionIntoAHyperlink ()ActiveDocument.Hyperlinks.Add Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Kliknite tukaj prosim", Target: = Novo oknoEnd Sub |
Rezultat je:
