ขอคำแนะนำโค้ด อัพเดท chart range ด้วยครับ.

[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)

[snasui]

ลองแนบไฟล์ตัวอย่างมาด้วย จะได้ช่วยทดสอบได้ครับ

[khanetnamnai]

ลองแนบไฟล์ตัวอย่างมาด้วย จะได้ช่วยทดสอบได้ครับ

รบกวนด้วยครับอาจารย์ โค้คจะอยู่ใน โมดูล3.

[snasui]

ช่วยแนบไฟล์ที่มีชีทตามที่เขียน Code

ใน Code อ้างถึงชีท AAV แต่ในไฟล์ไม่มีชีทนั้นครับ

[khanetnamnai]

ช่วยแนบไฟล์ที่มีชีทตามที่เขียน Code

ใน Code อ้างถึงชีท AAV แต่ในไฟล์ไม่มีชีทนั้นครับ

ขออภัยด้วยครับอาจารย์ พอดีผมตั้งใจจะเขียนโค้ดให้มันลบชีทและสร้างชีทขึ้นมาใหม่แทนที่ไปเลย.

[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

[khanetnamnai]

ค่อย ๆ ถามตอบกันไปครับ

ที่บอกว่า 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

ขอบพระคุณครับอาจารย์สำหรับโค้ดที่แนะนำ ขออนุญาตนำไปปรับใช้นะครับ หากเสร็จแล้วจะรบกวนอาจารย์ให้พิจารณาโค้ดที่ผมปรับแต่ง ว่าควรเพิ่มเติมหรือลดอะไรตรงไหนบ้างหรือไม่.