Question

excel中VBA编程用下拉列表的内容做判定条件报错，求指教

在“是否生成凭证”列的单元格加了个下拉列表，以此作为判定条件，如果选择了“生成凭证”，则按模板复制生成新的表格。现在的问题是手输“生成凭证”可以正常复制，如果是下拉列表点选选择就会报错。恳请大神指正，不胜感激。Private Sub Worksheet_Change(ByVal Target As Range)Dim II = ActiveCell.RowDim ar, d As Object Set d = CreateObject("scripting.dictionary") Application.ScreenUpdating = False ar = Sheets("收支汇总表").Range("a15:s100")If Target.Value Like "生成凭证" Then Sheets("模板").Select Sheets("模板").Copy after:=Sheets(2) Sheets(3).Name = "凭证" & ar(I - 15, 1) ActiveSheet.[j3] = I - 15 ActiveSheet.[C9] = ar(I - 1, 2) Application.ScreenUpdating = True Set d = NothingEnd IfEnd Sub





Answer 1

Sheets(3).Name = "凭证" & ar(I - 15, 1)
这一行一看看I是不是确定大于15