[發問] 請問版主,這樣修改行的通嗎?

tony.fang6413

test.zip (9.83 KB)

下載次數: 4

2010-9-30 15:28

我要將sheet1內的F1:F2 的值,將其每分鐘記錄到sheet2  C3:D3, 我將您之前的程式修改一下,但不知道這樣是否正確,可否麻煩您幫我看一下!!

Hsieh

測試看看
DDEtest.rar (10.89 KB)

下載次數: 7

2010-9-30 16:45

GBKEE

回復 1# tony.fang6413
附檔程式碼 Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
在 A欄尋找時間是錯誤的  時間在B欄
修改你的程式碼如下
Private Sub Workbook_Open()
    If Time < Sheet2.[B3] Then
        Application.OnTime Sheet2.[B3].Value, "ThisWorkbook.Achange"
    Else
        Achange
    End If
End Sub
Private Sub Achange()
    Dim TimeRange As Range
    Set TimeRange = Sheet2.[B:B].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
    If Not TimeRange Is Nothing Then
        TimeRange.Offset(, 1).Resize(1, 2) = Array(Sheet1.[F1], Sheet1.[F2])
        Application.OnTime TimeSerial(Hour(Time), Minute(Time) + 1, 0), "ThisWorkbook.Achange"
    End If
End Sub

tony.fang6413

回復 2# Hsieh


    感謝版大,經過2天測試一切OK!那現在如果我要把D1 D2, H1 H2,的資料一樣記錄到sheet3跟sheet4又該如何修改啊?