请大神看看，这个代码该如何修改，亲谢谢

欧阳使者871118

If Workbooks(POname).Sheets(Spec).Cells(1, 2).Value = "实排订单" Then Workbooks("订单登记表(新).xlsm").Sheets("订单汇总表").Cells(d4, 26).Value = "=today()"  '当天日期
        If Workbooks(POname).Sheets(Spec).Cells(1, 2).Value = "实排订单" Then If Workbooks("订单登记表(新).xlsm").Sheets("订单汇总表").Cells(d4, 27).Value = "" Then Workbooks("订单登记表(新).xlsm").Sheets("订单汇总表").Cells(d4, 27).Value = IIf(Time < 11 / 24, "上午", IIf(Time < 15 / 24, "下午", IIf(Time < 23 / 24, "晚上", "")))


以上代码请大神修改一下末尾语句IIf(Time < 23 / 24, "晚上", "")))，修改一下改成15点后的 时间为次日上午，我把它改成date+1 & "上午"好像也不行，这样出来的结果是日期和上午变成在同一列了，我需要日期是在Z列的，请大神赐教

roych

有时间么？图片里没看出来。