Page 1 of 1
ขอคำแนะนำโค้ด อัพเดท chart range ด้วยครับ.
Posted: Wed Sep 24, 2014 6:52 pm
by khanetnamnai
ผมมีตารางข้อมูลและกราฟเส้นที่ต้องมีการอัพเดททุกๆวัน ซึ่งผมลองเขียนโค้ดให้อัพเดทกราฟอัตโนมัติแล้ว แต่โค้ดไม่ทำงานครับ รบกวนแนะนำด้วยครับ.
Code: Select all
Sheets("Graph").Select
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.ChartArea.Copy
Range("AK2").Select
ActiveSheet.Paste
'Sheets("E").Range("H3").Select
'ActiveChart.SetSourceData Source:=Sheets("E").Range(Selection, Selection.End(xlDown))
ActiveChart.SetSourceData Source:=Sheets("E").Range(Selection, Selection.End(xlDown)).Row, PlotBy:=xlColumns
Selection.End (xlDown)
Re: ขอคำแนะนำโค้ด อัพเดท chart range ด้วยครับ.
Posted: Wed Sep 24, 2014 10:12 pm
by snasui
ลองแนบไฟล์ตัวอย่างมาด้วย จะได้ช่วยทดสอบได้ครับ
Re: ขอคำแนะนำโค้ด อัพเดท chart range ด้วยครับ.
Posted: Thu Sep 25, 2014 11:56 am
by khanetnamnai
snasui wrote: ลองแนบไฟล์ตัวอย่างมาด้วย จะได้ช่วยทดสอบได้ครับ
รบกวนด้วยครับอาจารย์ โค้คจะอยู่ใน โมดูล3.
Re: ขอคำแนะนำโค้ด อัพเดท chart range ด้วยครับ.
Posted: Thu Sep 25, 2014 1:44 pm
by snasui
ช่วยแนบไฟล์ที่มีชีทตามที่เขียน Code
ใน Code อ้างถึงชีท AAV แต่ในไฟล์ไม่มีชีทนั้นครับ
Re: ขอคำแนะนำโค้ด อัพเดท chart range ด้วยครับ.
Posted: Sat Sep 27, 2014 12:52 pm
by khanetnamnai
snasui wrote: ช่วยแนบไฟล์ที่มีชีทตามที่เขียน Code
ใน Code อ้างถึงชีท AAV แต่ในไฟล์ไม่มีชีทนั้นครับ
ขออภัยด้วยครับอาจารย์ พอดีผมตั้งใจจะเขียนโค้ดให้มันลบชีทและสร้างชีทขึ้นมาใหม่แทนที่ไปเลย.
Re: ขอคำแนะนำโค้ด อัพเดท chart range ด้วยครับ.
Posted: Sat Sep 27, 2014 1:21 pm
by snasui
ค่อย ๆ ถามตอบกันไปครับ
ที่บอกว่า Update ทุกวันมีขั้นตอนอย่างไรบ้าง Update อะไรบ้าง
จากตัวอย่างกราฟที่แนบมามีหลายเส้นกราฟ แต่จาก Code ที่เขียนมานั้นเป็นการสร้างกราฟใหม่ ไม่ได้ Update กราฟเดิม
ลองอธิบายถึงสิ่งที่ต้องการมาอีกรอบ และสำหรับ Code ใน Module 3 ได้กำหนดช่วงข้อมูลที่ใช้ทำกราฟมาไม่ถูกต้อง Code ที่ทำงานได้คือด้านล่าง ซึ่งผมนำมาเพียงบางส่วนที่ต้องปรับ
Code: Select all
'Other code
ActiveChart.SetSourceData Source:=Range(Sheets("NewPjc").Range("Z3"), _
Sheets("NewPjc").Range("Z3").End(xlDown))
'Other code
Re: ขอคำแนะนำโค้ด อัพเดท chart range ด้วยครับ.
Posted: Mon Sep 29, 2014 1:24 pm
by khanetnamnai
snasui wrote: ค่อย ๆ ถามตอบกันไปครับ
ที่บอกว่า Update ทุกวันมีขั้นตอนอย่างไรบ้าง Update อะไรบ้าง
จากตัวอย่างกราฟที่แนบมามีหลายเส้นกราฟ แต่จาก Code ที่เขียนมานั้นเป็นการสร้างกราฟใหม่ ไม่ได้ Update กราฟเดิม
ลองอธิบายถึงสิ่งที่ต้องการมาอีกรอบ และสำหรับ Code ใน Module 3 ได้กำหนดช่วงข้อมูลที่ใช้ทำกราฟมาไม่ถูกต้อง Code ที่ทำงานได้คือด้านล่าง ซึ่งผมนำมาเพียงบางส่วนที่ต้องปรับ
Code: Select all
'Other code
ActiveChart.SetSourceData Source:=Range(Sheets("NewPjc").Range("Z3"), _
Sheets("NewPjc").Range("Z3").End(xlDown))
'Other code
ขอบพระคุณครับอาจารย์สำหรับโค้ดที่แนะนำ ขออนุญาตนำไปปรับใช้นะครับ หากเสร็จแล้วจะรบกวนอาจารย์ให้พิจารณาโค้ดที่ผมปรับแต่ง ว่าควรเพิ่มเติมหรือลดอะไรตรงไหนบ้างหรือไม่.