Ši VBA pamoka apima įvairius būdus, kaip dirbti su hipersaitomis VBA.
VBA hipersaitai
Naudodami VBA galite pridėti hipersaitus, pašalinti hipersaitus, kurti el. Laiškus naudodami hipersaitus ir atidaryti failus naudodami hipersaitus VBA.
Pridėkite hipersaitą su VBA
Naudojant hipersaitus. Pridėjimo metodas prideda hipersaitą į langelį naudojant VBA.
Šis kodas pridės hipersaitą į langelį A1:
| 123 | Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add diapazonas ("A1"), adresas: = "https://www.automateexcel.com/excel/"Pabaiga Sub |
Rezultatas yra toks:
Teksto pridėjimas prie ekrano naudojant VBA
Galite pridėti tvarkingą, patogų tekstą, kuris bus rodomas jūsų hipersaite su VBA. Jei naudojote darbalapio funkciją, įterptumėte hipersaitą ir pridėtumėte tekstą, kuris būtų rodomas pateiktame dialogo lange.
Žemiau pateiktas kodas parodo, kaip pridėti tekstą, kad būtų rodomas jūsų hipersaitas naudojant VBA:
| 123 | Papildomas tekstasActiveSheet.Hyperlinks.Add Diapazonas ("A1"), Adresas: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizuoti" Excel "Pabaiga Sub |
Rezultatas yra toks:
Ekrano patarimo pridėjimas naudojant VBA
Prie hipersaito galite pridėti ekrano patarimą, kurį žiūrovas pamatys užvedęs pelės žymeklį virš nuorodos.
Žemiau pateiktas kodas parodo, kaip pridėti ekrano patarimą prie hipersaito naudojant VBA:
| 123 | Sub ScreenTipForHyperlink ()ActiveSheet.Hyperlinks.Add Diapazonas ("A1"), Adresas: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizuoti" Excel ", ScreenTip: =" Tai yra "Excel" automatizavimo nuoroda "Pabaiga Sub |
Rezultatas yra toks:
Ištrinkite hipersaitą naudodami VBA
Hipersaitus.Delete metodas gali būti naudojamas norint pašalinti hipersaitą iš langelio.
Šis kodas ištrins hipersaitą iš langelio A1 ir tekstą langelyje.
Atminkite, kad tik ištrynus hipersaitą neištrinamas pats tekstas, todėl jei norite, kad tekstas būtų ištrintas, taip pat turite naudoti Valymo metodą.
| 1234 | Sub Delete HyperlinkinCell ()Diapazonas („A1“). Hipersaitai. IštrintiDiapazonas („A1“)Pabaiga Sub |
Ištrinkite visas darbalapio hipersaitus
Taip pat galite ištrinti visas darbalapio hipersaitus naudodami hipersaitus. Ištrinti metodą.
Šis kodas ištrins visas hipersaitus pirmame darbaknygės darbalapyje:
| 123 | Sub RemoveAllHyperlinksInASheet ()ThisWorkbook.Sheets (1). Hipersaitai. IštrintiPabaiga Sub |
Sekite svetainės hipersaitą naudodami VBA
Šis kodas leidžia atidaryti svetainės adresą naujame naršyklės lange naudojant „FollowHyperlink“ metodą savo darbaknygėje:
| 123 | Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Address: = "https://www.automateexcel.com/excel", NewWindow: = TiesaPabaiga Sub |
Sekite hipersaitą į aplanką savo diske
Šis kodas atvers aplanką „ExcelFiles“ darbalaukyje, naudojant „FollowHyperlink“ metodą:
| 123 | Sub FollowHyperlinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles"Pabaiga Sub |
Sekite hipersaitą į failą savo diske
Šis kodas atidarys „Excel“ failą pavadinimu „WorkbookOne“ aplanke „ExcelFiles“ darbalaukyje, naudojant „FollowHyperlink“ metodą:
| 123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TiesaPabaiga Sub |
Eikite į langelį kitame tos pačios darbaknygės lape
Toje pačioje darbaknygėje su VBA galite pridėti hipersaitą į vieno lapo langelį, perkeliantį į kitą lapą. Tarkime, kad esate darbaknygės 1 lape, A1 langelyje ir norite įterpti hipersaitą į tos pačios darbaknygės 2 lapo B2 langelį, tam galite naudoti ypatybę SubAddress.
Šis kodas parodo, kaip tai padaryti:
| 123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "" "& Sheet2.Name &" '! B2 ", TextToDisplay: =" Spustelėkite čia, jei norite pereiti į Sheet2, B2 langelį ta pati darbo knyga "Pabaiga Sub |
Rodyti visas hipersaitus darbalapyje
Galite pasiekti hipersaitų rinkinį ir rodyti visas hipersaitus savo darbalapyje Tarpinis langas VBA redaktoriuje. Pirmiausia turite paspausti CTRL+G klaviatūroje arba eikite į Vaizdas> Tarpinis langas VBE redaktoriuje, kad pamatytumėte tarpinį langą.
Šis kodas parodo, kaip peržiūrėti darbalapio hipersaitus tarpiniame lange:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet ()Dim ws kaip darbalapisNustatyti ws = ThisWorkbook.Sheets (1)Už kiekvieną lnk In ws. HipersaitaiDerinimas. Spausdinti lnk. AdresasKitas lnkPabaiga Sub |
Rezultatai rodomi tarpiniame lange.
Rodyti visas hipersaitus darbo knygoje
Galite pasiekti hipersaitų rinkinį, kad galėtumėte peržiūrėti ir rodyti visas savo darbaknygės hipersaitus pranešimų laukelyje.
Šis kodas parodo, kaip tai padaryti, ir tam naudoja įdėtą kilpą:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook ()Dim ws kaip darbalapisUž kiekvieną ws ActiveWorkbook.WorksheetsUž kiekvieną lnk In ws. HipersaitaiMsgBox lnk. AdresasKitas lnkKitas wsPabaiga Sub |
El. Laiškų kūrimui naudojant „FollowHyperlink“ metodą
Taip pat galite kurti el. Laiškus naudodami „FollowHyperlink“ metodą.
Žemiau pateiktas kodas parodys, kaip sukurti el. Laiškus naudojant „FollowHyperlink“ metodą VBA:
| 12345678 | Sub SendEmailUsingHyperlink ()Pritemdyti msgLink kaip eilutęmsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Sveiki" & "&" & "body =" & "Kaip sekasi?"ActiveWorkbook.FollowHyperlink (msgLink)Pabaiga Sub |
Rezultatas yra toks:
„Hyperlink“ pridėjimas prie „AutoShape“ programoje „Excel“
Galite pridėti hipersaitą prie automatinio formavimo programoje „Excel“, kad vartotojas, spustelėjęs formą, patektų į svetainės adresą.
Šis kodas sukuria suapvalintą stačiakampį, prideda tekstą prie stačiakampio ir prideda hipersaitą prie stačiakampio:
| 12345678910111213 | Sub AddAHyperlinkToAShape ()Dim myShape As ShapeNustatyti mano dokumentą = darbalapiai („Sheet1“)Nustatykite myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)Su myShape.TextFrame.Characters.Text = "Automatizuoti" Excel "Pabaiga suActiveSheet.Hyperlinks.Add Inchor: = myShape, Address: = "https://www.automateexcel.com/excel"Pabaiga Sub |
Rezultatas yra toks:
Hipersaito formulės įterpimas į langelį naudojant VBA
Tarkime, kad įrašo pavadinimas yra langelyje A4 ir įrašo nuoroda langelyje B4, kaip parodyta paveikslėlyje žemiau.
Greitas darbalapio hipersaito formulės sintaksės priminimas:
HYPERLINK (nuorodos_ vieta, [draugiškas_vardas])
link_location - tai nuoroda į dokumentą, failą, vietą darbaknygėje ar internetinėje svetainėje.
draugiškas vardas - (Neprivaloma) - langelyje rodoma tekstinė arba skaitinė reikšmė.
Langelyje C4 norite pridėti hipersaitą su draugišku tekstu, kurį norite rodyti, dabar paprastai C4 įveskite formulę = HYPERLINK (B4, A4), kad gautumėte:
Vietoj to galite naudoti VBA, kad pasiektumėte tą patį rezultatą, ir įterpkite šią formulę į 1 lapo langelį su šiuo kodu:
| 123 | Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Diapazonas ("C4"). Formulė = "= hipersaitas (B4, A4)"Pabaiga Sub |
Hipersaito pridėjimas prie „Access“ mygtuko
VBA taip pat leidžia dirbti su hipersaitais „Access“. Tarkime, kad turime mygtuką formoje ir kai vartotojas spustelėja tą mygtuką, norime, kad jis būtų nukreiptas į svetainę. Vienas iš būdų, kaip tai padaryti, yra „Application.FollowHyperlink“ metodas.
Turime pavyzdinę formą su mygtuku, pavadinimu buttonOne, parodyta žemiau.
Šio mygtuko kodas būtų toks:
| 12345 | Privatus antrinis mygtukasOne_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")Pabaiga Sub |
Hipersaito kūrimas iš pasirinktos programos „Word“
Taip pat galite dirbti su hipersaitomis „Word VBA“.
Tarkime, kad turime tekstą Žodis sakoma: „Spustelėkite čia, kad būtumėte nukreipti į„ Automatizuoti „Excel“ svetainę “, kuri pasirinkta, kaip parodyta žemiau.
Norėdami paversti šį tekstą hipersaitu naudodami VBA, galite naudoti šį kodą:
| 123 | Asmeninis posūkio posūkisActiveDocument.Hyperlinks.Add Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Click here Please", Target: = NewWindowPabaiga Sub |
Rezultatas yra toks:
