Ko ima Excelov delovni zvezek veliko delovnih listov, boste morda želeli za hiter dostop do njih ustvariti seznam hiperpovezav do vseh delovnih listov. V tem članku bomo z vami delili 3 metode.
Če imate Excelov delovni zvezek, ki vsebuje veliko delovnih listov, vam bo morda težko najti želeni delovni list in dostopati do njega. V tem primeru lahko ustvarite seznam hiperpovezav do vseh delovnih listov, s katerimi lahko preprosto kliknete hiperpovezavo do določenega delovnega lista. To je zelo priročno. Tako bomo tukaj predstavili 3 načine za ustvarjanje takega seznama.
1. način: ročno ustvarite
- Za začetek odprite določen Excelov delovni zvezek.
- Nato pred prvi delovni list vstavite nov list.
- Nato z desno miškino tipko kliknite celico A1 in v kontekstnem meniju izberite »Hiperpovezava«.
- Kasneje v oknu “Insert Hyperlink” na levi strani izberite “Place in This Document”.
- Nato na seznamu »Ali izberite mesto v tem dokumentu« izberite prvi list, razen trenutnega novega.
- Nato spremenite »Besedilo za prikaz« v ime lista.
- Na koncu kliknite »V redu«, da vstavite hiperpovezavo.
- Zdaj lahko hiperpovezave vstavite enega za drugim na preostale liste.
2. način: Ustvarite s pomočjo formule
- Najprej ustvarite nov list.
- Nato naštejte vsa imena delovnih listov v skladu z metodo 2 v objavi “3 hitri načini pridobivanja seznama imen vseh delovnih listov v Excelovem delovnem zvezku".
- Kasneje vstavite spodnjo formulo v celico C1.
=HYPERLINK("#'"&B1&"'!A1",B1)
- Končno povlecite funkcijo navzdol, da pridete do hiperpovezav do drugih listov.
3. način: Ustvarite z VBA
- Na začetku zaženite urejevalnik Excel VBA, tako da se sklicujete na »Kako zagnati kodo VBA v Excelu".
- Nato vstavite spodnjo kodo v projekt ali 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
- Nato pritisnite “F5”, da zaženete ta makro.
- Takoj boste videli nov delovni list, ki vsebuje vse hiperpovezave do vseh delovnih listov, kot je naslednji posnetek zaslona.
Primerjava
| Prednosti | Slabosti | |
| Metoda 1 | Enostaven za uporabo | Preveč dolgočasno, če je preveč delovnih listov |
| Metoda 2 | Hitreje od metode 1 v primeru več delovnih listov | Zahteva, da vnaprej navedete številke in imena listov |
| Metoda 3 | Veliko hitrejši in učinkovitejši od zgornjih dveh metod | Pazite na zunanje makre, ki so lahko zlonamerni |
Obnovite poškodovane Excelove datoteke
Excel se lahko občasno zruši, kar lahko privede do poškodbe datotek Excel. Zato morate biti navajeni, da datoteko shranite vsakič, ko spremenite datoteko Excel. V nasprotnem primeru, če Excel zruši, vendar niste shranili odprte datoteke, se morate zateči k temu xls popraviti programska oprema, kot je DataNumen Excel Repair, da dobite nazaj poškodovane Excelove podatke.
Uvod avtorja:
Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjava mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com