Private Sub Workbook_Open()
'打开执行
Dim a As Date
Sheets("sheet1").Select
a = Format(Date, "yyyy年mm月dd日")
ActiveSheet.Range("a1") = "今天是" & a &
End Sub
工作簿事件
代码放在thisworkbook下 在A1中显示今天是" & a
Private Sub Workbook_Open()
'打开执行
Dim a As Date
Sheets("sheet1").Select
a = Format(Date, "yyyy年mm月dd日")
ActiveSheet.Range("a1") = "今天是" & a &
End Sub
工作簿事件
代码放在thisworkbook下 在A1中显示今天是" & a