Kako izbrati določen delovni list na podlagi vrednosti celice na drugem listu v Excelu?
Če imate spustni seznam za preverjanje veljavnosti podatkov, ki vsebuje vsa imena delovnih listov, in želite samodejno izbrati ali preskočiti na ustrezen delovni list na podlagi imena lista, ki ste ga izbrali na spustnem seznamu, kaj lahko storite? In kako je s samodejnim skokom na določen delovni list, potem ko vnesete ime lista v določeno celico? Ta članek vam bo prikazal več načinov, kako to doseči.
Na podlagi izbire spustnega seznama s kodo VBA izberite določen delovni list
Izberite določen delovni list glede na vrednost celice s kodo VBA
Z Kutools za Excel lahko preprosto ustvarite indeks listov in se premaknete na določen delovni list
Na podlagi izbire spustnega seznama s kodo VBA izberite določen delovni list
Na primer, spustni seznam najde v celici A2 lista8. Spodnjo kodo VBA lahko zaženete, da izberete ali skočite na ustrezen delovni list, ko je na spustnem seznamu izbrano ime lista.
1. Pritisnite druga + F11 da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije dvokliknite ime lista (delovni list, ki vsebuje spustni seznam, iz katerega boste izbrali imena listov) v levi vrstici, nato kopirajte in prilepite spodnjo kodo VBA v okno Code.
Koda VBA: Na podlagi izbire spustnega seznama izberite določen delovni list
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not (Application.Intersect(Range("A2"), Target) Is Nothing) Then _
ThisWorkbook.Sheets(Target.Value).Activate
End Sub
Opombe: "A2" lahko spremenite v svojo celico.
3. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual basic za aplikacije okno.
Ko boste odslej na spustnem seznamu Sheet8 izbrali ime lista, bo ta delovni list izbran samodejno.
Izberite določen delovni list glede na vrednost celice s kodo VBA
Če želite po vnosu imena lista v celico (celica A1 na listu1) preskočiti na določen delovni list, lahko poskusite z naslednjo kodo VBA.
1. Pritisnite druga + F11 da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije dvokliknite ime lista (delovni list, ki ga boste vnesli v ime lista) v levi vrstici, nato kopirajte in prilepite spodnjo kodo VBA v okno Code. Oglejte si posnetek zaslona:
Koda VBA: izberite določen delovni list glede na vrednost celice
Sub ActivateSheetsByValue()
On Error Resume Next
ThisWorkbook.Sheets(Worksheets("Sheet1").Range("A1").Value).Activate
End Sub
3. Vrnite se na delovni list in vnesite ime lista, ki ga želite izbrati, v celico A1 in aktivirajte okno s kodo, nato pritisnite tipko F5, da zaženete kodo.
Če celica A1 v Sheet1 vsebuje ime delovnega lista »Sheet8«, bo po zagonu kode VBA takoj preskočila na Sheet8.
Z Kutools za Excel lahko preprosto ustvarite indeks listov in se premaknete na določen delovni list
Če želite samo hitro izbrati ali preskočiti na določen delovni list, lahko poskusite Ustvari seznam imen listov uporabnost Kutools za Excel. S tem pripomočkom lahko enostavno ustvarite indeks lista, nato pa hitro kliknete na določen delovni list s klikom na ime lista.
Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.
1. klik Kutools Plus > Delovni list > Ustvari seznam imen listov. Oglejte si posnetek zaslona:
2. V Ljubljani Ustvari seznam imen listov pogovorno okno, izberite Vsebuje seznam hiperpovezav možnost v Slogi indeksa listov odsek; vnesite ime za indeks listov v Navedite ime lista za Sheet Index škatla; Izberite Pred vse liste vstavite kazalo listov na spustnem seznamu. Nato kliknite OK gumb.
Opombe: preverite Vsebuje gumbe in makre možnost, boste dobili indeks listov z gumbom za makre. Oglejte si posnetek zaslona:
V indeksnem delovnem listu lahko kliknete določeno ime delovnega lista, da samodejno skočite na ta delovni list.
Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
Z Kutools za Excel lahko preprosto ustvarite indeks listov in se premaknete na določen delovni list
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!