如何检查单元格是否包含与vba下拉列表

我正在做一个VBA Scribt，为了testing的原因，这个自动填充了一个大的Excle和虚拟数据。 因此，我遍历所有使用的单元格，并检查他们NumberFormat。 Excel还包含下拉列表。

有什么function可以find/识别这样一个列表，并自动select一个随机值？

谢谢！

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