ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

µ{¦¡½X¦p¦ó¼g(¥H³s±µEXCELªºDDE¼Æ¾Ú¨C¤ÀÄÁ¬ö¿ý)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-25 13:55 ½s¿è

¦^´_ 5# durian77

§Aªº°ÝÃD¬O ·í§A¨ìsheet2 ¬Ý¹Ï®É ·|µo¥Í¿ù»~¶Ü?
¦pªG¬O ¨º¤Ö¤F¤@ÂI(¬õÂI)
Private Sub download() '¦¹µ{§Ç»P Workbook_Open ¦P¦b ThisWorkbook¸Ì
    Dim TimeRange As Range, Rng As Range, R As Range, i%
    With Sheet1     
        Set TimeRange =. [A:A].Find(TimeSerial(Hour(Time), Minute(Time), "00"))
        Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
        For Each R In .Range("D2,D3")
            i = i + 1
            Rng(i) = R
        Next
    End With
    If Time > TimeValue("19:00:00") Then Exit Sub
    Application.OnTime Now + TimeValue("00:01"), "module1.download"
End Sub

TOP

¦^´_ 4# GBKEE
GBKEE¤jªº·N«ä¬O§ì¸ê®Æªºµ{¦¡½X¶Ü?
À³¸Ó¦³¤~¬Oªü
§Ú©ñ¦bmodule1
¸ê®ÆÂà¬Wª¬¹Ï¬O¥Î¹Ïªí¥h°µªº¡A©ñ¦bsheet2

Book1.rar (10.21 KB)

TOP

¦^´_ 3# durian77
§A¥Ø«eªº°ÝÃD¦b¸ê®ÆÂন¬Wª¬¹Ï·|¥X¿ù ¥i¬OªþÀɤ¤¨S¬Ý¨ì¬ÛÃöªºµ{¦¡½X?
¥i­«·s¶ÇÀɶÜ?

TOP

GBKEE¤j§A¦n:

¥ý·PÁ§Aªº¦^ÂÐ!§Ú­ì¥»¬O·Q¥Îexcel°O¿ý¤U¨C¤ÀÄÁ¥x«ü´Á©M¥xªÑ«ü¼Æªº»ù®t¡A¦A¹º¦¨¬Wª¬¹Ï¡C
¦b°Ñ¦Ò§A¤§«e¦^ÂЧO¤Hªº¤å³¹«á¡AÃö©ó¨C¤ÀÄÁ§ì¸ê®Æ³o³¡¤À¤w¸g¨S°ÝÃD¤F¡A¦ý¬O¥Ø«eªº°ÝÃD¦b¸ê®ÆÂন¬Wª¬¹Ï®É¡A·|¥X²{''°õ¦æ¶¥¬q¿ù»~'424'¡A¦¹³B»Ý­nª«¥ó''¡A«ö°»¿ù«á¡A¤Ï¶À¥X²{¤U¦CSet TimeRange = [A:A].Find(TimeSerial(Hour(Time), Minute(Time), "00"))¡A±µ¤U¨Óexcel´N¨S¿ìªk¥¿±`ªº§ì¸ê®Æ¤F¡A¦ý¬O§Ú§â¹Ï§R±¼¡A¦A­«·s¶]µ{¦¡¤S¥i¥H¡A¹ê¦b¬O«Ü¯Ç´e¡C
¦]¬°¥xªÑ¦¬½L¤F¡A©Ò¥H§Ú¥Î¼w°êÁÙ¦³­^°êªº«ü¼Æ§@½m²ß¡A¬Wª¬¹Ï¦bsheet2¡A¥Î´I¨¹e01¶Ç°e¸ê®Æ
·PÁ¦^ÂСA¤£³Ó·P¿E!!!

Book1.rar (10.21 KB)

TOP

¦^´_ 1# durian77
¤W¶Ç§AªºÀÉ®×,»¡»¡§Aªº°ÝÃD!

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD