3 paprasti būdai atidaryti kelis hipersaitus „Excel“.

Jei norite paketu atidaryti kelis hipersaitus programoje „Excel“, galite peržiūrėti šį straipsnį. Čia mes jums pristatysime 3 patogius būdus. Kiekvienas iš jų turi savo pliusų ir minusų. Galite pasirinkti bet kurį pagal savo poreikius.

Kai kuriais atvejais, kai peržiūrite „Excel“ failą, kurį sudaro daug hipersaitų, galbūt norėsite atidaryti kelis hipersaitus. Jei reikia atidaryti tik tris nuorodas, galite tiesiog naudoti toliau pateiktą 1 metodą. Tačiau, jei norite atidaryti visas norimų diapazonų nuorodas, galite naudoti 2 metodą. Žinoma, kartais galbūt norėsite atidaryti visas nuorodas, išsibarsčiusias visoje darbaknygėje. Tada galite naudoti paskutinį būdą.

1 būdas: rankiniu būdu atidarykite hipersaitus po vieną

Norėdami rankiniu būdu atidaryti hipersaitą langelyje, galite tiesiogiai spustelėti langelį. Taigi, jei nėra per daug hipersaitų, kuriuos reikia atidaryti, galite spustelėti langelius, kad atidarytumėte nuorodas po vieną.

2 būdas: sugrupuokite atidarytus hipersaitus pasirinktuose diapazonuose

Tačiau kartais norite atidaryti visus pasirinktų diapazonų hipersaitus. Tokiu atveju iš tikrųjų galite naudoti šį VBA kodą.

1. Pirmiausia dabartiniame „Excel“ faile suaktyvinkite VBA redaktorių pagal „Kaip paleisti VBA kodą „Excel“.".
2. Tada į modulį arba projektą įdėkite šį kodą.

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

3. Po to pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos arba juostos.
4. Galiausiai galite pasirinkti norimus diapazonus ir spustelėti makrokomandos mygtuką.
5. Iš karto visi pasirinktų diapazonų hipersaitai bus atidaryti numatytojoje interneto naršyklėje.

3 būdas: paketiniu būdu atidarykite visus darbaknygės hipersaitus

Kartais galite atidaryti visus darbaknygės hipersaitus, nesvarbu, kuriame darbalapyje. Tokiu atveju galite naudoti VBA kodą.

1. Iš pradžių VBA redaktoriuje į modulį ar projektą įdėkite šį kodą.

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

2. Tada paspauskite „F5“, kad paleistumėte šią makrokomandą dabar.
3. Iš karto bus atidaryti visi hipersaitai kiekviename darbalapyje.

Ištaisykite „Excel“ problemas

Kaip ir „Word“ dokumentai, „Excel“ darbaknygės yra labai pažeidžiamos. Tai reiškia, kad „Excel“ failai gali būti sugadinti dėl daugelio veiksnių, įskaitant virusų infekciją, žmogaus klaidas ir „Excel“ gedimus ir pan. Taigi turėtumėte paruošti galingą „Excel“ taisymo įrankį, pvz DataNumen Excel Repair, kuri gali atkurti Excel duomenis neišmušdamas prakaito.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com