Excel 对象定义错误:在vba中错误为字符串
“Range”(“F”&i).Formula=”在字符串中使用iferror时抛出对象定义的错误消息Excel 对象定义错误:在vba中错误为字符串,excel,vba,Excel,Vba,“Range”(“F”&i).Formula=”在字符串中使用iferror时抛出对象定义的错误消息 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer For i = 16 To 194 If Range("O" & i) < 0 Then answer = MsgBox("Discounted. Are you sure?", vbYesNo) If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 16 To 194
If Range("O" & i) < 0 Then
answer = MsgBox("Discounted. Are you sure?", vbYesNo)
If answer = No Then
Range("F" & i).Formula = "=iferror(VLOOKUP($B" & i & ",eac_equipment_list!$P:$S,2,FALSE),"")"
End If
If answer = vbYes Then
Range("O" & i) = "0"
End If
End If
Next i
End Sub
Private子工作表\u selection更改(ByVal目标作为范围)
作为整数的Dim i
对于i=16至194
如果范围(“O”&i)<0,则
答案=MsgBox(“打折。你确定吗?”,vbYesNo)
如果答案是否定的,那么
范围(“F”&i).Formula=“=iferror(VLOOKUP($B“&i&”,eac\U设备列表!$P:$S,2,FALSE),”)
如果结束
如果答案=是,则
范围(“O”和“i)=“0”
如果结束
如果结束
接下来我
端接头
想法?当我只使用Vlookup而不使用“iferror”部分时,代码运行良好
谢谢
"=iferror(VLOOKUP($B" & i & ",eac_equipment_list!$P:$S,2,FALSE),"")"
应该是
"=iferror(VLOOKUP($B" & i & ",eac_equipment_list!$P:$S,2,FALSE),"""")"
字符串中嵌入的双引号需要加倍才能转义