PrivateSub Workbook_Open() Dim str AsString str =Trim(Range("G22").Value) If str =""Then Range("G22").Value =Now EndIf Dim z AsInteger Dim z2 AsInteger If Range("A1").Value =""Then z =Day(Now) Mod7 z2 =Day(Now) 7 If (z >0) Then z2 = z2 +1 EndIf Range("A1").Value ="("&month(Now) &")"&"月份第("& z2 &")周" EndIf End Sub
posted on
2004-09-18 11:18海天一鸥
阅读(4512)
评论(5)
编辑收藏举报