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: