標題: [發問] 請問版主,這樣修改行的通嗎? [打印本頁]

---

作者: tony.fang6413    時間: 2010-9-30 15:29     標題: 請問版主,這樣修改行的通嗎?

本帖最後由 Hsieh 於 2010-10-5 09:53 編輯

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

---

作者: Hsieh    時間: 2010-9-30 16:45

測試看看
[attach]2931[/attach]

---

作者: GBKEE    時間: 2010-10-1 20:21

回復 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    時間: 2010-10-5 01:49

回復 2# Hsieh


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)