Excel 存储用户对数据验证警告消息VBA的响应

Excel 存储用户对数据验证警告消息VBA的响应,excel,vba,Excel,Vba,我正在根据系统的输入变量创建一个数据上传模板,并需要验证以确保正确上传 我对使用VBA的用户进行了列表数据验证,并向其发送了警告消息,但如果用户需要为其数据添加其他选项,则可能需要添加此列表。系统会提示用户告知他们输入的值不在列表中,并询问他们是否确定该值不在列表中 Excel默认警告弹出窗口的标准按钮为“是”和“否”。我希望在变量中捕获用户对此弹出窗口的响应,因此如果用户选择“是”,我希望突出显示单元格,以提示工作表收件人在上传工作表之前将此选项添加到系统中 我希望要求足够明确。我目前的验证V

我正在根据系统的输入变量创建一个数据上传模板,并需要验证以确保正确上传

我对使用VBA的用户进行了列表数据验证,并向其发送了警告消息,但如果用户需要为其数据添加其他选项,则可能需要添加此列表。系统会提示用户告知他们输入的值不在列表中,并询问他们是否确定该值不在列表中

Excel默认警告弹出窗口的标准按钮为“是”和“否”。我希望在变量中捕获用户对此弹出窗口的响应,因此如果用户选择“是”,我希望突出显示单元格,以提示工作表收件人在上传工作表之前将此选项添加到系统中

我希望要求足够明确。我目前的验证VBA如下所示:

        Range(column & "12:" & column & "1000").Select
                With Selection.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator:= _
                    xlBetween, Formula1:= _
                    "=OFFSET(Options!$E$1,MATCH(" & column & "$3,Options!$C:$C,0)-1,0,COUNTIFS(Options!$C:$C," & column & "$3))"
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = "Value not in List"
                    .InputMessage = Range(column & "11").Value
                    .ErrorMessage = "You have entered a value which is not in the list. Are you certain that the value you're looking for is not in the list?"
                    .ShowInput = True
                    .ShowError = True
                End With