ผมมีข้อส่งสัยเกี่ยวกับการพล๊อต Chart 2 อัน อยู่คนละ Sheet
Posted: Thu Oct 02, 2014 3:50 pm
คือ ผมจะพล๊อตข้อมูลที่ได้มาจากผลการเทสชิ้นงานจากโปรแกรมเล็บวิว(โปรแกรมมิ่งแบบกราฟฟิก)
โดยจะให้เล็บวิวส่งคำสั่ง VBA ไปที่ Excel โดยผมพยายามหาตัวอย่างในเน็ตมา (ตามโค้ดด้านล่าง)
ลองเทสดูซึ่ง ถ้าให้ Chart Name ทั้ง 2 Chart มีชื่อเดียวกันมันจะพล๊อตได้แต่อันแรก
แต่อันที่ 2 ใน Sheet ถัดไปจะไม่ได้และขึ้น Error
และถ้าไปแก้ชื่อตัวที่ 2 เป็น อีกชื่อ ก็จะ Error พล๊อตกราฟไม่ได้เลยครับ
รบกวนแนะนำหน่อยครับ มือใหม่ VBA และ Excel พยายามหาคีย์เวิร์ดเพื่อค้นในกูเกิลแต่ไม่รู้ใช้คำอะไรให้เจอคำตอบผม
โดยจะให้เล็บวิวส่งคำสั่ง 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
แนบ Code มาในไฟล์ด้วยจะได้สะดวกแก่การทดสอบ และทราบตำแหน่งการเขียน Code ครับ