Būtina sukurti katalogą darbo knygai su daugybe darbalapių. Čia yra greitas būdas sukurti katalogą „Excel“ darbalapyje.
Ankstesniame mūsų straipsnyje Kaip sukurti katalogą „Excel“ naudojant hipersaitus, kalbėjome apie katalogo kūrimą įterpiant hipersaitus į darbalapį. Sukurti katalogą darbaknygei su daugybe darbalapių gali būti labai naudinga. Tačiau hipersaitų pridėjimas po vieną rankiniu būdu gali užtrukti. Todėl čia turime naują būdą greitai sukurti tokį katalogą.
Sukurkite katalogą
Žemiau esančiame paveikslėlyje darbaknygėje yra daug darbalapių.
Ir dabar šioje darbaknygėje galite sukurti katalogą.
- Dešiniuoju pelės mygtuku spustelėkite vieną iš juostelės skirtukų.
- Tada meniu spustelėkite mygtuką „Tinkinti juostelę“.
- „Excel“ parinkčių lange pažymėkite parinktį „Kūrėjas“ srityje „Pagrindiniai skirtukai“.
- Ir tada spustelėkite „Gerai“.
- Dabar juostelėje spustelėkite skirtuką „Kūrėjas“.
- Tada įrankių juostoje spustelėkite mygtuką „Visual Basic“.
Taigi atidarėte „Visual Basic“ redaktorių. Tiesą sakant, taip pat galite paspausti spartųjį klavišą „Alt + F11“ klaviatūroje, kad greitai atidarytumėte redaktorių.
- Dabar dešiniuoju pelės mygtuku spustelėkite VBA projektorių.
- Tada perkelkite žymeklį ant parinkties „Įterpti“.
- Submeniu pasirinkite parinktį „Modulis“.
Todėl į projektą įdėjote naują modulį.
- Dabar nukopijuokite šiuos VBA kodus į naują modulį:
Sub CreateMenu()
Pritemdykite kaip sveikąjį skaičių
a = 1
'pridėkite naują darbalapį
Worksheets.Add Before:=Lapai(1)
Lapai (1). Pavadinimas = "Meniu"
Darbalapiai („Meniu“). Diapazonas („A1“). Reikšmė = „Meniu“
Jei a = 2 Į ActiveWorkbook.Worksheets.Count
Darbalapiai („Meniu“). Diapazonas („A“ ir a) = Lapai (a). Pavadinimas
ActiveSheet.Hyperlinks.Add Anchor:=Darbo lapai („Meniu“). Diapazonas („A“ ir a), _
Adresas:="", _
SubAddress:=”'” & Sheets(a).Pavadinimas & „'!R1C1“, _
TextToDisplay:=Lakštai(a).Pavadinimas
Sekantis
End Sub
Šiame kode pradžioje įterpiame naują darbalapį pavadinimu „Meniu“. Jei jau yra darbalapis pavadinimu „Meniu“, galite pakeisti VBA kodą arba pakeisti esamo darbalapio pavadinimo pavadinimą. Be to, sąrašą įvesime į pirmąjį naujojo darbalapio stulpelį. Jei reikia įvesti katalogą skirtingu diapazonu, taip pat galite jį modifikuoti pagal savo poreikius.
- Dabar įrankių juostoje paspauskite mygtuką „Run Sub“.
Be to, taip pat galite paspausti mygtuką „F5“ klaviatūroje.
- Dabar grįžkite į darbalapio sąsają.
Darbaknygėje yra naujas darbalapis pavadinimu „Meniu“. Ir visi lapų pavadinimai yra išvardyti darbalapyje su atitinkamais hipersaitais. Naudodami šį metodą galite greitai sukurti katalogą.
Dviejų metodų palyginimas
Ankstesniame mūsų straipsnyje Kaip sukurti katalogą „Excel“ naudojant hipersaitus, mes pridedame katalogą rankiniu būdu. Ir mes palyginsime šių dviejų metodų skirtumą žemiau esančioje lentelėje.
| Palyginimas | Sukurkite katalogą rankiniu būdu | Naudokite VBA procedūrą |
| pranašumas | 1. Kiekvienas Excel naudotojas gali lengvai naudoti šį metodą.
2. Jei neturite žinių apie VBA, galite naudoti šį metodą. |
1. Naudodamiesi VBA procedūromis šią užduotį galite užbaigti vienu spustelėjimu.
2. Taip pat galite pakeisti VBA kodus, kad atitiktų kitus reikalavimus. |
| Trūkumas | 1. Jei darbaknygėje yra daug darbalapių, tikrai daug laiko sugaišite įterpdami hipersaitus.
2. Hipersaitus reikia rinktis po vieną, ir tai lengvai sukels klaidų. |
1. Jei nesate susipažinę su VBA kodais, vykdydami kodus susidursite su problemomis.
2. VBA kodų naudojimas apsunkins užduotį. |
Susitvarkykite su netikėtomis situacijomis programoje „Excel“.
Jei dažnai naudojate „Excel“ užduotims atlikti, neišvengiamai susidursite su klaidomis. Dažniausiai galite uždaryti „Excel“ ir paleisti ją iš naujo. Taigi, šios mažos klaidos išnyks. Tačiau kai kurios „Excel“ klaidos gali sukelti rimtų „Excel“ pažeidimų. O rezultatas gali būti neįsivaizduojamas. Šiuo metu galite pataisyti xls duomenų problemą mūsų įgudęs įrankis. Naudodamiesi šiuo veiksmingu įrankiu, tereikia laukti, kol baigsis atkūrimo procesas.
Autoriaus įvadas:
Anna Ma yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti doc duomenų žalą ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com