วิธีสร้างแผนภูมิแท่งใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อสร้างแผนภูมิแท่งใน Excel โดยใช้ VBA:

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

มาโครนี้จะแจ้งให้ผู้ใช้ระบุช่วงอินพุต จากนั้นสร้างแผนภูมิแท่งโดยอัตโนมัติโดยใช้ช่วงอินพุตและแทรกลงในแผ่นงานที่เรียกว่า Sheet1 โดยที่มุมซ้ายบนของแผนภูมิอยู่ในเซลล์ที่ใช้งานอยู่ในปัจจุบัน

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แมโครนี้ในทางปฏิบัติ

ตัวอย่าง: วิธีสร้างแผนภูมิแท่งใน VBA

สมมติว่าเรามีชุดข้อมูลต่อไปนี้ใน Excel ซึ่งมีข้อมูลเกี่ยวกับคะแนนที่ทำโดยผู้เล่นบาสเก็ตบอลหลายคน:

สมมติว่าเราต้องการใช้ VBA เพื่อสร้างแผนภูมิแท่งโดยใช้ชุดข้อมูลนี้

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

หากต้องการเรียกใช้แมโครนี้ เราสามารถคลิกแท็บ นักพัฒนาซอฟต์แวร์ ที่แถบริบบิ้นด้านบนใน Excel จากนั้นคลิก มาโคร

จากนั้นเราสามารถคลิกที่ชื่อ CreateBarChart จากนั้นคลิกที่ Run :

เมื่อเราคลิก Run เราจะได้รับแจ้งให้ระบุช่วงอินพุตสำหรับแผนภูมิแท่งของเรา:

เราจะพิมพ์ A1:B7 แล้วกด OK

แผนภูมิแท่งต่อไปนี้จะถูกสร้างขึ้นและแสดงโดยอัตโนมัติโดยที่มุมซ้ายบนของแผนภูมิซึ่งอยู่ในเซลล์ที่ใช้งานอยู่ในปัจจุบัน ซึ่งเกิดขึ้นเป็นเซลล์ D1 :

หมายเหตุ : คุณสามารถเปลี่ยนค่าของอาร์กิวเมนต์ ความกว้าง และ ความสูงได้ ในฟังก์ชัน ChartObjects.Add() เพื่อปรับความกว้างและความสูงของแผนภูมิแท่งตามลำดับ

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีค้นหาบรรทัดที่ใช้ล่าสุด
VBA: วิธีนับจำนวนแถวในช่วง
VBA: วิธีนับจำนวนคอลัมน์ที่ใช้