Ez a VBA bemutató a hiperhivatkozások VBA -ban való különböző kezelési módjait ismerteti.
VBA hiperhivatkozások
A VBA segítségével hiperhivatkozásokat adhat hozzá, eltávolíthat hiperhivatkozásokat, e -maileket hozhat létre hiperhivatkozások segítségével, és megnyithat fájlokat hiperhivatkozások segítségével a VBA -ban.
Hiperhivatkozás hozzáadása VBA -val
A Hyperlinks.Add Method hiperhivatkozást ad a cellához VBA használatával.
A következő kód hiperhivatkozást ad hozzá az A1 cellához:
123 | Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range ("A1"), Cím: = "https://www.automateexcel.com/excel/"End Sub |
Az eredmény:
Szöveg hozzáadása a megjelenítéshez a VBA segítségével
Szép, felhasználóbarát szöveget adhat hozzá a hiperhivatkozáshoz a VBA segítségével. Ha a munkalap funkciót használta, beillesztett egy hiperhivatkozást, majd hozzáadott szöveget a megjelenített párbeszédpanelen.
Az alábbi kód bemutatja, hogyan adhat hozzá szöveget a hiperhivatkozáshoz a VBA használatával:
123 | Sub TextToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Cím: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Excel automatizálása"End Sub |
Az eredmény:
Képernyőtipp hozzáadása VBA -val
Képernyőtippet adhat a hiperhivatkozáshoz, amelyet a megtekintő látni fog, amikor a hivatkozás fölé viszi az egérmutatót.
Az alábbi kód bemutatja, hogyan adhat hozzá képernyőtippet a hiperhivatkozáshoz a VBA használatával:
123 | AlképernyőTippForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Cím: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Excel automatizálása", ScreenTip: = "Ez a link az Excel automatizálásához"End Sub |
Az eredmény:
Hiperhivatkozás törlése a VBA segítségével
A hiperhivatkozások.Delete metódusa használható egy hiperhivatkozás törlésére egy cellából.
A következő kód törli a hiperhivatkozást az A1 cellából és a cella szövegét.
Ne feledje, hogy a hiperhivatkozás törlése önmagában nem törli a szöveget, ezért ha törölni szeretné a szöveget, akkor a Törlés módszert is használnia kell.
1234 | Sub Delete HyperlinkinCell ()Tartomány ("A1"). Hiperhivatkozások. TörlésTartomány ("A1")End Sub |
Törölje az összes hivatkozást a munkalapon
Törölheti a munkalapon található összes hivatkozást a Hyperlinks.Delete módszerrel is.
A következő kód törli az összes hiperhivatkozást a munkafüzet első munkalapján:
123 | Sub RemoveAllHyperlinksInASheet ()ThisWorkbook.Sheets (1). Hyperlinks.DeleteEnd Sub |
Webhely hiperhivatkozás követése a VBA használatával
A következő kód lehetővé teszi egy webhely címének megnyitását a böngésző új ablakában a FollowHyperlink módszerrel a munkafüzetben:
123 | Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Address: = "https://www.automateexcel.com/excel", NewWindow: = IgazEnd Sub |
Kövesse a hiperhivatkozást a meghajtón lévő mappához
A következő kód megnyitja az ExcelFiles nevű mappát az asztalon a FollowHyperlink módszerrel:
123 | Sub FollowHyperlinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles"End Sub |
Kövesse a meghajtón található fájlra mutató hivatkozást
A következő kód megnyitja a WorkbookOne nevű Excel -fájlt az ExcelFiles nevű mappában az asztalon a FollowHyperlink módszerrel:
123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = IgazEnd Sub |
Ugrás a cellához ugyanazon munkafüzet másik lapján
Hiperhivatkozást adhat hozzá egy lapon lévő cellához, amely egy másik lapra visz, ugyanabban a munkafüzetben a VBA segítségével. Tegyük fel, hogy Ön a munkafüzet 1. lapján, A1 cellájában tartózkodik, és hiperhivatkozást szeretne beszúrni ugyanazon munkafüzet 2. lapjára, B2 cellájára. Ehhez használja a SubAddress tulajdonságot.
A következő kód bemutatja, hogyan kell ezt megtenni:
123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "" "& Sheet2.Name &" '! B2 ", TextToDisplay: =" Kattintson ide a 2. lapon található B2 -es cella megnyitásához ugyanaz a munkafüzet "End Sub |
Az összes hiperhivatkozás megjelenítése egy munkalapon
Hozzáférhet a hiperhivatkozások gyűjteményéhez, és megjelenítheti a munkalapon található összes hivatkozást a Középső ablak a VBA szerkesztőben. Először meg kell nyomnia CTRL+G a billentyűzeten, vagy lépjen a Nézet> Középső ablak a VBE szerkesztőben a köztes ablak megtekintéséhez.
A következő kód bemutatja, hogyan tekintheti meg a munkalap hiperhivatkozásait a köztes ablakban:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet ()Dim ws munkalapkéntSet ws = ThisWorkbook.Sheets (1)Minden lnk In ws.HiperhivatkozásokHibakeresés. Nyomtatás lnk. CímKövetkező lnkEnd Sub |
Az eredmények a köztes ablakban láthatók.
Az összes hiperhivatkozás megjelenítése egy munkafüzetben
Hozzáférhet a hiperhivatkozások gyűjteményéhez, hogy a munkafüzet összes hiperhivatkozását ciklusban és üzenetmezőben jelenítse meg.
A következő kód bemutatja, hogyan kell ezt megtenni, és ennek érdekében beágyazott hurkot használ:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook ()Dim ws munkalapkéntMinden egyes hétre az ActiveWorkbook.WorksheetsMinden lnk In ws.HiperhivatkozásokMsgBox lnk.CímKövetkező lnkKövetkező wsEnd Sub |
A FollowHyperlink módszer használata e -mailek létrehozásához
E -maileket a FollowHyperlink módszerrel is létrehozhat.
Az alábbi kód megmutatja, hogyan hozhat létre e -maileket a VBA FollowHyperlink módszerével:
12345678 | Sub SendEmailUsingHyperlink ()Dim msgLink karakterlánckéntmsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Hello" & "&" & "body =" & "Hogy vagy?"ActiveWorkbook.FollowHyperlink (msgLink)End Sub |
Az eredmény:
Hiperhivatkozás hozzáadása az AutoShape -hez az Excelben
Hozzáadhat egy hiperhivatkozást az Excel automatikus alakzatához, hogy amikor a felhasználó rákattint az alakzatra, egy webhely címére kerül.
A következő kód kerekített téglalapot hoz létre, hozzáadja a szöveget a téglalaphoz, és hiperhivatkozást ad hozzá a téglalaphoz:
12345678910111213 | Al hozzáadásaAHyperlinkToAShape ()Dim myShape As ShapeSet myDocument = Munkalapok ("Sheet1")Állítsa be a myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)A myShape segítségével.TextFrame.Characters.Text = "Excel automatizálása"Vége ezzelActiveSheet.Hyperlinks.Add Anchor: = myShape, Address: = "https://www.automateexcel.com/excel"End Sub |
Az eredmény:
A hiperhivatkozás képlet beszúrása egy cellába VBA használatával
Tegyük fel, hogy van egy bejegyzés címe az A4 -es cellában, és egy bejegyzés link a B4 -es cellában, amint az az alábbi képen látható.
A munkalap Hyperlink képletének szintaxisa gyors emlékeztető:
HYPERLINK (link_hely, [barátságos_név])
link_location - Ez a hivatkozás a dokumentumra, fájlra, helyre a munkafüzetben vagy az online webhelyen.
barátságos név - (Választható) - A cellában megjelenített szöveg vagy számérték.
A C4 cellában hozzá kell adni a hiperhivatkozást egy barátságos szöveggel a megjelenítéshez, most általában a = HYPERLINK (B4, A4) képletet írja be a C4 -be, hogy a következőt kapja:
Ehelyett használhatja a VBA -t ugyanazon eredmény eléréséhez, és beszúrhatja ezt a képletet a cellába, az 1. lapon a következő kóddal:
123 | Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Tartomány ("C4"). Képlet = "= hiperhivatkozás (B4, A4)"End Sub |
Hiperhivatkozás hozzáadása az Access egyik gombjához
A VBA lehetővé teszi, hogy az Accessben hiperhivatkozásokkal is dolgozzon. Tegyük fel, hogy van egy gombunk az űrlapon, és amikor a felhasználó rákattint erre a gombra, azt szeretnénk, ha egy webhelyre kerülnének. Ennek egyik módja az Application.FollowHyperlink módszer.
Megvan a mintaűrlapunk a buttonOne nevű gombbal.
Ennek a gombnak a kódja a következő lenne:
12345 | Privát al gombOne_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")End Sub |
Hiperhivatkozás létrehozása a Word kiválasztásából
A Word VBA -ban hiperhivatkozásokkal is dolgozhat.
Tegyük fel, hogy szöveg van benne Szó amely azt mondja: „Kattintson ide, hogy az Excel automatizálási webhelyére kerüljön”, amely az alábbiak szerint van kiválasztva.
Ha ezt a szöveget hiperhivatkozássá szeretné alakítani a VBA használatával, akkor használja a következő kódot:
123 | Private Sub TurnASelectionIntoAHyperlink ()ActiveDocument.Hyperlinks.Add Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Click Here Please", Target: = NewWindowEnd Sub |
Az eredmény: