vba - 遍历 Excel 下拉列表/验证列表

Question

我有一个包含验证列表的单元格，该列表会根据其他设置而变化。是否可以在代码中遍历该单元格？是否也可以将该单元格设置为列表中的第 n 项？

例子: E2 的下拉列表取决于为 D2 选择的内容。我希望能够遍历 E2 中的任何列表而无需检查 D2。

谢谢。

Answer 1

这对你有用

Sub loopthroughvalidationlist()
     Dim inputRange As Range
     Dim c As Range
     Set inputRange = Evaluate(Range("D2").Validation.Formula1)
     For Each c In inputRange
        '... do something with c.Value
    Next c
End Sub