[µo°Ý] excel®É¶¡Ä²µo¨Æ¥ó

yeh2010

·Q­n¦b¬Y­Ó®É¶¡ÂI¥sexcel¥h°µ¬Y¥ó¨Æ,¦ý¤£ª¾­n¦p¦ó¼g°_.

¨Ò¦p:§Ú·Q­n¦b¨C­Ó¬P´Á¤@¨ì¬P´Á¤­ªº¦­¤W9ÂI¾ã,
       ±NÀɮפºsheet1¬¡­¶Ã¯¤ºA1¨ìC1½d³ò¤ºªºÀx¦s®æ¸ê®Æ,
       ©T©w¨C¤Ñ¤@µ§¤@µ§ªº¤À¦¸°O¿ý¨ìsheet2¬¡­¶Ã¯¤ºªºÀx¦s®æ,
       ÁÂÁÂ!

Min

windows¤¤ ¦³¤@­Ó"¤u§@±Æµ{" ¥i¥H³]©w´XÂI±Ò°Ê...
±N±zªºexcel©ñ¤J"¤u§@±Æµ{" ´N¥i¥H¦b±z³]©wªº®É¶¡±Ò°Ê!

»Ýª`·Nªº­«ÂI¦p¤U:
1.excel ¥¨¶°¦w¥þ©Ê¶·³]©w¬°§C ³o¼Ë¤~¯à¶¶§Q±Ò°Ê
2.vba sub»Ý¼¶¼gauto_open... auto_close... ³o¼Ë¤~¯à¦Û°Ê°õ¦æ ¦Û°ÊÃö³¬...
3.³Ì«á´N¬O±Nwindows¤u§@±Æµ{³]©w¦n ¤v¥i! ¥i¥H¤â°Ê±Ò°Ê¤u§@±Æµ{ ¨ÓÅçÃÒ´ú¸Õ³]©wµL»~~

yeh2010

ÁÂÁÂ,¤F¸Ñ±zªº·N«ä,¦ý¤£¬O§Ú·Q­nªº,§Úªº¥Øªº¥D­n¬O¦b·j¶°¬Y¤@­Ó®É¶¡ÂIªº¸ê®Æ,
¦]¦¹§Úªºexcel¬O¤£·|Ãö³¬ªº,¥u­n¦bexcel¤º³]©wªº®É¶¡¨ì¤F,§Y¶}©l®Ú¾Ú±ø¥ó°µ°O¿ý.

Hsieh

¦^´_ 3# yeh2010


    ¸Õ¸Õ¬ÝSheet1¼Ò²Õ

1. Private Sub Worksheet_Calculate()
   
2. If Weekday(Date, 2) < 6 And Format(Now, "hh:mm:ss") = "09:00:00" Then Sheet2.[A65536].End(xlUp).Offset(1, 0).Resize(, 4) = Array(Date, [A1], [B1], [C1])
   
3. End Sub

½Æ»s¥N½X

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

victorl

¡i­Ó¤H¸gÅç¡j¦]¦³¥i¯à9:00¨Æ¥óIJµo®É¡A¦P®É¶}¤F¦h­ÓExcel files & Activeworkbook¨Ã¤£¬O¦¹±ý°õ¦æªºÀɮצӾɭP°õ¦æ¿ù»~°ÝÃD¡A¦]¦¹¦bPrivate Sub MyWork()
¶}©l³B¥[¤@§PÂ_¦¡¨Ã«ü©wActiveworkbook´N¥iÁקK°õ¦æ¿ù»~°ÝÃD¤F¡C
For Each wb In Workbooks
    If InStr(wb.Name, "*****") > 0 Then    '*****->ExcelÀɦW
        wb.Activate
        .
        .
        .
    End If
Next