GBKEE

回復 1# durian77
上傳你的檔案,說說你的問題!

GBKEE

回復 3# durian77
你目前的問題在資料轉成柱狀圖會出錯 可是附檔中沒看到相關的程式碼?
可重新傳檔嗎?

GBKEE

回復 5# durian77

你的問題是 當你到sheet2 看圖時 會發生錯誤嗎?
如果是 那少了一點(紅點)
Private Sub download() '此程序與 Workbook_Open 同在 ThisWorkbook裡
    Dim TimeRange As Range, Rng As Range, R As Range, i%
    With Sheet1     
        Set TimeRange =. [A:A].Find(TimeSerial(Hour(Time), Minute(Time), "00"))
        Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
        For Each R In .Range("D2,D3")
            i = i + 1
            Rng(i) = R
        Next
    End With
    If Time > TimeValue("19:00:00") Then Exit Sub
    Application.OnTime Now + TimeValue("00:01"), "module1.download"
End Sub

GBKEE

回復 12# andylin
沒權限download附件,但可上傳附件(壓縮檔)看看