[µo°Ý] ¨D±ÐExcel ¦Û°Ê°O¿ý

solitary16

¦U¦ì¤j¤j¡A ¦³¤èªk¥i¥H¥ÎExcel ¦Û°Ê°O¿ýA1ªº¨C¤ÀÄÁ¼Æ­È¦}«ö®É¶¡°O¿ýµ²ªG¹À¡H

carloslin0316

¦^´_ 1# solitary16


    Sub test()

If (Cells(1, 3) = "") Then
    Cells(1, 3) = Cells(1, 1)
ElseIf (Cells(2, 3) = "") Then
    Cells(2, 3) = Cells(1, 1)
Else
    startrow = Range("c1").End(xlDown).Row + 1
    Cells(startrow, 3) = Cells(1, 1)
End If

Application.OnTime Now + TimeValue("00:01:00"), "test"

End Sub

JasonChen576

Sub Sb¨C¤ÀÄÁ¬ö¿ý§ó·s()
    Dim mySht¨Ó·½ As Worksheet
        Set mySht¨Ó·½ = Worksheets("¸ê®Æ¨Ó·½")
    Dim myRng¨Ó·½ As Range
        Set myRng¨Ó·½ = mySht¨Ó·½.Range("A1")
   
    Dim mySht¬ö¿ý As Worksheet
        Set mySht¬ö¿ý = Worksheets("¨C¤ÀÄÁ¬ö¿ý¸ê®Æ")
    Dim myRng¬ö¿ý®É¶¡  As Range
        Set myRng¬ö¿ý®É¶¡ = mySht¬ö¿ý.Range("A1")
    Dim myRng¬ö¿ý¸ê®Æ  As Range
        Set myRng¬ö¿ý¸ê®Æ = mySht¬ö¿ý.Range("B1")
        
    Dim myMinute As Integer
        myMinute = Minute(Time)
   
    myRng¬ö¿ý®É¶¡ = Time
    myRng¬ö¿ý¸ê®Æ = myRng¨Ó·½
    i = 0
    Do
        DoEvents
        If myMinute <> Minute(Time) Then
            i = i + 1
            myRng¬ö¿ý®É¶¡.Offset(i, 0) = Time
            myRng¬ö¿ý¸ê®Æ.Offset(i, 0) = myRng¨Ó·½
            myMinute = Minute(Time)
        End If
    Loop
End Sub