Ja Excel darbgrāmatā ir daudz darblapu, lai tām ātri piekļūtu, ieteicams izveidot hipersaites uz visām darblapām. Šajā rakstā mēs dalīsimies ar jums 3 metodēs.
Ja jums ir Excel darbgrāmata, kurā ir liels skaits darblapu, jums var būt grūti atrast vajadzīgo darblapu un piekļūt tai. Šajā gadījumā jūs varat izveidot hipersaites uz visām darblapām, kas ļauj pāriet uz noteiktu darblapu, vienkārši noklikšķinot uz hipersaites. Tas ir diezgan ērti. Tādējādi šeit mēs iepazīstināsim ar 3 veidiem, kā izveidot šādu sarakstu.
1. metode: manuāli izveidojiet
- Lai sāktu, atveriet konkrēto Excel darbgrāmatu.
- Pēc tam pirms pirmās darblapas ievietojiet jaunu lapu.
- Pēc tam ar peles labo pogu noklikšķiniet uz šūnas A1 un konteksta izvēlnē atlasiet “Hipersaite”.
- Vēlāk logā “Ievietot hipersaiti” kreisajā pusē atlasiet “Ievietot šajā dokumentā”.
- Pēc tam sarakstā “Vai arī atlasiet vietu šajā dokumentā” izvēlieties pirmo lapu, izņemot pašreizējo jauno lapu.
- Pēc tam mainiet “Parādīt tekstu” uz lapas nosaukumu.
- Visbeidzot, noklikšķiniet uz “OK”, lai ievietotu hipersaiti.
- Tagad jūs varat ievietot hipersaites uz atlikušajām loksnēm pa vienai.
2. metode: izveidojiet, izmantojot formulu
- Vispirms izveidojiet jaunu lapu.
- Pēc tam uzskaitiet visus darblapu nosaukumus saskaņā ar 2. metodi ierakstā “3 ātrie veidi, kā iegūt visu darblapu nosaukumu sarakstu Excel darbgrāmatā".
- Vēlāk ievietojiet zemāk esošo formulu šūnā C1.
=HYPERLINK("#'"&B1&"'!A1",B1)
- Galu galā velciet funkciju uz leju, lai iegūtu hipersaites uz citām lapām.
3. metode: izveidojiet, izmantojot VBA
- Sākumā palaidiet Excel VBA redaktoru, atsaucoties uz “Kā palaist VBA kodu savā Excel".
- Pēc tam ievietojiet zemāk esošo kodu projektā vai 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
- Pēc tam nospiediet taustiņu “F5”, lai palaistu šo makro.
- Uzreiz jūs redzēsiet jaunu darblapu, kurā būs visas hipersaites uz visām darblapām, piemēram, šo ekrānuzņēmumu.
salīdzinājums
| Priekšrocības | Trūkumi | |
| Metode 1 | Viegli darboties | Pārāk garlaicīgs, ja ir pārāk daudz darblapu |
| Metode 2 | Ātrāka nekā 1. metode vairāku darblapu gadījumā | Prasa iepriekš uzskaitīt numurus un lapu nosaukumus |
| Metode 3 | Daudz ātrāk un efektīvāk nekā iepriekš minētās 2 metodes | Esiet piesardzīgs attiecībā uz ārējiem makro, kas var būt ļaunprātīgs |
Atgūt bojātus Excel failus
Programma Excel laiku pa laikam var avarēt, kas var izraisīt Excel failu bojājumus. Tādējādi, mainot Excel failu, jums ir jāpierod katru reizi saglabāt failu. Pretējā gadījumā, ja programma Excel avarē, bet jūs neesat saglabājis atvērto failu, jums ir jāizmanto xls salabot programmatūru, piemēram, DataNumen Excel Repair, lai atgūtu bojātos Excel datus.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar