Ovaj VBA udžbenik pokriva različite načine rada s hipervezama u VBA -i.
VBA hiperveze
Pomoću VBA možete dodavati hiperveze, uklanjati hiperveze, stvarati e -poštu pomoću hiperveza i otvarati datoteke pomoću hiperveza u VBA.
Dodajte hipervezu s VBA
Metoda Hyperlinks.Add dodaje hipervezu ćeliji pomoću VBA.
Sljedeći kôd će dodati hipervezu u ćeliju A1:
123 | Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/"Kraj podm |
Rezultat je:
Dodavanje teksta na zaslon pomoću VBA
Možete dodati uredan tekst prilagođen korisniku za prikaz na svoju hipervezu s VBA. Ako ste koristili funkcionalnost radnog lista, umetnuli biste hipervezu, a zatim dodali tekst za prikaz u predviđenom dijaloškom okviru.
Donji kôd pokazuje kako dodati tekst za prikaz na svoju hipervezu pomoću VBA:
123 | PodtekstToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizirajte Excel"Kraj podm |
Rezultat je:
Dodavanje savjeta o zaslonu s VBA
Svojoj hipervezi možete dodati savjet zaslona koji će gledatelj vidjeti kada zadrži pokazivač miša iznad veze.
Donji kôd pokazuje kako dodati ScreenTip u svoju hipervezu pomoću VBA:
123 | PodzaslonTipForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizirajte Excel", ScreenTip: = "Ovo je veza za Automatiziranje Excela"Kraj podm |
Rezultat je:
Izbrišite hipervezu s VBA
Metoda Hyperlinks.Delete može se koristiti za brisanje hiperveze iz ćelije.
Sljedeći kôd će izbrisati hipervezu iz ćelije A1 i tekst u ćeliji.
Imajte na umu da samo brisanje hiperveze ne briše sam tekst, pa ako želite izbrisati tekst, morate koristiti i metodu Clear.
1234 | Sub DeleteHyperlinkinCell ()Raspon ("A1"). Hiperveze.BrisatiRaspon ("A1"). ČistoKraj podm |
Izbrišite sve hiperveze na radnom listu
Također možete izbrisati sve hiperveze na svom radnom listu pomoću metode Hyperlinks.Delete.
Sljedeći kôd izbrisat će sve hiperveze na prvom radnom listu u vašoj radnoj knjizi:
123 | Sub RemoveAllHyperlinksInASheet ()ThisWorkbook.Sheets (1) .Hyperlinks.BrisanjeKraj podm |
Slijedite hipervezu web stranice pomoću VBA
Sljedeći kôd omogućuje vam da otvorite adresu web stranice u novom prozoru preglednika pomoću metode FollowHyperlink u vašoj radnoj knjizi:
123 | Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Adresa: = "https://www.automateexcel.com/excel", Novi prozor: = IstinaKraj podm |
Slijedite hipervezu do mape na svom disku
Sljedeći kôd otvorit će mapu pod nazivom ExcelFiles na radnoj površini pomoću metode FollowHyperlink:
123 | Sub FollowHyperlinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Adresa: = "C: \ Desktop \ ExcelFiles"Kraj podm |
Slijedite hipervezu do datoteke na vašem disku
Sljedeći kôd otvorit će Excel datoteku pod nazivom WorkbookOne u mapi pod nazivom ExcelFiles na radnoj površini pomoću metode FollowHyperlink:
123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Adresa: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TrueKraj podm |
Idite na ćeliju na drugom listu u istoj radnoj knjizi
Možete dodati hipervezu ćeliji na jednom listu koji vas vodi na drugi list, u istoj radnoj knjizi s VBA -om. Recimo da se nalazite na Sheet1, ćeliji A1 vaše radne knjige i želite umetnuti hipervezu na Sheet2, ćeliju B2 iste radne knjige, za to možete koristiti svojstvo SubAddress.
Sljedeći kôd pokazuje kako to učiniti:
123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "'" & Sheet2.Name & "'! B2", TextToDisplay: = "Kliknite ovdje za odlazak na List2, ćeliju B2 ista radna knjižica "Kraj podm |
Prikažite sve hiperveze na radnom listu
Možete pristupiti zbirci hiperveza i prikazati sve hiperveze na svom radnom listu u Srednji prozor u VBA Editor -u. Prvo morate pritisnuti CTRL+G na tipkovnici ili idite na Pogled> Srednji prozor u VBE Editor -u za pregled srednjeg prozora.
Sljedeći kôd prikazuje kako pregledati hiperveze na svom radnom listu u srednjem prozoru:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet ()Zatamni kao radni listSet ws = ThisWorkbook.Sheets (1)Za svaki lnk U ws.HyperlinkoveIspravljanje ispisa lnk.AdresaSljedeća lnkKraj podm |
Rezultati su prikazani u srednjem prozoru.
Prikažite sve hiperveze u radnoj knjizi
Možete pristupiti zbirci hiperveza, pregledati i prikazati sve hiperveze u vašoj radnoj knjizi u okviru za poruku.
Sljedeći kôd pokazuje kako to učiniti i koristi ugniježđenu petlju kako bi to postigao:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook ()Zatamni kao radni listZa svaki ws u ActiveWorkbook.WorksheetsZa svaki lnk U ws.HyperlinkoveMsgBox lnk.AdresaSljedeća lnkSljedeći wsKraj podm |
Korištenje metode FollowHyperlink za stvaranje e -pošte
Također možete stvoriti e -poštu pomoću metode FollowHyperlink.
Donji kôd pokazat će vam kako stvoriti e -poštu pomoću metode FollowHyperlink u VBA -i:
12345678 | Sub SendEmailUsingHyperlink ()Zatamni msgLink kao nizmsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Pozdrav" & "&" & "body =" & "Kako ste?"ActiveWorkbook.FollowHyperlink (msgLink)Kraj podm |
Rezultat je:
Dodavanje hiperveze automatskom obliku u Excelu
Automatskom obliku u Excelu možete dodati hipervezu tako da, kada korisnik klikne na oblik, dođe do adrese web stranice.
Sljedeći kôd stvara zaobljeni pravokutnik, dodaje tekst pravokutniku i dodaje hipervezu pravokutniku:
12345678910111213 | Dodatno dodavanjeAHyperlinkToAShape ()Zatamnite myShape As ShapePostavi myDocument = Radni listovi ("List 1")Postavi myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)Uz myShape.TextFrame.Characters.Text = "Automatizirajte Excel"Završi sActiveSheet.Hyperlinks.Add Anchor: = myShape, Address: = "https://www.automateexcel.com/excel"Kraj podm |
Rezultat je:
Umetanje formule hiperveze u ćeliju pomoću VBA
Recimo da imate naslov posta u ćeliji A4 i vezu do posta u ćeliji B4 kao što je prikazano na donjoj slici.
Brzi podsjetnik na sintaksu formule hiperveze radnog lista je:
HYPERLINK (link_location, [friendly_name])
link_location - Ovo je veza na dokument, datoteku, mjesto u radnoj knjizi ili na web mjestu.
prijateljsko ime - (Izborno) - Tekstualna ili numerička vrijednost prikazana u ćeliji.
U ćeliju C4 želite dodati hipervezu s prijateljskim tekstom za prikaz. Sada biste obično unijeli formulu = HYPERLINK (B4, A4) u C4 kako biste dobili sljedeće:
Umjesto toga možete koristiti VBA za postizanje istog rezultata i umetnuti ovu formulu u ćeliju na Sheet1 sa sljedećim kodom:
123 | Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Raspon ("C4"). Formula = "= hiperveza (B4, A4)"Kraj podm |
Dodavanje hiperveze gumbu u programu Access
VBA vam omogućuje i rad s hipervezama u Accessu. Recimo da imamo gumb na obrascu i kada korisnik klikne na taj gumb želimo da ga preusmjere na web stranicu. Jedan od načina na koji to možete učiniti je metoda Application.FollowHyperlink.
Imamo naš obrazac uzorka s gumbom koji se zove buttonOne prikazano u nastavku.
Kôd za ovaj gumb bio bi:
12345 | Privatno dugme Sub: Jedan_Klik ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")Kraj podm |
Stvaranje hiperveze iz odabira u Wordu
Možete raditi i s hipervezama u Wordu VBA.
Recimo da imamo tekst u Riječ koji kaže "Kliknite ovdje da biste bili preusmjereni na automatiziranu web stranicu programa Excel", koji je odabran kao što je prikazano u nastavku.
Da biste ovaj tekst pretvorili u hipervezu pomoću VBA, možete upotrijebiti sljedeći kôd:
123 | Private Sub TurnASelectionIntoAHyperlink ()ActiveDocument.Hyperlinks.Add Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Kliknite ovdje molim", Cilj: = Novi prozorKraj podm |
Rezultat je: