See VBA õpetus hõlmab erinevaid viise hüperlinkidega töötamiseks VBA -s.
VBA hüperlingid
VBA abil saate lisada hüperlinke, eemaldada hüperlinke, luua e -kirju hüperlinkide abil ja avada faile hüperlinkide abil VBA -s.
Lisage hüperlink VBA abil
Hyperlinks.Add meetod lisab VBA abil lahtrile hüperlingi.
Järgmine kood lisab lahtrisse A1 hüperlingi:
123 | Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range ("A1"), aadress: = "https://www.automateexcel.com/excel/"End Sub |
Tulemuseks on:
Teksti lisamine kuvale VBA abil
VBA abil saate oma hüperlingile kuvamiseks lisada korralikku kasutajasõbralikku teksti. Kui kasutasite töölehe funktsioone, sisestaksite hüperlingi ja seejärel lisaksite dialoogiboksis kuvatava teksti.
Allolev kood näitab, kuidas VBA abil oma hüperlingile kuvatavat teksti lisada:
123 | AlamtekstToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), aadress: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Exceli automatiseerimine"End Sub |
Tulemuseks on:
Ekraanivihje lisamine VBA abil
Saate oma hüperlingile lisada ekraanivihje, mida vaataja näeb, kui hõljutab kursorit lingi kohal.
Allolev kood näitab, kuidas VBA abil oma hüperlingile ekraaninippi lisada:
123 | Alamekraani näpunäide hüperlingi jaoks ()ActiveSheet.Hyperlinks.Add Range ("A1"), Aadress: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Exceli automatiseerimine", ScreenTip: = "See on link Exceli automatiseerimiseks"End Sub |
Tulemuseks on:
Kustutage hüperlink VBA abil
Hüperlinkide kustutamise meetodit saab kasutada lahtrist hüperlingi kustutamiseks.
Järgmine kood kustutab lahtrist A1 hüperlingi ja lahtris oleva teksti.
Pange tähele, et ainult hüperlingi kustutamine ei kustuta teksti ennast, seetõttu peate teksti kustutamise korral kasutama ka meetodit Kustuta.
1234 | Alam Kustuta HyperlinkinCell ()Vahemik ("A1"). Hüperlingid. KustutaVahemik ("A1"). SelgeEnd Sub |
Kustutage kõik töölehe hüperlingid
Samuti saate kustutada kõik töölehe hüperlingid, kasutades meetodit Hüperlingid. Kustuta.
Järgmine kood kustutab kõik hüperlingid teie töövihiku esimesel töölehel:
123 | Sub RemoveAllHyperlinksInASheet ()See töövihik. Lehed (1). Hüperlingid. KustutaEnd Sub |
Jälgige veebisaidi hüperlingi VBA abil
Järgmine kood võimaldab teil brauseri uues aknas veebisaidi aadressi avada, kasutades oma töövihikus meetodit FollowHyperlink:
123 | Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Address: = "https://www.automateexcel.com/excel", NewWindow: = TrueEnd Sub |
Järgige oma kettal oleva kausta hüperlingi
Järgmine kood avab töölaual kausta nimega ExcelFiles, kasutades meetodit FollowHyperlink:
123 | Sub FollowHyperlinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles"End Sub |
Järgige oma kettal olevale failile hüperlingi
Järgmine kood avab Exceli faili nimega WorkbookOne töölaua kaustas ExcelFiles, kasutades meetodit FollowHyperlink:
123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TõsiEnd Sub |
Minge sama töövihiku teise lehe lahtrisse
Saate lisada hüperlingi ühe lehe lahtrisse, mis viib teid teisele lehele, samas töövihikus koos VBA -ga. Oletame, et olete oma töövihiku lehel 1, lahtris A1 ja soovite lisada hüperlingi sama töövihiku lehele 2, lahtrisse B2, saate seda teha atribuudi SubAddress abil.
Järgmine kood näitab, kuidas seda teha:
123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "'" & Sheet2.Name & "'! B2", TextToDisplay: = "Vajuta siia, et minna lehele2, lahtrisse B2 sama töövihik "End Sub |
Kuva kõik töölehel olevad hüperlingid
Saate pääseda juurde hüperlinkide kogule ja kuvada kõik oma töölehel olevad hüperlingid Vaheaken VBA redaktoris. Kõigepealt peate vajutama CTRL+G klaviatuuril või avage Vaade> Vaheaken VBE redaktoris vaheakna vaatamiseks.
Järgmine kood näitab, kuidas vaadata vaheaknas oma töölehe hüperlinke:
1234567891011 | AlamnäitusAllTheHyperlinksInTheWorksheet ()Dim ws töölehenaSet ws = ThisWorkbook.Sheets (1)Iga lnk jaoks ws. HüperlingidSilumine. Prindi lnk. AadressJärgmine lnkEnd Sub |
Tulemused kuvatakse vaheaknas.
Kuva kõik hüperlingid töövihikus
Saate pääseda juurde hüperlinkide kogule, et vaadata ja kuvada sõnumikastis kõiki oma töövihiku hüperlinke.
Järgmine kood näitab, kuidas seda teha, ja kasutab selle saavutamiseks pesastatud silmust:
1234567891011 | AlamnäitusKõik hüperlingid töövihikus ()Dim ws töölehenaIga tööpäeva jaoks ActiveWorkbookis. TöölehedIga lnk jaoks ws. HüperlingidMsgBox lnk. AadressJärgmine lnkJärgmine wsEnd Sub |
E -kirjade loomiseks FollowHyperlinki meetodi kasutamine
Samuti saate e -kirju luua, kasutades meetodit FollowHyperlink.
Allolev kood näitab teile, kuidas luua e -kirju, kasutades VBA -s FollowHyperlink meetodit:
12345678 | Sub SendEmailUsingHyperlink ()Hämardage msgLink stringinamsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Tere" & "&" & "body =" & "Kuidas läheb?"ActiveWorkbook.FollowHyperlink (msgLink)End Sub |
Tulemuseks on:
Hüperlingi lisamine Exceli automaatkujule
Saate lisada Exceli automaatkujule hüperlingi, nii et kui kasutaja klõpsab kujundil, viiakse see veebisaidi aadressile.
Järgmine kood loob ümardatud ristküliku, lisab ristkülikule teksti ja lisab ristkülikule hüperlingi:
12345678910111213 | LisamineAHyperlinkToAShape ()Dim myShape As ShapeSet myDocument = Töölehed ("Sheet1")Määra myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)Koos MyShape'iga.TextFrame.Characters.Text = "Automatiseeri Excel"LõpetaActiveSheet.Hyperlinks.Adk Anchor: = myShape, Address: = "https://www.automateexcel.com/excel"End Sub |
Tulemuseks on:
Hüperlingi valemi sisestamine lahtrisse VBA abil
Oletame, et lahtris A4 on postituse pealkiri ja lahtris B4 postituse link, nagu on näidatud alloleval pildil.
Kiire meeldetuletus töölehe hüperlingi valemi süntaksi kohta on järgmine:
HYPERLINK (link_asukoht, [sõbralimi_nimi])
link_location - see on link dokumendile, failile, kohale töövihikus või veebisaidil.
sõbralik_nimi - (Valikuline) - lahtris kuvatav tekst või numbriline väärtus.
Lahtris C4 soovite kuvamiseks lisada hüperlingi sõbraliku tekstiga, nüüd tavaliselt sisestate C4 -s valemi = HYPERLINK (B4, A4), et saada järgmine:
Sama tulemuse saavutamiseks võite selle asemel kasutada VBA -d ja sisestada see valem lahtrisse Sheet1 järgmise koodiga:
123 | Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Vahemik ("C4"). Valem = "= hüperlink (B4, A4)"End Sub |
Hüperlingi lisamine Accessi nupule
VBA võimaldab teil Accessis töötada ka hüperlinkidega. Oletame, et meil on vormil nupp ja kui kasutaja sellel nupul klõpsab, soovime, et ta suunataks veebisaidile. Üks viis, kuidas seda teha, on rakenduse Application.FollowHyperlink kaudu.
Meil on näidisvorm koos nupuga, mida nimetatakse nupuks Üks allpool.
Selle nupu kood oleks järgmine:
12345 | Privaatne alamnuppOne_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")End Sub |
Hüperlingi loomine Wordi valikust
Hüperlinkidega saate töötada ka Word VBA -s.
Oletame, et meil on tekst sees Sõna mis ütleb: „Klõpsake siin, et viia teid Exceli automatiseerimise veebisaidile”, mis on valitud nagu allpool näidatud.
Selle teksti muutmiseks hüperlingiks VBA abil saate kasutada järgmist koodi:
123 | Private Sub TurnASelectionIntoAHyperlink ()ActiveDocument.Hyperlinks.Adch Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Click Here Please", Target: = NewWindowEnd Sub |
Tulemuseks on: