Data realtime แสดงด้วย pivot table จาก access query

[snasui]

อาจารย์ครับจากตรงนี้ ถ้าผมเปลี่ยนเป็น -1 หมายความว่าให้เอาข้อมูลประวัติก่อนหน้าจนถึงวันที่เวลาตามที่เลือกในช่อง B2 ใช่ไหมครับ เพราะผมลองเปลี่ยนแล้วมันโอเค นำไปใช้ได้ไใช่ไหมครับ และนำไปประยุกต์ใช้ในเรื่องอื่นๆได้ด้วยใช่ไหมครับ ผมตื่นเต้นมากที่มันทำได้
CDbl(r.Offset(, -2)) <= CDbl(Worksheets("Pivot Summary").Range("B2")) Then

-2 ตามด้านบนเป็นการระบุค่าในเซลล์ครับ หากเปลี่ยนเป็น -1 ก็จะไปอ้างอิงเซลล์อื่น ทำให้เงื่อนไขไม่ถูกต้อง ส่วนคำตอบที่ถูกต้องอาจจะเป็นความบังเอิญ

r.Offset(0,-2) หมายถึงเซลล์ด้านซ้ายของเซลล์ตัวแปร r ซึ่งเป็นเซลล์ที่ 2 (ไม่นับตัวแปร r)
r.Offset(0,-1) หมายถึงเซลล์ด้านซ้ายของเซลล์ตัวแปร r ซึ่งเป็นเซลล์ที่ 1 (ไม่นับตัวแปร r)
r.Offset(0,0) หมายถึงเซลล์ตัวแปร r

ส่วนไฟล์ที่แนบมาไม่มี Code มาด้วยครับ เงื่อนไขจากวันที่ x ถึงวันที่ y จะต้องมีช่องให้ระบุวันที่ทั้งสองวันด้วยนะครับ

ส่วนถ้าจะหาวันที่ในวันก่อนหน้าจนถึงวันที่ใน B2 ตามที่อธิบายมาในเซลล์ D4 ผมเขียน Code ให้แล้วตามนี้ครับ

สำหรับ Code ที่ผมเขียนนั้น เป็นการตรวจสอบตามด้านล่างครับ

ในเซลล์ B2 ชีท Pivot Summary กรอกวันที่ใดไว้ โปรแกรมจะดึงข้อมูลตั้งแต่วันนั้นจนถึงปัจจุบันครับ ถ้ากรอกวันที่ปัจจุบันก็ได้ข้อมูลเพียงวันปัจจุบันเท่านั้นครับ

ผมปรับ Code ให้ใหม่ตามด้านล่างเพื่อให้ Run ได้แม้ว่าจะเกิด Error ครับ

Code: Select all

Sub FillData()
Dim rAll As Range
Dim r As Range
On Error Resume Next
With Worksheets("Data input")
    Set rAll = .Range("E2", .Range("E2").End(xlDown))
End With
For Each r In rAll
    If CInt(Mid(r, 3, 3)) = Worksheets("Pivot Summary").Range("B1") And _
        (CDbl(r.Offset(, -2)) >= CDbl(Worksheets("Pivot Summary").Range("B2")) _
        And CDbl(r.Offset(, -2)) <= CDbl(Date + Time)) Then
            r.Offset(, 8) = True
    Else
            r.Offset(, 8) = False
    End If
Next r
If Application.CountIf(Worksheets("Data input").Range("M:M"), True) = 0 Then
    MsgBox "Can not found data."
    Exit Sub
Else
    Worksheets("Pivot Summary").PivotTables(1).PivotCache.Refresh
End If
MsgBox "Finish."
End Sub