Kui Exceli töövihikus on palju töölehti, võite neile kiireks juurdepääsuks luua kõigi töölehtede hüperlinkide loendi. Selles artiklis jagame teiega 3 meetodit.
Kui teil on Exceli töövihik, mis sisaldab suurel hulgal töölehti, võib soovitud töölehe leidmine ja sellele juurdepääs osutuda tülikaks. Sel juhul saate luua kõigi töölehtede hüperlinkide loendi, mis võimaldab teil hüpata konkreetsele töölehel, klõpsates lihtsalt hüperlingil. See on üsna mugav. Seega tutvustame siin 3 võimalust sellise loendi loomiseks.
1. meetod: käsitsi loomine
- Alustuseks avage konkreetne Exceli töövihik.
- Seejärel sisestage uus leht esimese töölehe ette.

- Järgmisena paremklõpsake lahtril A1 ja valige kontekstimenüüst "Hüperlink".
- Hiljem valige aknas "Insert Hyperlink" vasakul pool "Aseta selles dokumendis".
- Pärast seda valige loendist "Või valige koht selles dokumendis" esimene leht, välja arvatud praegune uus leht.
- Seejärel muutke "Kuvatav tekst" lehe nimeks.
- Lõpuks klõpsake hüperlingi sisestamiseks "OK".
- Nüüd saate ükshaaval lisada hüperlingid ülejäänud lehtedele.
2. meetod: looge valemi kaudu
- Kõigepealt looge uus leht.
- Seejärel loetlege kõik töölehtede nimed vastavalt 2. meetodile postituses „3 kiiret viisi Exceli töövihiku kõigi töölehtede nimede loendi hankimiseks".
- Hiljem pange allolev valem lahtrisse C1.
=HYPERLINK("#'"&B1&"'!A1",B1)
- Lõpuks lohistage funktsioon alla, et saada hüperlingid teistele lehtedele.
3. meetod: looge VBA-ga
- Alguses käivitage Exceli VBA redaktor, viidates "Kuidas Excelis VBA koodi käivitada".
- Seejärel pange allolev kood projekti või moodulisse.
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
- Järgmisena vajutage selle makro käivitamiseks "F5".
- Näete korraga uut töölehte, mis sisaldab kõiki hüperlinke kõikidele töölehtedele, nagu järgmine ekraanipilt.
võrdlus
| Eelised | Puudused | |
| Meetod 1 | Lihtne kasutada | Liiga tüütu, kui töölehti on liiga palju |
| Meetod 2 | Kiirem kui 1. meetod mitme töölehe korral | Nõuab, et loetleksite eelnevalt numbrid ja lehtede nimed |
| Meetod 3 | Palju kiirem ja tõhusam kui ülaltoodud 2 meetodit | Olge ettevaatlik väliste makrode suhtes, mis võivad olla pahatahtlikud |
Taastage rikutud Exceli failid
Excel võib aeg-ajalt kokku kukkuda, mis võib viia Exceli faili rikkumiseni. Seetõttu peate Exceli faili muutmisel olema harjunud faili iga kord salvestama. Vastasel juhul, kui Excel jookseb kokku, kuid te pole avatud faili salvestanud, peate kasutama xls parandada tarkvara, nt DataNumen Excel Repair, et saada tagasi kahjustatud Exceli andmed.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom








