Om du vill gruppera flera hyperlänkar i Excel kan du hänvisa till den här artikeln. Här presenterar vi dig tre praktiska metoder. Var och en av dem har sina för- och nackdelar. Du kan välja vilken som helst enligt dina behov.
I vissa fall, när du tittar på en Excel-fil som består av många hyperlänkar, kanske du vill gruppera flera hyperlänkar. Om det bara finns tre eller så länkar som kan öppnas kan du bara använda metod 1 nedan. Ändå, om du vill gruppera alla länkar i dina önskade intervall kan du använda metod 2 istället. Naturligtvis ibland kanske du vill gruppera alla länkar utspridda över hela arbetsboken. Sedan kan du använda sista vägen.
Metod 1: Öppna hyperlänkar manuellt en efter en
För att öppna en hyperlänk i en cell manuellt kan du klicka direkt på cellen. Därför, om det inte finns för många hyperlänkar som kan öppnas, kan du klicka på cellerna för att öppna hyperlänkarna en efter en.
Metod 2: Gruppöppna hyperlänkar i utvalda områden
Ändå vill du ibland gruppera alla hyperlänkar i de valda intervallen. I det här fallet kan du faktiskt använda följande VBA-kod.
- Först och främst, utlösa VBA-redigeraren i den aktuella Excel-filen enligt “Så här kör du VBA-kod i din Excel".
- Lägg sedan in följande kod i en modul eller ett projekt.
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
- Därefter lägger du till detta makro i snabbåtkomstverktygsfältet eller menyfliksområdet.
- Slutligen kan du välja önskade intervall och klicka på makroknappen.
- På en gång kommer alla hyperlänkar i de valda intervallen att öppnas i standardwebbläsaren.
Metod 3: Gruppera alla hyperlänkar i en arbetsbok
Ibland kanske du vill öppna alla hyperlänkar i en arbetsbok, oavsett i vilket kalkylblad. I den här situationen kan du istället använda VBA-koden.
- Först lägger du in följande kod i en modul eller ett projekt i VBA-redigeraren.
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
- Tryck sedan på “F5” för att köra detta makro just nu.
- Omedelbart kommer alla hyperlänkar i varje kalkylblad att öppnas.
Reparera Excel-problem
Precis som Word-dokument är Excel-arbetsböcker mycket sårbara. Det vill säga Excel-filer kan vara korrupta för flera faktorer, inklusive virusinfektion, mänskliga fel och Excel-kraschar och så vidare. Därför bör du förbereda ett kraftfullt Excel-fixverktyg, till exempel DataNumen Excel Repair, som kan återställa Excel data utan att svettas.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive mdf-återställning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com




