A2单元格中有三中状态，分别是空值、N、Y 。如果A1单元格里无日期时，A2单元格为空；在A1有时间的情况下，如果A2不等于Y，和A1的日期小于等于系统日期TODAY（）时，打开工作表时自动赋字符 N在单元格A2中。
请各大侠帮我设计设计。在此谢谢了！
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))
