Jak vytisknout všechny možnosti v rozevíracím seznamu v aplikaci Excel?

Zkusili jste někdy vytisknout všechny možnosti z rozevíracího seznamu v listu aplikace Excel? Tento článek hovoří o tisku všech možností v rozevíracím seznamu do samostatného výtisku v aplikaci Excel.

Vytiskněte všechny možnosti z rozevíracího seznamu pomocí kódu VBA

Vytiskněte všechny možnosti z rozevíracího seznamu pomocí kódu VBA

Následující kód VBA vám pomůže vytisknout všechny možnosti v rozevíracím seznamu v listu. Postupujte prosím následovně.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Potom zkopírujte následující kód VBA do okna modulu. Viz snímek obrazovky:

Kód VBA: Vytiskne všechny možnosti v zadaném rozevíracím seznamu do samostatného výtisku

Sub Iterate_Through_data_Validation()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Sheet1").Range("B8")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.PrintOut
    Next
End Sub

Pozor: V kódu je List1 název listu, který obsahuje rozevírací seznam, který chcete vytisknout. A B8 je buňka obsahující rozevírací seznam. Vyměňte je prosím za své potřebné.

3. zmáčkni F5 klíč ke spuštění kódu.

Poté se všechny možnosti v zadaném rozevíracím seznamu v určitém listu vytisknou samostatně.

Související články:

• Jak automaticky naplnit další buňky při výběru hodnot v rozevíracím seznamu aplikace Excel?
• Jak se automaticky dokončuje při psaní v rozevíracím seznamu aplikace Excel?
• Jak vytvořit kalendář rozevíracího seznamu v aplikaci Excel?
• Jak vytvořit vyhledávací rozevírací seznam v aplikaci Excel?
• Jak vytvořit rozevírací seznam s více výběry nebo hodnotami v aplikaci Excel?