請大神看看，這個代碼該如何修改，親謝謝

歐陽使者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

有時間么？圖片里沒看出來。