Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

Jak wydrukować wszystkie opcje z rozwijanej listy w programie Excel?

Czy kiedykolwiek próbowałeś wydrukować wszystkie opcje z listy rozwijanej w arkuszu programu Excel? W tym artykule mowa o drukowaniu wszystkich opcji z rozwijanej listy na osobnym wydruku w programie Excel.

Wydrukuj wszystkie opcje na liście rozwijanej z kodem VBA


Wydrukuj wszystkie opcje na liście rozwijanej z kodem VBA


Poniższy kod VBA może pomóc w wydrukowaniu wszystkich opcji na liście rozwijanej w arkuszu. Wykonaj następujące czynności.

1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj następujący kod VBA do okna Module. Zobacz zrzut ekranu:

Kod VBA: wydrukuj wszystkie opcje z określonej listy rozwijanej na osobnym wydruku

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

Uwagi: W kodzie Arkusz1 to nazwa arkusza zawierającego listę rozwijaną, którą chcesz wydrukować. A B8 to komórka zawierająca listę rozwijaną. Wymień je na potrzebne.

3. wciśnij F5 klucz do uruchomienia kodu.

Następnie wszystkie opcje z określonej listy rozwijanej w określonym arkuszu są drukowane osobno.


Z łatwością wydrukuj określone strony w bieżącym arkuszu w programie Excel:

Z Drukuj określone strony użyteczność Kutools dla programu Excel, możesz łatwo wydrukować określone strony w bieżącym arkuszu, takie jak print all nieparzyste strony, wszystko parzyste strony, drukuj tylko bieżąca strona, a także wydrukuj niestandardowy zakres stron, jak pokazano poniżej.
Pobierz i wypróbuj teraz! ( 30-dniowy darmowy szlak)


Podobne artykuły:


Najlepsze narzędzia biurowe

Kutools for Excel rozwiązuje większość twoich problemów i zwiększa wydajność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i zmniejsza setki kliknięć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    hendrasolo9 · 1 months ago
    kalo ingin mencetak sebagian data di drop list, gimana caranya mas ?

    terima kasih
  • To post as a guest, your comment is unpublished.
    mich · 8 months ago
    Thanks i used the first option it s amazing but i need to add to it that if there is a blank cell it should not print that option
    • To post as a guest, your comment is unpublished.
      Pyu Young · 4 months ago
      Hello Mich
      Have you found the VBA code for print all options in drop down list excluding the empty cell so as you can help is too.
      • To post as a guest, your comment is unpublished.
        crystal · 19 days ago
        Hi,
        The following VBA code helps to print all options in a specific drop-down list excluding the empty items. Hope I can help.
        Sub Iterate_Through_data_Validation_NULL()
        'Updated by Extendoffice 20211231
        On Error Resume Next
        Dim xRg As Range
        Dim xCell As Range
        Dim xRgVList As Range
        Dim xNum, xF As Integer
        xNum = 2
        Set xRg = Worksheets("Sheet1").Range("B17")
        Set xRgVList = Evaluate(xRg.Validation.Formula1)
        xF = 1
        For Each xCell In xRgVList
        xRg = xCell.Value
        If Trim(xCell.Value) = "" Then
        Else
        'ActiveSheet.PrintPreview
        ActiveSheet.PrintOut
        End If
        Next
        End Sub
  • To post as a guest, your comment is unpublished.
    Mich · 8 months ago
    Thanks i used the first option it s amazing but i need to add to it that if there is a blank cell it should not print that option
    • To post as a guest, your comment is unpublished.
      crystal · 19 days ago
      Hi,
      The following VBA code helps to print all options in a specific drop-down list excluding the empty items. Hope I can help.
      Sub Iterate_Through_data_Validation_NULL() 'Updated by Extendoffice 20211231 On Error Resume Next Dim xRg As Range Dim xCell As Range Dim xRgVList As Range Dim xNum, xF As Integer xNum = 2 Set xRg = Worksheets("Sheet1").Range("B17") Set xRgVList = Evaluate(xRg.Validation.Formula1) xF = 1 For Each xCell In xRgVList xRg = xCell.Value If Trim(xCell.Value) = "" Then Else 'ActiveSheet.PrintPreview ActiveSheet.PrintOut End If Next End Sub
  • To post as a guest, your comment is unpublished.
    Zack · 2 years ago
    Hi is there a way to be able to preview first all the possible printouts in my drop-down list before it actually prints?
    • To post as a guest, your comment is unpublished.
      crystal · 19 days ago
      Hi Zack,
      The following VBA code helps to have a print preview before printing. After running the code, the print preview of a drop-down item pops up, you need to manually close the print preview to get the option to print out. 
      Sub Iterate_Through_data_Validation_NULL() 'Updated by Extendoffice 20211231 On Error Resume Next Dim xRg As Range Dim xCell As Range Dim xRgVList As Range Dim xNum, xF As Integer xNum = 2 Set xRg = Worksheets("Sheet1").Range("B17") Set xRgVList = Evaluate(xRg.Validation.Formula1) xF = 1 For Each xCell In xRgVList xRg = xCell.Value If Trim(xCell.Value) = "" Then Else ActiveSheet.PrintPreview ActiveSheet.PrintOut End If Next End Sub
  • To post as a guest, your comment is unpublished.
    tj123 · 2 years ago
    How can i select a specific droplist, i want to print? , For example if i have 200 names on my droplist and i want to print a specific list, maybe 50 out of 200, How will i do this please?
    • To post as a guest, your comment is unpublished.
      crystal · 19 days ago
      Hi,
      The VBA code below can help you achieve it. Please specify the number of items you want to print in the line "xNum = 10", and the first n options in the drop-down list will be printed out.
      Sub Iterate_Through_data_Validation_Num1() 'Updated by Extendoffice 20211231 On Error Resume Next Dim xRg As Range Dim xCell As Range Dim xRgVList As Range Dim xNum, xF As Integer xNum = 10 'the number of items you want to print Set xRg = Worksheets("Sheet1").Range("B17") Set xRgVList = Evaluate(xRg.Validation.Formula1) xF = 1 For Each xCell In xRgVList xRg = xCell.Value 'ActiveSheet.PrintPreview '?? ActiveSheet.PrintOut '?? If xF = xNum Then Exit For End If xF = xF + 1 Next End Sub
  • To post as a guest, your comment is unpublished.
    Cloud · 2 years ago
    Thanks for the code. But I'm experiencing a minor issue when printing. When I tried to print the sheet with the drop down list. The first print out, prints the first item on the list while the next print out prints a blank data before it prints the second item from the list. What should I do?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Cloud,
      What version of Excel are you using?
      The problem can't be reproduced in my case. Sorry for the inconvenience.
      • To post as a guest, your comment is unpublished.
        Cloud · 1 years ago
        Sorry I totally forgot about this. I'm using Excel 2013.

        So it wasn't actually a blank data.

        I have this dynamic drop down list in cell R17 which also populates other cells in the worksheet using VLOOKUP Function. What happens during print out is that the odd-positioned items on the list appears on the cell while the even-positioned items seemed not to show up that's why I thought it's printing blank pages.

        Thanks!
  • To post as a guest, your comment is unpublished.
    Juliette · 3 years ago
    Thank you for the post, this has helped me a lot. I was wondering if you had a way to do VBA to print Page 1 based on one drop-down selection and print Page 1 and 2 based on another drop-down selection? Thanks for any help you can provide.