Kui soovite Excelis mitu hüperlinki pakkides avada, vaadake seda artiklit. Siin tutvustame teile 3 käepärast meetodit. Igal neist on oma plussid ja miinused. Saate valida mis tahes vastavalt oma vajadustele.
Mõnel juhul võite paljudest hüperlinkidest koosneva Exceli faili vaatamisel soovida mitu hüperlinki pakkides avada. Kui avamiseks on vaja ainult kolm linki, võite kasutada allolevat 1. meetodit. Kui aga soovite kõik soovitud vahemike lingid pakkides avada, võite selle asemel kasutada meetodit 2. Muidugi võite mõnikord soovida avada kõik lingid, mis on hajutatud kogu töövihikus. Seejärel saate kasutada viimast võimalust.
1. meetod: avage hüperlingid käsitsi ükshaaval
Lahtris oleva hüperlingi käsitsi avamiseks võite lahtril otse klõpsata. Seega, kui avatavaid hüperlinke ei ole liiga palju, võite hüperlinkide ükshaaval avamiseks klõpsata lahtritel.
2. meetod: pakkige avatud hüperlingid valitud vahemikes
Kuid mõnikord soovite kõik valitud vahemike hüperlingid pakkides avada. Sel juhul saate tegelikult kasutada järgmist VBA-koodi.
- Kõigepealt käivitage praeguses Exceli failis VBA redaktor vastavalt "Kuidas Excelis VBA koodi käivitada".
- Seejärel sisestage järgmine kood moodulisse või projekti.
Sub BatchOpenHyperLinks_SelectedRanges()
Dim objSelectedRange As Excel.Range
Dim objHyperlink As Excel.Hyperlink
'Get selected ranges
Set objSelectedRange = Excel.Application.Selection
For Each objHyperlink In objSelectedRange.Hyperlinks
objHyperlink.Follow
Next
End Sub
- Pärast seda lisage see makro kiirpääsu tööriistaribale või lindile.
- Lõpuks saate valida soovitud vahemikud ja klõpsata makro nuppu.
- Korraga avatakse kõik valitud vahemike hüperlingid Interneti vaikebrauseris.
3. meetod: pakkides avage kõik töövihiku hüperlingid
Mõnikord võite soovida avada kõik töövihiku hüperlingid, olenemata sellest, millisel töölehel. Sellises olukorras saate selle asemel kasutada VBA-koodi.
- Esmalt sisestage järgmine kood VBA-redaktori moodulisse või projekti.
Sub BatchOpenHyperLinks_Workbook()
Dim objWorksheet As Excel.Worksheet
Dim objSelectedRange As Excel.Range
Dim objHyperlink As Excel.Hyperlink
'Process each worksheet
For Each objWorksheet In ThisWorkbook.Sheets
For Each objHyperlink In objWorksheet.Hyperlinks
objHyperlink.Follow
Next
Next
End Sub
- Seejärel vajutage selle makro käivitamiseks kohe nuppu F5.
- Kohe avatakse kõik igal töölehel olevad hüperlingid.
Parandage Exceli probleemid
Nagu Wordi dokumendid, on ka Exceli töövihikud väga haavatavad. See tähendab, et Exceli failid võivad olla rikutud mitme teguri tõttu, sealhulgas viirusnakkus, inimlikud vead ja Exceli kokkujooksmised ja nii edasi. Seetõttu peaksite ette valmistama võimsa Exceli parandustööriista, näiteks DataNumen Excel Repair, mis võib Exceli taastamine andmeid ilma higistamata.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom




