Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 对象定义错误:在vba中错误为字符串_Excel_Vba - Fatal编程技术网

Excel 对象定义错误:在vba中错误为字符串

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

“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 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),"""")"
字符串中嵌入的双引号需要加倍才能转义