validation - 使用 VBA 在 Excel 表中添加验证列表时出现问题

Question

我有一个加载了动态数据结果集的 Excel 工作表。加载所有数据后，我需要在每行末尾添加一个 YES/NO 下拉列表。我必须动态执行此操作，因为我事先不知道结果集的大小。
以下代码抛出“应用程序定义或对象定义错误”:

Dim firstRow As Integer
Dim lastRow As Integer
Dim I As Integer
Dim VOptions As String
VOptions = "1. Yes, 2. No"

firstRow = GetResultRowStart.row + 1
lastRow = GetResultRowStart.End(xlDown).row

For I = firstRow To lastRow

Range("AO" & firstRow & ":AO" & lastRow).Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=VOptions
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "Options"
    .ErrorTitle = ""
    .InputMessage = "Click yes or no"
    .errorMessage = ""
    .ShowInput = True
    .ShowError = True
End With


 Next I

GetResultRowStart 方法为我提供了开始在工作表中填充结果数据的行。我也在代码的其他部分的其他地方使用过这种方法，它工作得很好。
使用消息框调试建议在 Range(..).select 语句中抛出错误。

有关此错误原因的任何想法。

Answer 1

关于这一点的最终想法:

将工作簿中每个按钮的 SetFocusOnClick 属性设置为 false 似乎已经解决了这个问题(至少现在是这样)。
但是，如果这是必需的条件，则在将值设置为 true 的情况下，它根本不应该起作用。然而，有时确实如此。
但这是我找到的可靠解决方案。