วิธีดึงข้อมูลจากแผนภูมิหรือกราฟใน Excel
ดึงข้อมูลจากแผนภูมิด้วย VBA
ดึงข้อมูลจากแผนภูมิด้วย VBA
1. คุณต้องสร้างแผ่นงานใหม่และเปลี่ยนชื่อเป็น ข้อมูลแผนภูมิ. ดูภาพหน้าจอ:
2. จากนั้นเลือกแผนภูมิที่คุณต้องการดึงข้อมูลจากนั้นกด Alt + F11 คีย์พร้อมกันและก Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างปรากฏขึ้น
3 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงใน popping โมดูล หน้าต่าง
VBA: ดึงข้อมูลจากแผนภูมิ
Sub GetChartValues()
'Updateby20220510
Dim xNum As Integer
Dim xSeries As Object
On Error Resume Next
xCount = 2
xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
With Application.Worksheets("ChartData")
.Range(.Cells(2, 1), _
.Cells(xNum + 1, 1)) = _
Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
End With
For Each xSeries In Application.ActiveChart.SeriesCollection
Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
With Application.Worksheets("ChartData")
.Range(.Cells(2, xCount), _
.Cells(xNum + 1, xCount)) = _
Application.WorksheetFunction.Transpose(xSeries.Values)
End With
xCount = xCount + 1
Next
End Sub
4 จากนั้นคลิก วิ่ง เพื่อเรียกใช้ VBA ดูภาพหน้าจอ:
จากนั้นคุณจะเห็นข้อมูลถูกดึงไปที่ ข้อมูลแผนภูมิ แผ่น.
เคล็ดลับ:
1. คุณสามารถจัดรูปแบบเซลล์ได้ตามที่คุณต้องการ
2. ข้อมูลของแผนภูมิที่เลือกจะถูกแยกไปยังเซลล์แรกของแผ่นงาน ChartData เป็นค่าเริ่มต้น
เคล็ดลับ: หากคุณมักจะใช้แผนภูมิที่ซับซ้อนใน Excel ซึ่งจะเป็นปัญหาเมื่อคุณสร้างขึ้นในเวลาอันรวดเร็วที่นี่ด้วยไฟล์ ข้อความอัตโนมัติ เครื่องมือของ Kutools สำหรับ Excelคุณต้องสร้างแผนภูมิในครั้งแรกจากนั้นเพิ่มแผนภูมิในบานหน้าต่างข้อความอัตโนมัติจากนั้นคุณสามารถนำมาใช้ซ้ำได้ทุกที่ทุกเวลาสิ่งที่คุณต้องทำคือเปลี่ยนการอ้างอิงให้ตรงกับความต้องการที่แท้จริงของคุณ คลิกเพื่อดาวน์โหลดฟรีทันที. |
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!