Private Sub Workbook_Open()
Select Case Sheet1.[a1]
Case "": Sheet1.[a2] = ""
Case Is <= Now
If Sheet1.[a2] <> "Y" Then Sheet1.[a2] = "N"
End Select
End Sub
你要一打开excel实现这个功能?这个有点难度,你要找微软直接改excel程序,或者写第三方控件来满足,直接设置不了的!
=if(a1="","",if(a1<=today(),N,Y))