3 snadné způsoby, jak dávkově otevřít více hypertextových odkazů v aplikaci Excel

Chcete-li v aplikaci Excel hromadně otevřít více hypertextových odkazů, můžete si přečíst tento článek. Zde vám představíme 3 užitečné metody. Každý z nich má své klady a zápory. Můžete si vybrat libovolné podle svých potřeb.

V některých případech můžete při prohlížení souboru aplikace Excel, který se skládá ze spousty hypertextových odkazů, chtít hromadně otevřít více hypertextových odkazů. Pokud je třeba otevřít pouze tři odkazy, můžete použít pouze metodu 1 níže. Přesto, pokud chcete hromadně otevřít všechny odkazy v požadovaných rozsazích, můžete místo toho použít metodu 2. Samozřejmě někdy budete chtít dávkové otevření všech odkazů roztroušených po celém sešitu. Potom můžete použít poslední způsob.

Metoda 1: Ruční otevření hypertextových odkazů jeden po druhém

Chcete-li otevřít hypertextový odkaz v buňce ručně, můžete přímo kliknout na buňku. Pokud tedy není příliš mnoho hypertextových odkazů k otevření, můžete kliknout na buňky a otevřít hypertextové odkazy jeden po druhém.

Metoda 2: Dávkové otevření hypertextových odkazů ve vybraných rozsazích

Přesto si občas přejete dávkové otevření všech hypertextových odkazů ve vybraných rozsazích. V tomto případě můžete skutečně využít následující kód VBA.

1. Nejprve spusťte editor VBA v aktuálním souboru aplikace Excel podle „Jak spustit kód VBA v aplikaci Excel".
2. Poté vložte následující kód do modulu nebo projektu.

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. Poté přidejte toto makro na panel nástrojů Rychlý přístup nebo na pás karet.
4. Nakonec můžete vybrat požadované rozsahy a kliknout na tlačítko makra.
5. Najednou se všechny hypertextové odkazy ve vybraných rozsazích otevřou ve výchozím internetovém prohlížeči.

Metoda 3: Dávkové otevření všech hypertextových odkazů v sešitu

Někdy můžete chtít otevřít všechny hypertextové odkazy v sešitu, bez ohledu na to, ve kterém listu. V této situaci můžete místo toho použít kód VBA.

1. Nejprve vložte následující kód do modulu nebo projektu v editoru VBA.

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. Poté stisknutím klávesy „F5“ spusťte toto makro právě teď.
3. Okamžitě se otevřou všechny hypertextové odkazy v každém listu.

Opravte problémy s Excelem

Stejně jako dokumenty Word jsou sešity aplikace Excel velmi zranitelné. To znamená, že soubory aplikace Excel mohou být poškozeny z různých důvodů, včetně virové infekce, lidských chyb a selhání aplikace Excel atd. Proto byste měli připravit výkonný nástroj pro opravu aplikace Excel, například DataNumen Excel Repair, které mohou obnovit Excel data bez potu.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com