Как проверить, содержит ли ячейка выпадающий список с помощью vba

Question

Я работаю над VBA Scribt, который автоматически анализирует большие данные с помощью фиктивных данных для тестирования. Поэтому я перемещаю все использованные ячейки и проверяю их номер NumberFormat. Excel также содержит выпадающие списки.

Есть ли функция, которая может найти/идентифицировать такой список и автоматически выбрать случайное значение?

Спасибо!

Answer 1

Вот один из способов проверить ячейку для DataValidation

Sub IsIt() 
    On Error GoTo trap 
    MsgBox ActiveCell.Validation.Formula1 
    On Error GoTo 0 
    Exit Sub 
trap: 
    MsgBox "no data validation" 
    On Error GoTo 0 
End Sub