Jak se pohybovat mezi listy pomocí rozevíracího seznamu v aplikaci Excel?
Předpokládejme, že máte sešit, který obsahuje více listů, nyní musíte vytvořit rozevírací seznam nebo rozbalovací seznam se seznamem všech názvů listů a když vyberete jeden název listu z rozevíracího seznamu, okamžitě na něj přeskočí. V tomto článku představím, jak procházet mezi listy pomocí rozevíracího seznamu v aplikaci Excel.
Procházejte mezi listy pomocí rozevíracího seznamu v aplikaci Excel
Procházejte mezi listy pomocí rozevíracího seznamu v aplikaci Excel
Chcete-li přeskočit na každý vybraný list pomocí rozevíracího seznamu, proveďte následující kroky:
1, klikněte Vývojka > Vložit > Rozbalovací seznam (ovládací prvek ActiveX), viz screenshot:
2. Poté tažením myši nakreslete pole se seznamem a poté na něj klikněte pravým tlačítkem, vyberte Zobrazit kód z kontextové nabídky viz screenshot:
3. V otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód, který nahradí původní kód, viz screenshot:
Kód VBA: Procházejte mezi listy pomocí rozevíracího seznamu
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. Poté uložte a zavřete toto okno s kódem a poté klikněte Režim návrhu Chcete-li vypnout režim návrhu, nyní při výběru jednoho názvu listu z rozbalovacího seznamu přejde na tento list najednou, viz screenshot:
|
Procházejte mezi listy pomocí hypertextových odkazů nebo tlačítek:
S Kutools pro Excel's Vytvořte seznam názvů listů nástroj, můžete rychle vypsat všechny názvy listů v novém listu pomocí hypertextových odkazů nebo tlačítek maker, poté můžete mezi nimi procházet podle svých potřeb.
Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď! |
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
