ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ

[much8795]

- ผมมี Data ที่ดึงมาลงใน Excel แบบ Real time
- และผมเอามาคำนวณหาค่าด้วยสูตรง่ายๆ เพื่อหาค่าที่ต้องการ และค่านั้นก็จะเปลี่ยนแปลงตลอดเวลา (Real time) เหมือนกัน
- และข้อมูลต้นทางก็ที่ไม่มี Historical บันทึกไว้

> ผมต้องการบันทึกค่าที่ได้นั้นทุกๆ 1 นาที เป็น Historical data เก็บไว้ใน Excel
> เพื่อเอาไป Plot เป็นกราฟอีกที
> ช่วงเวลาบันทึกก็เป็นตอนเปิดไฟล์-ปิดไฟล์

ป.ล. ผมเขียน VBA ไม่เป็นครับ

รบกวนแนะนำด้วยครับ
ขอบคุณครับ

[snasui]

กฎกกติการของบอร์ดข้อ 5 ด้านบน คือต้องเขียนกันมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[much8795]

ได้ครับ ขอบคุณครับ

[much8795]

ผมได้ลอง codding เพื่อทำการ Record data เป็น เก็บ Historical data ด้วยวิธีการ capture real time data ใน excel ตามภาพครับ

RTD_AD.JPG

ผมต้องการให้การ Capture เป็นทุกๆ 1 นาทีครับ คือ 1 นาที Capture มาค่าเดียว แต่ตอนนี้มัน Capture มาทุกครั้งที่ข้อมูลเปลี่ยนไป ทำให้ข้อมูลไหลมามากเกินไป

Code ที่ทำเป็นตามนี้ครับ:

Code: Select all

Private Sub Worksheet_Calculate()
    capturerow = 2

    currow = Range("A65536").End(xlUp).Row

    Cells(currow + 1, 1) = Cells(capturerow, 1)
    Cells(currow + 1, 2) = Cells(capturerow, 2)
    Cells(currow + 1, 3) = Cells(capturerow, 3)
End Sub

ไม่ทราบว่าผมต้องแก้ไขยังไงได้ครับ

ขอบคุณครับ

[snasui]

กรุณาแนบไฟล์ตัวอย่างมาด้วยจะได้สะดวกในเขียนโค้ดของเพื่อนสมาชิกครับ

[much8795]

ผมได้แนบไฟล์ตัวอย่างมาครับ

A1 เป็น Link "Time" มาจากโปรแกรม Chart

B1, C1 เป็นค่าที่ได้จากการคำนวณการหาค่าผมรวมมาจาก Sheet "Data SET50"

Sheet: Data SET50 เป็นข้อมูล Real time ที่ Link มาจากโปรแกรม Chart แล้วมาหาค่าผลรวมใน column P-U

โปรแกรม Chart เป็นของ Bisnews ที่ให้บริการข้อมูล Real-Time data ครับ

ไม่ทราบว่าผมต้องแก้ Code ยังไงได้บ้างครับ
ขอบคุณครับ

[astalavista]

เครื่องผมใช้ RTD ไม่ได้
ลองปรับเป็นแบบนี้ดูครับ

Code: Select all

Private Sub Worksheet_Calculate()
    capturerow = 2

    currow = Range("A65536").End(xlUp).Row
    If Format(Cells(currow, 1), "HH:MM") <> Format(Cells(capturerow, 1), "HH:MM") Then
        Cells(currow + 1, 1) = Cells(capturerow, 1)
        Cells(currow + 1, 2) = Cells(capturerow, 2)
        Cells(currow + 1, 3) = Cells(capturerow, 3)
    End If
End Sub