excel - 使用宏创建数据验证列表

Question

我需要使用宏创建一个下拉菜单。在互联网上我找到了下面的代码，它运行得很好。唯一的问题是我需要从特定工作表(假设 Sheet2)获取下拉菜单上的内容(即 =$B$1:$B$6) 。尝试了几次定向到特定工作表的尝试，但不幸的是没有一个成功。

With Range("A1:A100")
    With .Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=$B$1:$B$6"
    End With
End With

Answer 1

由于您指定希望验证来自 Sheet2，因此您需要将其添加到公式 Formula1:="=Sheet2!$B$1:$B$6 “。

我还会添加一个 .delete 来首先清除所有先前的验证 - 否则，如果您之前尝试进行过任何验证，您可能会遇到错误。

With Range("A1:A100")
    With .Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=Sheet2!$B$1:$B$6"
    End With
End With

最后，您应该真正考虑使用工作表限定您的 Range("A1:A100") ，例如

With Worksheets("Sheet1").Range("A1:A100")

更好的是，考虑在您的工作簿中限定上述内容。