3 metode za stvaranje popisa hiperveza na sve radne listove u Excel radnoj knjizi

Kada Excel radna knjiga ima mnogo radnih listova, da biste im brzo pristupili, možda ćete htjeti stvoriti popis hiperveza na sve radne listove. U ovom ćemo članku s vama podijeliti 3 metode.

Ako imate Excel radnu knjigu koja sadrži veliku količinu radnih listova, možda će vam biti problematično locirati i pristupiti željenom radnom listu. U ovom slučaju možete stvoriti popis hiperveza na sve radne listove, što vam može omogućiti skok na određeni radni list jednostavnim klikom na hipervezu. Prilično je zgodno. Stoga ćemo ovdje predstaviti 3 načina za izradu takvog popisa.

Metoda 1: Ručno stvaranje

1. Za početak, otvorite određenu Excel radnu knjigu.
2. Zatim umetnite novi list prije prvog radnog lista.
3. Zatim kliknite desnom tipkom na ćeliju A1 i odaberite "Hiperveza" iz kontekstnog izbornika.
4. Kasnije, u prozoru "Insert Hyperlink", odaberite "Place in This Document" na lijevoj strani.
5. Nakon toga, na popisu "Ili odaberite mjesto u ovom dokumentu", odaberite prvi list osim trenutnog novog lista.
6. Zatim promijenite "Tekst za prikaz" u naziv lista.
7. Na kraju kliknite "OK" za umetanje hiperveze.
8. Sada možete umetnuti hiperveze na preostale listove jedan po jedan.

Metoda 2: Stvorite putem formule

1. Najprije izradite novi list.
2. Zatim navedite sva imena radnih listova prema Metodi 2 u objavi "3 brza načina za dobivanje popisa svih naziva radnih listova u Excel radnoj knjizi".
3. Kasnije stavite donju formulu u ćeliju C1.

=HYPERLINK("#'"&B1&"'!A1",B1)

4. Naposljetku, povucite funkciju prema dolje kako biste dobili hiperveze na druge listove.

Metoda 3: Stvorite pomoću VBA

1. Na početku pokrenite Excel VBA uređivač tako da pogledate "Kako pokrenuti VBA kod u vašem Excelu".
2. Zatim stavite donji kod u projekt ili modul.

Sub CreateMenuOfHyperlinksToAllWorksheets()
    Dim objSheet As Worksheet

    ActiveWorkbook.Sheets.Add(Before:=Worksheets(1)).Name = "Sheet Menu"
    Range("A1").Select

    For Each objSheet In ActiveWorkbook.Worksheets
        If ActiveSheet.Name <> objSheet.Name Then
           ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "'" & objSheet.Name & "'" & "!A1", TextToDisplay:=objSheet.Name
           ActiveCell.Offset(1, 0).Select
           ActiveCell.EntireColumn.AutoFit
        End If
    Next objSheet

    With ActiveSheet
         .Rows(1).Insert
         .Cells(1, 1) = "MENU"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Columns.AutoFit
    End With
End Sub

3. Zatim pritisnite “F5” za pokretanje ove makronaredbe.
4. Odjednom ćete vidjeti novi radni list koji sadrži sve hiperveze na sve radne listove, kao na sljedećoj snimci zaslona.

usporedba

Obnovite oštećene Excel datoteke

Excel se s vremena na vrijeme može srušiti, što može dovesti do oštećenja Excel datoteke. Stoga se morate naviknuti na spremanje datoteke svaki put kada mijenjate Excel datoteku. Inače, ako se Excel sruši, ali niste spremili otvorenu datoteku, morate pribjeći xls popraviti softver, kao što su DataNumen Excel Repair, kako biste vratili oštećene Excel podatke.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com