Kako krmariti med delovnimi listi s pomočjo spustnega seznama v Excelu?
Recimo, da imate delovni zvezek, ki vsebuje več delovnih listov, zdaj morate ustvariti spustni seznam ali kombinirano polje, v katerem so navedena vsa imena listov in ko izberete eno ime lista s spustnega seznama, bo takoj preskočil na ta list. V tem članku bom predstavil, kako se s pomočjo spustnega seznama v Excelu premikate med delovnimi listi.
Premikajte se med delovnimi listi s pomočjo spustnega seznama v Excelu
Premikajte se med delovnimi listi s pomočjo spustnega seznama v Excelu
Če želite s pomočjo spustnega seznama skočiti na vsak izbrani list, naredite naslednje:
1. Kliknite Razvojni > Vstavi > Kombinirana škatla (nadzor ActiveX), glej posnetek zaslona:
2. Nato povlecite miško, da narišete kombinirano polje, in nato z desno miškino tipko kliknite in izberite Ogled kode v priročnem meniju si oglejte posnetek zaslona:
3. V odprti Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo, da zamenjate prvotno kodo, glejte posnetek zaslona:
Koda VBA: premikajte se med delovnimi listi s spustnim seznamom
Private Sub ComboBox1_Change()
'Updateby Extendoffice
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
ComboBox1.AddItem xSheet.Name
Next xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub
4. Nato shranite in zaprite to okno s kodo in kliknite Način oblikovanja če želite izklopiti način oblikovanja, bo zdaj, ko izberete eno ime lista iz kombiniranega polja, šel na ta list hkrati, glejte posnetek zaslona:
|
Premikajte se med delovnimi listi s pomočjo hiperpovezav ali gumbov:
z Kutools za Excel's Ustvari seznam imen listov Pripomoček lahko na hitro poiščete vsa imena delovnih listov na novem listu s hiperpovezavami ali gumbi makra, nato pa lahko med njimi krmarite po svojih željah.
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj! |
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!
