[發問] 求教Excel 自動記錄

solitary16

各位大大， 有方法可以用Excel 自動記錄A1的每分鐘數值并按時間記錄結果嘛？

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每分鐘紀錄更新()
    Dim mySht來源 As Worksheet
        Set mySht來源 = Worksheets("資料來源")
    Dim myRng來源 As Range
        Set myRng來源 = mySht來源.Range("A1")
   
    Dim mySht紀錄 As Worksheet
        Set mySht紀錄 = Worksheets("每分鐘紀錄資料")
    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