求excelvba代码

更新时间2018-05-23 09:19:26

求大侠把下面的语句改写成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)&"分钟"))

非常感谢求 excel vba 代码

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

在淘宝上面看看