Как распечатать все опции в раскрывающемся списке в Excel?

Вы когда-нибудь пробовали распечатать все опции в раскрывающемся списке на листе Excel? Эта статья рассказывает о том, как распечатать все опции из раскрывающегося списка на отдельных страницах в Excel.

Распечатайте все опции в раскрывающемся списке с помощью кода VBA

Распечатайте все опции в раскрывающемся списке с помощью кода VBA

Следующий код VBA поможет вам распечатать все опции в раскрывающемся списке на листе. Пожалуйста, действуйте следующим образом.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте следующий код VBA в окно Модуля. См. скриншот:

Код VBA: Распечатать все опции в указанном раскрывающемся списке на отдельных страницах

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

Примечание: В коде Sheet1 — это имя листа, который содержит раскрывающийся список, который вы хотите распечатать. А B8 — это ячейка, содержащая раскрывающийся список. Пожалуйста, замените их на нужные вам.

3. Нажмите клавишу F5 для запуска кода.

Затем все опции в указанном раскрывающемся списке на определенном листе будут напечатаны отдельно.

Связанные статьи:

• Как автоматически заполнять другие ячейки при выборе значений в раскрывающемся списке Excel?
• Как автозаполнение при вводе текста в раскрывающемся списке Excel?
• Как создать календарь в виде выпадающего списка в Excel?
• Как создать поисковый выпадающий список в Excel?
• Как создать выпадающий список с множественным выбором или значениями в Excel?