非常急，请高手帮忙看一下，非常奇怪，在线恭候大驾

jackshowmaya 2010-03-30 11:51:52

我在EXCEL里面从第6行插入一行，插入这行数据第一列希望可以加入有效性序列，这样就可以实现手动选择类型，然后当第一列的数据发生变化后，第二列里面的有效性数据是根据第一列的值变化的，但是代码里面加入有效性的地方死活就是过不去，请大虾帮忙看看是哪里的问题，分数倾囊相送。

Private Sub NewProblem_Click()
FirstLine = 6
ActiveSheet.Range("B6:J6").EntireRow.Insert
ActiveSheet.Range("B6:J6").Rows.AutoFit
ActiveSheet.Cells(FirstLine, 8).Font.ColorIndex = 1
ActiveSheet.Cells(FirstLine, 2).Font.ColorIndex = 1
ActiveSheet.Range("B6:J6").Interior.ColorIndex = xlNone
ActiveSheet.Range("B6:J6").Font.Bold = False
'ActiveSheet.Cells(FirstLine, 2).Value = ActiveSheet.Cells(5, 2).Value
With Range(NumtoStr(2) & FirstLine).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="配置模板,成本分析"
End With
ActiveSheet.Cells(FirstLine, 3).Value = ActiveSheet.Cells(5, 3).Value
ActiveSheet.Cells(FirstLine, 5).Value = Date + 7
ActiveSheet.Cells(FirstLine, 6).Value = ActiveSheet.Cells(5, 6).Value
ActiveSheet.Cells(FirstLine, 7).Value = ActiveSheet.Cells(5, 7).Value
ActiveSheet.Cells(FirstLine, 8).Value = ActiveSheet.Cells(5, 8).Value
ActiveSheet.Cells(FirstLine, 9).Value = ""
ActiveSheet.Cells(FirstLine, 4).Select
End Sub

红色的部分报错了，错误的信息为“运行时错误‘-2147417848’：方法‘ADD’作用于对象‘Validation’时失败”

...全文