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

[µo°Ý] ½Ð°Ý¦p¦ó­×¥¿µ{¦¡½X?

[µo°Ý] ½Ð°Ý¦p¦ó­×¥¿µ{¦¡½X?

¤j®a¦n!
¥H¤U¬O§Ú¥Î¤§«e¥¨¶°¥[¤W¿ý»s¡A°»¿ù¥X²{¿ù»~¡A½Ð°Ý¦p¦ó­×§ï?      ·PÁ¦U¦ì!
2011-06-16 22 41 22.jpg
¶À¦â«ü¼Ð«ü¦VRng1 = Time

Option Explicit
Sub ¤è¦V()
    Dim Rng As Range, Rng1 As Range, i%
    If Time < TimeValue("22:35:00") Then
        Application.OnTime TimeValue("22:35:01"), "¤è¦V.EX"
        Exit Sub
    ElseIf Time >= TimeValue("23:59:30") Then Exit Sub
    End If
    Sheets("Sheet1").Select
    Range("A2:C21").Select
    Selection.ClearContents
    Rng1 = Time
    Rng1(1, 2).Resize(1, Rng.Columns.Count) = Rng.Value
    Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 1), "¤è¦V.EX"
End Sub
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

Rng1³Q«Å§i¬°Rangeª«¥ó
·íµ{¦¡ÁÙ¨S½á­Èµ¹¸ÓÅܼƫe
Rng1¬O¤£¦s¦bªº¡A©Ò¥HµLªk±N­È¼g¤J¸Óª«¥ó
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁ¶W¯Åª©¥Dªº¦^ÂÐ!
¤p§Ì§V¤Oª¦¤å§ä¸ê®Æ¡A´N¬OµLªk§¹¦¨·Q­n¹F¦¨©w®É§R°£¸ê®Æªº¥\¯à¡A½Ð¦U¦ì«e½úÀ°¦£¤@¤U
1.©w®É§R°£Sheet1(A2:C21)¸ê®Æ
2.©ó09:00:00¶}©l°õ¦æµ{§Ç¡B13:35:00µ²§ôµ{§Ç
3.©ó09:01:01°õ¦æ²Ä¤@¦¸"¤è¦V.EX"¡B¤U¤@¦¸°õ¦æ"¤è¦V.EX"¦b¨C¤ÀÄÁªº²Ä¤@¬í

·PÁÂ!

¼Ò²Õ
Sub ¤è¦V()
        If Time < TimeValue("09:00:00") Then
        Application.OnTime TimeValue("09:01:01"), "¤è¦V.EX"
        Exit Sub
        ElseIf Time >= TimeValue("13:35:00") Then Exit Sub
        End If
    Sheets("Sheet1").Select
    Range("A2:C21").Select
    Selection.ClearContents
       Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 1), "¤è¦V.EX"
End Sub
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# wells330
§A¬O­n09:00:00«á¨C¹j¤@¤ÀÄÁ°õ¦æ¤@¦¸ Sub ¤è¦V() ¨ì 13:35:00°±¤î¶Ü?
­n«ü©úSub ¤è¦V()¦s©ñªº¼Ò²Õ    ¦p Application.OnTime TimeValue("09:01:01"), "SHEET1.¤è¦V"
Sub ¤è¦V()
        If Time < TimeValue("09:00:00") Then
        Application.OnTime TimeValue("09:01:01"), "¤è¦V.EX"   '¥i¯à¬O³o¸Ì¿ù»~
        Exit Sub
        ElseIf Time >= TimeValue("13:35:00") Then Exit Sub
        End If
    Sheets("Sheet1").Select
    Range("A2:C21").Select
    Selection.ClearContents
       Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 1), "¤è¦V.EX"   '¥i¯à¬O³o¸Ì¿ù»~
End Sub

TOP

RE: ½Ð°Ý¦p¦ó­×¥¿µ{¦¡½X?(¤w¸Ñ¨M)

GBKEEª©¥D§A¦n!
        ÁÂÁ§A«ü¥¿¡A´N¬O§A»¡ªº¦a¤è¿ù»~¡C

      ·PÁÂ!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD