求excelvba代码

关键字：lv，excel 更新时间：2018-05-23 09:19:26 193次访问

求大侠把下面的语句改写成VBA代码

H2=IF(E2="",MID(D2,1,2)&"日，周"&RIGHT(D2,1)&"上午没打卡",IF(E2-$E$1<=0,"",MID(D2,1,2)&"日，周"&RIGHT(D2,1)&"迟到"&MINUTE(E2-$E$1)&"分钟"))

非常感谢

    If [E2] = "" Then

        [H2] = Left([D2], 2) & "日，周" & Right([D2], 1) & "上午没打卡"

    ElseIf [E2] - [E1] <= 0 Then

        [H2] = ""

    Else

        [H2] = Left([D2], 2) & "日，周" & Right([D2], 1) & "迟到" & Minute([E2] - [E1]) & "分钟"

    End If

在淘宝上面看看

相关标签：lv，excel