GBKEE

ÁÂÁÂ,¤F¸Ñ±zªº·N«ä,¦ý¤£¬O§Ú·Q­nªº,§Úªº¥Øªº¥D­n¬O¦b·j¶°¬Y¤@­Ó®É¶¡ÂIªº¸ê®Æ,
¦]¦¹§Úªºexcel¬O¤£·|Ãö³¬ªº, ...
yeh2010 µoªí©ó 2010-5-28 23:45

±Nµ{§Ç½Æ»s¨ìThisWorkbook ¼Ò²Õ ¦sÀÉ«á
­«·s¶}±Ò¤@¦¸ÀɮקY¥i
Private Sub Workbook_Open()
    Application.OnTime TimeValue("09:00"), "thisworkbook.mywork"
End Sub
Private Sub MyWork()
    If Weekday(Date, 2) < 6 Then
        With Sheet2.[A65536].End(xlUp).Offset(1)
            .Value = Date
            .Offset(, 1).Resize(, 3) = Sheet1.[A1].Resize(, 3).Value
        End With
    End If
    Application.OnTime TimeValue("09:00"), "thisworkbook.mywork"
End Sub