Question

我正在尝试向Excel添加一个验证列表，该列表通过用户对消息框的响应进行更改。

这就是我所拥有的：

 If Not Application.Intersect(Me.[B9], ActiveCell) Is Nothing Then
    Worksheets("New_Project_Code_Request").Range("B9").Value = ""
    strYN = MsgBox(Prompt:="Is this Project Code Request for Cerner HS?", Buttons:=vbExclamation + vbYesNo, Title:="Cerner HS Project Code Request")
    If strYN = vbNo Then
        With Range("B9").Validation
       .Delete
       .Add(Type:=xlValidateList, AlertStyle:=xlValidAlertStop,Formula1:="=Enterprise!A1:A6")
        End With
    If strYN = vbYes Then Worksheets("Category").Range("E1").Value = 2
End If

我一直收到错误

编译错误：预期：=

我不知道我错过了什么。

Answer 1

无需在此行中添加左括号：

.Add(Type:=xlValidateList, AlertStyle:=xlValidAlertStop,Formula1:="=Enterprise!A1:A6")

应该是：

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,Formula1:="=Enterprise!A1:A6"

使用VBA向单元格添加验证

1 个答案: