VBA -hyperlinkit

Tämä VBA -opetusohjelma kattaa eri tapoja käsitellä hyperlinkkejä VBA: ssa.

VBA -hyperlinkit

VBA: n avulla voit lisätä hyperlinkkejä, poistaa hyperlinkkejä, luoda sähköpostiviestejä hyperlinkkien avulla ja avata tiedostoja käyttämällä hyperlinkkejä VBA: ssa.

Lisää hyperlinkki VBA: n avulla

Hyperlinkit.Add -menetelmä lisää hyperlinkin soluun VBA: ta käyttäen.

Seuraava koodi lisää hyperlinkin soluun A1:

123	Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range ("A1"), Osoite: = "https://www.automateexcel.com/excel/"End Sub

Tulos on:

Tekstin lisääminen näyttöön VBA: n avulla

Voit lisätä siistiä käyttäjäystävällistä tekstiä näytettäväksi hyperlinkkiisi VBA: n avulla. Jos käytät laskentataulukon toimintoa, lisäät hyperlinkin ja lisäät sitten tekstin, joka näytetään sen mukana toimitetussa valintaikkunassa.

Alla oleva koodi osoittaa, kuinka lisätä tekstiä näytettäväksi hyperlinkkiisi VBA: n avulla:

123	AlatekstiToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Osoite: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatisoi Excel"End Sub

Tulos on:

Näyttövinkin lisääminen VBA: n avulla

Voit lisätä hyperlinkkiisi ScreenTipin, jonka katsoja näkee, kun se vie hiiren linkin päälle.

Alla oleva koodi näyttää, kuinka voit lisätä näyttövinkin hyperlinkkiisi VBA: n avulla:

123	AlinäyttövinkkiForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Osoite: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatisoi Excel", ScreenTip: = "Tämä on linkki Automatisoi Excel"End Sub

Tulos on:

Hyperlinkin poistaminen VBA: n avulla

Hyperlinkit -poistomenetelmää voidaan käyttää hyperlinkin poistamiseen solusta.

Seuraava koodi poistaa hyperlinkin solusta A1 ja solun tekstin.

Huomaa, että vain hyperlinkin poistaminen ei poista itse tekstiä, joten jos haluat poistaa tekstin, sinun on käytettävä myös Tyhjennä -menetelmää.

1234	Sub Poista HyperlinkinCell ()Alue ("A1"). Hyperlinkit. PoistaAlue ("A1")End Sub

Poista kaikki laskentataulukon hyperlinkit

Voit myös poistaa kaikki laskentataulukon hyperlinkit Hyperlinkit.Delete -menetelmällä.

Seuraava koodi poistaa kaikki työkirjasi ensimmäisen laskentataulukon hyperlinkit:

123	Sub RemoveAllHyperlinksInASheet ()ThisWorkbook.Sheets (1) .Hyperlinkit.DeleteEnd Sub

Seuraa verkkosivuston hyperlinkkiä VBA: n avulla

Seuraavan koodin avulla voit avata verkkosivuston osoitteen uudessa ikkunassa selaimessasi käyttämällä työkirjasi FollowHyperlink -menetelmää:

123	Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Address: = "https://www.automateexcel.com/excel", NewWindow: = TrueEnd Sub

Seuraa hyperlinkkiä aseman kansioon

Seuraava koodi avaa ExcelFiles -kansion työpöydälle FollowHyperlink -menetelmällä:

123	Sub FollowHyperlinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles"End Sub

Seuraa hyperlinkkiä aseman tiedostoon

Seuraava koodi avaa ExcelBook -tiedoston nimeltä WorkbookOne työpöydän ExcelFiles -kansioon FollowHyperlink -menetelmällä:

123	Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TosiEnd Sub

Siirry saman työkirjan toisen taulukon soluun

Voit lisätä hyperlinkin yhden taulukon soluun, joka vie sinut toiseen taulukkoon, samaan työkirjaan VBA: n kanssa. Oletetaan, että olet työkirjasi taulukossa 1, solussa A1 ja haluat lisätä hyperlinkin saman työkirjan arkkiin 2, soluun B2. Voit tehdä tämän käyttämällä SubAddress -ominaisuutta.

Seuraava koodi näyttää kuinka tämä tehdään:

123	Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Osoite: = "", SubAddress: = "" "& Sheet2.Name &" '! B2 ", TextToDisplay: =" Siirry Sheet2: n soluun B2 napsauttamalla tätä sama työkirja "End Sub

Näytä kaikki hyperlinkit laskentataulukossa

Voit käyttää hyperlinkkikokoelmaa ja näyttää kaikki laskentataulukon hyperlinkit Väli -ikkuna VBA -editorissa. Sinun on ensin painettava CTRL+G näppäimistöllä tai siirry Näkymä> väliikkuna VBE -editorissa nähdäksesi väliikkunan.

