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:
