Excel VBA将嵌套if条件指定给某些范围单元格

我需要VBA代码的要求，以将以下公式分配到范围G4:G1000

通过比较其他列和当前日期，请帮助我

---

您可以使用它，您可能需要根据需要修改wb和ws

Sub mysub()
Dim wb As Workbook
Dim ws As Worksheet
Set wb As ActiveWorkbook
Set ws As wb.Sheets("Sheet1")
ws.Range("G4:G1000").Formula = "=IF(A4="Ended OK","Completed",IF(A4="Executing","In progress",IF(D4=1,ROUND(((NOW()-1)-(B4+E4))*24,0),ROUND(((NO‌​W())-(B4+E4))*24,0))‌​))"
End Sub

---

=如果（A4=“结束正常”，“完成”，“如果（A4=“执行”，“进行中”），如果（D4=1，舍入（（（现在（）-1）-（B4+E4））*24,0），舍入（（现在（）-（B4+E4））*24,0）））您的代码的哪个方面有问题？请显示您正在进行的工作，并指出您遇到的任何错误。@Rana…录制一个宏