Seuraava koodi näyttää, miten voit tarkastella laskentataulukon hyperlinkkejä väliikkunassa:

1234567891011

AlinäytösKaikkiHyperlinkitInWWorksheet ()Dim ws laskentataulukkonaAseta ws = ThisWorkbook.Sheets (1)Jokaiselle lnk In ws.HyperlinkitVirheenkorjaus Tulosta lnk. OsoiteSeuraava lnkEnd Sub

Tulokset näkyvät väliikkunassa.

Näytä kaikki hyperlinkit työkirjassa

Voit käyttää hyperlinkkien kokoelmaa, selata läpi ja näyttää kaikki työkirjasi hyperlinkit viestiruudussa.

Seuraava koodi näyttää kuinka tämä tehdään ja käyttää sisäkkäistä silmukkaa tämän saavuttamiseksi:

1234567891011

AlinäytösKaikkiHyperlinkitTyökirja ()Dim ws laskentataulukkonaJokaista ws ActiveWorkbook.WorksheetsJokaiselle lnk In ws.HyperlinkitMsgBox lnk. OsoiteSeuraava lnkSeuraava wsEnd Sub

Sähköpostien luominen FollowHyperlink -menetelmän avulla

Voit myös luoda sähköpostiviestejä käyttämällä FollowHyperlink -menetelmää.

Alla oleva koodi näyttää, kuinka voit luoda sähköpostiviestejä VBA: n FollowHyperlink -menetelmällä:

12345678

Sub SendEmailUsingHyperlink ()Himmennä msgLink merkkijononamsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Hei" & "&" & "body =" & "Miten voit?"ActiveWorkbook.FollowHyperlink (msgLink)End Sub

Tulos on:

Hyperlinkin lisääminen automaattiseen muotoon Excelissä

Voit lisätä hyperlinkin Excelin automaattiseen muotoon siten, että kun käyttäjä napsauttaa muotoa, hän siirtyy verkkosivuston osoitteeseen.

Seuraava koodi luo pyöristetyn suorakulmion, lisää tekstin suorakulmioon ja lisää hyperlinkin suorakulmioon:

12345678910111213

AlalisäysAHyperlinkToAShape ()Dim myShape as ShapeSet myDocument = Työsivut ("Sheet1")Aseta myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)MyShapen kanssa.TextFrame.Characters.Text = "Automatisoi Excel"LopetaActiveSheet.Hyperlinks.Add Anchor: = myShape, Address: = "https://www.automateexcel.com/excel"End Sub

Tulos on:

Hyperlinkki -kaavan lisääminen soluun VBA: ta käyttäen

Oletetaan, että viestin otsikko on solussa A4 ja viestilinkki solussa B4, kuten alla olevassa kuvassa näkyy.

Nopea muistutus laskentataulukon Hyperlink -kaavan syntaksista on:

HYPERLINK (linkin_sijainti, [ystävällinen_nimi])

linkin_sijainti - Tämä on linkki asiakirjaan, tiedostoon, paikkaan työkirjassa tai online -sivustossa.

ystävällinen nimi - (Valinnainen) - Solussa näkyvä teksti- tai numeerinen arvo.

Solussa C4 haluat lisätä hyperlinkin ystävällisellä tekstillä näytettäväksi, nyt kirjoitat yleensä kaavan = HYPERLINK (B4, A4) kohtaan C4 saadaksesi seuraavan:

Voit sen sijaan käyttää VBA: ta saman tuloksen saavuttamiseksi ja lisätä tämän kaavan taulukon 1 soluun seuraavalla koodilla:

123	Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Alue ("C4"). Kaava = "= hyperlinkki (B4, A4)"End Sub

Hyperlinkin lisääminen Accessin painikkeeseen

VBA: n avulla voit myös käyttää hyperlinkkejä Accessissa. Oletetaan, että lomakkeessa on painike ja kun käyttäjä napsauttaa tätä painiketta, haluamme, että hänet viedään verkkosivulle. Yksi tapa, jolla voit tehdä tämän, on Application.FollowHyperlink -menetelmä.

Meillä on esimerkkilomake, jonka alla on painike nimeltä buttonOne.

Tämän painikkeen koodi olisi:

12345

Yksityinen alapainikeOne_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")End Sub

Hyperlinkin luominen Word -valinnasta

Voit myös käyttää hyperlinkkejä Word VBA: ssa.
Oletetaan, että meillä on tekstiä Sana jossa lukee ”Napsauta tästä viedäksesi sinut Automatisoi Excel -verkkosivustoon”, joka on valittu alla olevan kuvan mukaisesti.

Voit muuttaa tämän tekstin hyperlinkiksi VBA: n avulla käyttämällä seuraavaa koodia:

123	Private Sub TurnASelectionIntoAHyperlink ()ActiveDocument.Hyperlinks.Add Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Click Here Please", Target: = NewWindowEnd Sub

Tulos on: