Šī VBA apmācība aptver dažādus veidus, kā strādāt ar hipersaitēm VBA.
VBA hipersaites
Izmantojot VBA, varat pievienot hipersaites, noņemt hipersaites, izveidot e -pastus, izmantojot hipersaites, un atvērt failus, izmantojot hipersaites VBA.
Pievienojiet hipersaiti ar VBA
Hipersaites. Pievienot metode pievieno hipersaiti šūnai, izmantojot VBA.
Šāds kods šūnai A1 pievienos hipersaiti:
123 | Sub AddHyperlinkToCell ()ActiveSheet.Hipersaites. Pievienot diapazonu ("A1"), adrese: = "https://www.automateexcel.com/excel/"Beigu apakš |
Rezultāts ir šāds:
Teksta pievienošana attēlošanai, izmantojot VBA
Izmantojot VBA, hipersaitei varat pievienot glītu, lietotājam draudzīgu tekstu. Ja izmantojāt darblapas funkcionalitāti, ievietojiet hipersaiti un pēc tam pievienojiet tekstu, kas tiks parādīts paredzētajā dialoglodziņā.
Zemāk redzamais kods parāda, kā pievienot tekstu, lai parādītu savu hipersaiti, izmantojot VBA:
123 | ApakštekstsToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Adrese: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizēt Excel"Beigu apakš |
Rezultāts ir šāds:
Ekrāna padoma pievienošana ar VBA
Hipersaitei varat pievienot ekrāna padomu, ko skatītājs redzēs, novietojot peles kursoru virs saites.
Zemāk redzamais kods parāda, kā hipersaitei pievienot ekrāna padomu, izmantojot VBA:
123 | Sub ScreenTipForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Adrese: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automatizēt Excel", ScreenTip: = "Šī ir saite uz Excel automatizāciju"Beigu apakš |
Rezultāts ir šāds:
Izdzēsiet hipersaiti, izmantojot VBA
Hipersaites.Delete metodi var izmantot, lai no šūnas izdzēstu hipersaiti.
Šis kods izdzēsīs hipersaiti no šūnas A1 un tekstu šūnā.
Ņemiet vērā, ka tikai hipersaites dzēšana neizdzēš pašu tekstu, tāpēc, ja vēlaties, lai teksts tiktu izdzēsts, jums jāizmanto arī dzēšanas metode.
1234 | Sub Delete HyperlinkinCell ()Diapazons ("A1"). Hipersaites. DzēstDiapazons ("A1"). SkaidrsBeigu apakš |
Izdzēsiet visas hipersaites darblapā
Varat arī izdzēst visas darblapas hipersaites, izmantojot metodi Hyperlinks.Delete.
Šis kods izdzēsīs visas hipersaites jūsu darbgrāmatas pirmajā darblapā:
123 | Sub RemoveAllHyperlinksInASheet ()Šī darba grāmata. Izklājlapas (1). Hipersaites. DzēstBeigu apakš |
Sekojiet vietnes hipersaitei, izmantojot VBA
Šis kods ļauj atvērt tīmekļa vietnes adresi jaunā pārlūkprogrammas logā, izmantojot darbgrāmatas metodi FollowHyperlink:
123 | Sub FollowHyperlinkForWebsite ()ActiveWorkbook.FollowHyperlink Address: = "https://www.automateexcel.com/excel", NewWindow: = TrueBeigu apakš |
Sekojiet hipersaitei uz diska mapi
Šis kods darbvirsmā atvērs mapi ar nosaukumu ExcelFiles, izmantojot metodi FollowHyperlink:
123 | Sub FollowHyperlinkForFolderOnDrive ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles"Beigu apakš |
Sekojiet hipersaitei uz failu jūsu diskā
Šis kods darbvirsmā mapē ar nosaukumu ExcelFiles atvērs Excel failu ar nosaukumu WorkbookOne, izmantojot metodi FollowHyperlink:
123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TrueBeigu apakš |
Dodieties uz šūnu tajā pašā darbgrāmatā citā lapā
Jūs varat pievienot hipersaiti vienas lapas šūnai, kas aizvedīs uz citu lapu, tajā pašā darbgrāmatā ar VBA. Pieņemsim, ka atrodaties darblapas 1. lapas A1 šūnā un vēlaties ievietot hipersaiti uz tās pašas darbgrāmatas 2. lapas 2. šūnu. Lai to izdarītu, varat izmantot rekvizītu SubAddress.
Šis kods parāda, kā to izdarīt:
123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "" "& Sheet2.Name &" '! B2 ", TextToDisplay: =" Noklikšķiniet šeit, lai pārietu uz Sheet2, B2 šūnu tā pati darba grāmata "Beigu apakš |
Parādiet visas hipersaites darblapā
Jūs varat piekļūt hipersaites kolekcijai un parādīt visas darblapas hipersaites Starpposma logs VBA redaktorā. Vispirms jānospiež CTRL+G uz tastatūras vai dodieties uz Skats> Vidējais logs VBE redaktorā, lai skatītu starpposma logu.
Šis kods parāda, kā skatīt darblapas hipersaites starpposma logā:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet ()Dim ws kā darblapaIestatīt ws = ThisWorkbook.Sheets (1)Par katru lnk In ws. HipersaitesAtkļūdot. Drukāt lnk. AdreseNākamais lnkBeigu apakš |
Rezultāti tiek parādīti vidējā logā.
Parādiet visas hipersaites darbgrāmatā
Jūs varat piekļūt hipersaites kolekcijai, lai cilnē caurskatītu un parādītu visas darbgrāmatas hipersaites ziņojumu lodziņā.
Šis kods parāda, kā to izdarīt, un šim nolūkam izmanto ligzdotu cilpu:
1234567891011 | ApakšizrādeVisasHipersaitesInTheWorkbook ()Dim ws kā darblapaPar katru ws ActiveWorkbook.WorksheetsPar katru lnk In ws. HipersaitesMsgBox lnk. AdreseNākamais lnkNākamais wsBeigu apakš |
Izmantojot e -pasta ziņojumu izveidošanas metodi FollowHyperlink
Varat arī izveidot e -pastus, izmantojot metodi FollowHyperlink.
Zemāk redzamais kods parādīs, kā izveidot e -pastus, izmantojot VBA sekošanas metodi:
12345678 | Sub SendEmailUsingHyperlink ()Izgaismojiet msgLink kā virknimsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Sveiki" & "&" & "body =" & "Kā iet?"ActiveWorkbook.FollowHyperlink (msgLink)Beigu apakš |
Rezultāts ir šāds:
Hipersaites pievienošana automātiskajai formai programmā Excel
Excel automātiskajai formai varat pievienot hipersaiti, lai, noklikšķinot uz formas, lietotājs tiktu novirzīts uz vietnes adresi.
Šis kods izveido noapaļotu taisnstūri, pievieno tekstu taisnstūrim un pievieno hipersaiti uz taisnstūri:
12345678910111213 | Sub AddingAHyperlinkToAShape ()Dim myShape As ShapeSet myDocument = Darblapas ("Sheet1")Iestatīt myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)Ar myShape.TextFrame.Characters.Text = "Automatizēt Excel"Beigt arActiveSheet.Hyperlinks.Add Anchor: = myShape, Address: = "https://www.automateexcel.com/excel"Beigu apakš |
Rezultāts ir šāds:
Hipersaites formulas ievietošana šūnā, izmantojot VBA
Pieņemsim, ka jums ir ziņas nosaukums šūnā A4 un ziņas saite šūnā B4, kā parādīts attēlā.
Ātrs atgādinājums par darblapas hipersaites formulas sintaksi ir šāds:
HYPERLINK (saites atrašanās vieta, [draudzīgs_nosaukums])
link_location - šī ir saite uz dokumentu, failu, vietu darbgrāmatā vai tiešsaistes vietnē.
draudzīgs_nosaukums - (Neobligāti) - tekstā vai skaitliskā vērtība, kas tiek parādīta šūnā.
Šūnā C4 vēlaties pievienot hipersaiti ar draudzīgu tekstu, lai parādītu, tagad parasti ievadiet formulu = HYPERLINK (B4, A4) C4, lai iegūtu sekojošo:
Tā vietā varat izmantot VBA, lai sasniegtu tādu pašu rezultātu, un ievietojiet šo formulu šūnā, 1. lapā ar šādu kodu:
123 | Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Diapazons ("C4"). Formula = "= hipersaite (B4, A4)"Beigu apakš |
Hipersaites pievienošana Access pogai
VBA ļauj strādāt arī ar hipersaitēm programmā Access. Pieņemsim, ka veidlapā ir poga un kad lietotājs noklikšķina uz šīs pogas, mēs vēlamies, lai viņš tiktu novirzīts uz vietni. Viens veids, kā to izdarīt, ir metode Application.FollowHyperlink.
Mums ir mūsu veidlapas paraugs ar pogu ar nosaukumu buttonOne, kas parādīta zemāk.
Šīs pogas kods būtu šāds:
12345 | Poga Privāta apakšnodaļa One_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")Beigu apakš |
Hipersaites izveide no atlases programmā Word
Varat arī strādāt ar hipersaitēm programmā Word VBA.
Pieņemsim, ka mums ir teksts Vārds kas saka “Noklikšķiniet šeit, lai tiktu novirzīts uz automatizēto Excel vietni”, kas ir atlasīts, kā parādīts zemāk.
Lai pārvērstu šo tekstu par hipersaiti, izmantojot VBA, varat izmantot šādu kodu:
123 | Private Sub TurnASelectionIntoAHyperlink ()ActiveDocument.Hipersaites.Add Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Click Here Please", Target: = NewWindowBeigu apakš |
Rezultāts ir šāds: