ผมมีข้อส่งสัยเกี่ยวกับการพล๊อต Chart 2 อัน อยู่คนละ Sheet

[ph_sarawut]

คือ ผมจะพล๊อตข้อมูลที่ได้มาจากผลการเทสชิ้นงานจากโปรแกรมเล็บวิว(โปรแกรมมิ่งแบบกราฟฟิก)
โดยจะให้เล็บวิวส่งคำสั่ง VBA ไปที่ Excel โดยผมพยายามหาตัวอย่างในเน็ตมา (ตามโค้ดด้านล่าง)
ลองเทสดูซึ่ง ถ้าให้ Chart Name ทั้ง 2 Chart มีชื่อเดียวกันมันจะพล๊อตได้แต่อันแรก
แต่อันที่ 2 ใน Sheet ถัดไปจะไม่ได้และขึ้น Error
และถ้าไปแก้ชื่อตัวที่ 2 เป็น อีกชื่อ ก็จะ Error พล๊อตกราฟไม่ได้เลยครับ

รบกวนแนะนำหน่อยครับ มือใหม่ VBA และ Excel พยายามหาคีย์เวิร์ดเพื่อค้นในกูเกิลแต่ไม่รู้ใช้คำอะไรให้เจอคำตอบผม

Code: Select all

Sub Format1Chart()

Dim ValChart
Dim XVal
Application.ScreenUpdating = False
XVal = Array(0.000,1.000,2.000,3.000,4.000,5.000,6.000,7.000,8.000,9.000)
ValChart = Array(0.808,1.937,4.663,9.621,16.147,25.798,36.868,49.249,64.942,81.613)
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).XValues = XVal
ActiveChart.SeriesCollection(1).Values = ValChart
ActiveChart.Location Where:=xlLocationAsObject, Name:="Initial Test"
Application.ScreenUpdating = True


Dim ValChart2
Dim XVal2
Application.ScreenUpdating = False
XVal2 = Array(0.000,1.000,2.000,3.000,4.000,5.000,6.000,7.000,8.000,9.000)
ValChart2 = Array(0.232,1.219,2.730,3.783,4.001,5.601,6.359,7.593,8.196,9.402)
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(1).XValues = XVal2
ActiveChart.SeriesCollection(1).Values = ValChart2
ActiveChart.Location Where:=xlLocationAsObject, Name:="Final Test"
Application.ScreenUpdating = True

End Sub

[snasui]

แนบ Code มาในไฟล์ด้วยจะได้สะดวกแก่การทดสอบ และทราบตำแหน่งการเขียน Code ครับ

สำหรับไฟล์ที่จะแนบ Code ได้อย่างน้อยต้องมีนามสกุลเป็น .xlsm ไม่ใช่ .xlsx ครับ

[ph_sarawut]

แนบ Code มาในไฟล์ด้วยจะได้สะดวกแก่การทดสอบ และทราบตำแหน่งการเขียน Code ครับ

สำหรับไฟล์ที่จะแนบ Code ได้อย่างน้อยต้องมีนามสกุลเป็น .xlsm ไม่ใช่ .xlsx ครับ

อ่อ ครับ ผมมือใหม่จริงๆถึงว่าทำไม่เซฟไม่ได้
เดี๋ยวผมขอแก้ก่อนครับ

[ph_sarawut]

ผมลองทำดูใหม่แล้วครับ แก้ปัญหาได้แล้วครับ ใช้ชื่อของ Chart เดียวกัน
ขอบคุณครับ