ªð¦^¦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 : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD