excel - Excel VBA将验证列表读入变量

Question

我试图找到一个将验证列表读入变量的 Excel VBA 代码。

我正在使用 Excel 2010 版本。

在下面的代码中，我使用变量 qNR 动态设置值，并出现在下拉菜单中。稍后我需要读取验证列表中的值，删除或更新某些值并设置新值。

我找不到任何将验证列表读入变量的示例代码。

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=qNR
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True

End With

谢谢！

Answer 1

假设它是一个列表类型（验证类型 3），那么Debug.Print Range(yourRange).Validation.Formula1应该打印出一个列表。所以Object.Validation.Formula1看起来对你有用。请参阅此处了解更多信息。