كيفية إنشاء مخطط شريطي في 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 ثم النقر فوق “تشغيل” :

بمجرد النقر فوق “تشغيل” ، سيُطلب منا إدخال نطاق للمخطط الشريطي الخاص بنا:

سنكتب A1:B7 ، ثم نضغط OK .

سيتم تلقائيًا إنشاء المخطط الشريطي التالي وعرضه بالزاوية العلوية اليسرى من المخطط الموجود في الخلية النشطة حاليًا، والتي تصادف أنها الخلية D1 :

ملاحظة : يمكنك تغيير قيم وسيطتي العرض والارتفاع في الدالة ChartObjects.Add() لضبط عرض المخطط الشريطي وارتفاعه، على التوالي.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية العثور على آخر سطر مستخدم
فبا: كيفية حساب عدد الصفوف في النطاق
فبا: كيفية حساب عدد الأعمدة المستخدمة