答案 0 :(得分:0)
这是一个简单的事情,因为你的细胞都是硬编码的。您可以根据需要编辑宏以获得更多功能并更加强大。
Sub doubleValidate()
If ActiveSheet.Cells("B5") <> "" And ActiveSheet.Cells("A5") = "" Then
MsgBox ("Please Enter Date!")
End
End If
If ActiveSheet.Cells("A5") <= ActiveSheet.Cells("B2") And ActiveSheet.Cells("A5") >= ActiveSheet.Cells("B1") Then
MsgBox ("All good.")
End If
If ActiveSheet.Cells("A5") > ActiveSheet.Cells("B2") Or ActiveSheet.Cells("A5") < ActiveSheet.Cells("B1") Then
MsgBox ("Date not in range.")
End If
End Sub
下次请展示一些自己的作品,以获得可靠的答案。