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

[µo°Ý] ¦p¦ó­×§ï¼W¥[©w®É§R°£

[µo°Ý] ¦p¦ó­×§ï¼W¥[©w®É§R°£

¤j®a¦n!
¦¹¥¨¶°¦b¨C3¬í·|§ìSheet2ªºB307:C307ªº¸ê®Æ¦bSheet1¤W
½Ð°Ý¦p¦ó­×§ï¼W¥[©w®É§R°£?
¦b¨C¤ÀÄÁªº²Ä 1 ¬í§R°£Sheet1ªºA2:C21ªº¸ê®Æ¡F§Ú¥u­n¨C¤ÀÄÁ¸Ì¨C3¬íªº¸ê®Æ¡A¤@ª½¨ìµ{¦¡³]©w°±¤î®É¶¡¡C

ÁÂÁÂ!

Option Explicit
Sub Ex()
    Dim Rng As Range, Rng1 As Range, i%
    If Time < TimeValue("09:00:00") Then
        Application.OnTime TimeValue("09:00:03"), "SHEET1.EX"
        Exit Sub
    ElseIf Time >= TimeValue("13:30:00") Then Exit Sub
    End If
    Set Rng = Sheets("SHEET2").Range("B307:C307")
    Set Rng1 = Cells(Rows.Count, "A").End(xlUp)(2)
    Rng1 = Time
    For i = 1 To Rng.Count
        Rng1(1, i + 1) = Rng(i)
    Next
    Application.OnTime Now() + TimeValue("00:00:03"), "SHEET1.EX"
End Sub
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¤j®a¦n!
¸É¥R»¡©ú
¦¹¥¨¶°¦b¨C3¬í·|§ìSheet2ªºB307:C307ªº¸ê®Æ¦bSheet1¤W
½Ð°Ý¦p¦ó­×§ï¼W¥[©w®É§R°£?
1.¦p¦ó³]©w¦b¨C¤ÀÄÁªº²Ä 1 ¬í§R°£Sheet1ªºA2:C21ªº¸ê®Æ?
2.¤]´N¬O¥u«O¯dSheet1ªºA2:C21¨C¤ÀÄÁªº¸ê®Æ(¨C3¬íªº¸ê®Æ¦@20µ§)¡A¤@ª½¨ìµ{¦¡³]©w°±¤î®É¶¡¡C

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

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD