Page 1 of 1
ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ
Posted: Tue Nov 27, 2018 4:56 pm
by much8795
- ผมมี Data ที่ดึงมาลงใน Excel แบบ Real time
- และผมเอามาคำนวณหาค่าด้วยสูตรง่ายๆ เพื่อหาค่าที่ต้องการ และค่านั้นก็จะเปลี่ยนแปลงตลอดเวลา (Real time) เหมือนกัน
- และข้อมูลต้นทางก็ที่ไม่มี Historical บันทึกไว้
> ผมต้องการบันทึกค่าที่ได้นั้นทุกๆ 1 นาที เป็น Historical data เก็บไว้ใน Excel
> เพื่อเอาไป Plot เป็นกราฟอีกที
> ช่วงเวลาบันทึกก็เป็นตอนเปิดไฟล์-ปิดไฟล์
ป.ล. ผมเขียน VBA ไม่เป็นครับ
รบกวนแนะนำด้วยครับ
ขอบคุณครับ
Re: ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ
Posted: Tue Nov 27, 2018 10:45 pm
by snasui
กฎกกติการของบอร์ดข้อ 5 ด้านบน
คือต้องเขียนกันมาเองก่อน ติดแล้วค่อยถามกันต่อครับ
Re: ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ
Posted: Wed Nov 28, 2018 10:02 am
by much8795
ได้ครับ ขอบคุณครับ
Re: ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ
Posted: Thu Nov 29, 2018 4:41 pm
by 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
ไม่ทราบว่าผมต้องแก้ไขยังไงได้ครับ
ขอบคุณครับ
Re: ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ
Posted: Thu Nov 29, 2018 8:32 pm
by snasui
กรุณาแนบไฟล์ตัวอย่างมาด้วยจะได้สะดวกในเขียนโค้ดของเพื่อนสมาชิกครับ
Re: ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ
Posted: Fri Nov 30, 2018 4:14 pm
by 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 ยังไงได้บ้างครับ
ขอบคุณครับ
Re: ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ
Posted: Fri Nov 30, 2018 5:11 pm
by 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