打开EXCEL时如何按条件给单元格赋值

2025-03-14 10:59:47
推荐回答(3个)
回答(1):

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

回答(2):

你要一打开excel实现这个功能?这个有点难度,你要找微软直接改excel程序,或者写第三方控件来满足,直接设置不了的!

回答(3):

=if(a1="","",if(a1<=today(),N,Y))