Kai „Excel“ darbaknygėje yra daug darbalapių, norėdami greitai juos pasiekti, galbūt norėsite sukurti visų darbalapių hipersaitų sąrašą. Šiame straipsnyje mes pasidalinsime su jumis 3 būdais.
Jei turite „Excel“ darbaknygę, kurioje yra daug darbalapių, jums gali būti sunku rasti ir pasiekti norimą darbalapį. Tokiu atveju galite sukurti visų darbalapių hipersaitų sąrašą, kuris leidžia pereiti prie konkretaus darbalapio tiesiog spustelėjus hipersaitą. Tai gana patogu. Taigi, čia pristatysime 3 būdus, kaip sukurti tokį sąrašą.
1 būdas: sukurkite rankiniu būdu
- Pirmiausia atidarykite konkrečią „Excel“ darbaknygę.
- Tada įterpkite naują lapą prieš pirmąjį darbalapį.
- Tada dešiniuoju pelės mygtuku spustelėkite langelį A1 ir kontekstiniame meniu pasirinkite „Hipersaitas“.
- Vėliau lange „Įterpti hipersaitą“ kairėje pusėje pasirinkite „Įdėti į šį dokumentą“.
- Po to sąraše „Arba pasirinkite vietą šiame dokumente“ pasirinkite pirmąjį lapą, išskyrus dabartinį naują lapą.
- Tada pakeiskite „Rodytinas tekstas“ į lapo pavadinimą.
- Galiausiai spustelėkite „Gerai“, kad įterptumėte hipersaitą.
- Dabar galite po vieną įterpti hipersaitus į likusius lapus.
2 būdas: kurkite naudodami formulę
- Pirmiausia sukurkite naują lapą.
- Tada išvardykite visus darbalapių pavadinimus pagal 2 metodą, pateiktą įraše „3 greiti būdai gauti visų darbalapių pavadinimų sąrašą „Excel“ darbaknygėje".
- Vėliau į C1 langelį įdėkite toliau pateiktą formulę.
=HYPERLINK("#'"&B1&"'!A1",B1)
- Galiausiai vilkite funkciją žemyn, kad gautumėte hipersaitus į kitus lapus.
3 būdas: kurkite naudodami VBA
- Iš pradžių paleiskite „Excel VBA“ redaktorių, nurodydami „Kaip paleisti VBA kodą „Excel“.".
- Tada įdėkite toliau pateiktą kodą į projektą arba 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
- Tada paspauskite „F5“, kad paleistumėte šią makrokomandą.
- Iš karto pamatysite naują darbalapį, kuriame yra visi hipersaitai į visus darbalapius, kaip ir toliau pateikta ekrano kopija.
Palyginimas
| Privalumai | Trūkumai | |
| Metodas 1 | Lengva naudoti | Per daug nuobodu, jei yra per daug darbalapių |
| Metodas 2 | Greitesnis nei 1 metodas, jei yra keli darbalapiai | Reikalauja iš anksto nurodyti numerius ir lapų pavadinimus |
| Metodas 3 | Daug greičiau ir efektyviau nei pirmiau minėti 2 metodai | Būkite atsargūs dėl išorinių makrokomandų, kurios gali būti kenkėjiškos |
Atkurti sugadintus Excel failus
„Excel“ retkarčiais gali užstrigti, todėl „Excel“ failai gali būti sugadinti. Taigi jūs turite būti įpratę išsaugoti failą kiekvieną kartą, kai keičiate „Excel“ failą. Priešingu atveju, jei „Excel“ užstringa, bet neišsaugojote atidaryto failo, turite pasinaudoti xls pataisymas programinė įranga, pvz DataNumen Excel Repair, norėdami susigrąžinti sugadintus Excel duomenis.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com