你说什么语言,VBA吗?
追问EXCEL的表格函数
追答Sub Test()
Dim Day1, Day2, a
Day1 = InputBox("请输入开始日期")
If Day1 = "" Then End
Day2 = InputBox("请输入截止日期")
If Day2 = "" Then End
a = DateDiff("d",Day1, Day2 )
Select Case a
Case Is > 3
MsgBox "剩余三天以上"
Case Is <= 3
MsgBox "临近交期"
Case Is = 0
MsgBox "已正常交货"
Case Else
MsgBox "日期输入有误请重新输入"
End
End Select
End Sub
我没测试,大概应该没问题把。
表格的问题我一般都用的VB
追问大哥,能用普通的IF函数写吗?类似这种(=IF(H3-TODAY()<=3,"临近交期"
追答这个不太清楚,表格函数功能太少了,而且不自由,你不如学学VB兄弟、