Vba တွင် bar chart ဖန်တီးနည်း (ဥပမာနှင့်အတူ)

VBA ကို အသုံးပြု၍ Excel တွင် bar chart တစ်ခုဖန်တီးရန် အောက်ပါအခြေခံ syntax ကိုသုံးနိုင်သည်။

 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 ဟုခေါ်သော စာရွက်တွင် ၎င်းကို ထည့်သွင်းပါ။

အောက်ဖော်ပြပါ ဥပမာသည် ဤ macro ကို လက်တွေ့တွင် အသုံးပြုနည်းကို ပြသထားသည်။

ဥပမာ- VBA တွင် Bar Chart ဖန်တီးနည်း

ကျွန်ုပ်တို့တွင် ဘတ်စကက်ဘောကစားသမားအမျိုးမျိုးမှ ရမှတ်ရမှတ်များအကြောင်း အချက်အလက်ပါရှိသော Excel တွင် အောက်ပါဒေတာအတွဲရှိသည်ဆိုပါစို့။

ဤဒေတာအစုံကိုအသုံးပြု၍ ဘားဇယားတစ်ခုဖန်တီးရန် VBA ကိုအသုံးပြုလိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 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

ဤ macro ကို run ရန်၊ Excel ရှိ ထိပ်တန်း ribbon တစ်လျှောက် Developer tab ကို နှိပ်ပြီး Macros ကို နှိပ်နိုင်ပါသည်။

ထို့နောက် ကျွန်ုပ်တို့သည် CreateBarChart ဟုအမည်တပ်ထားသည့်တစ်ခုကိုနှိပ်ပြီးနောက် Run ကိုနှိပ်နိုင်သည်။

Run ကို နှိပ်လိုက်သည်နှင့် ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ ဘားဇယားအတွက် ထည့်သွင်းမှုအပိုင်းအတွက် သတိပေးခံရလိမ့်မည်-

A1:B7 လို့ရိုက်ပြီး OK ကို နှိပ်ပါမယ်။

အောက်ဖော်ပြပါ ဘားဇယားကို အလိုအလျောက်ဖန်တီးပြီး ဆဲလ် D1 ဖြစ်သည့် လက်ရှိအသုံးပြုနေသည့်ဆဲလ်တွင်ရှိသော ဇယား၏ဘယ်ဘက်အပေါ်ထောင့်တွင် ပြသသွားမည်ဖြစ်သည်။

မှတ်ချက် – ဘားကားချပ်၏ အကျယ် နှင့် အမြင့်ကို အသီးသီးချိန်ညှိရန် ChartObjects.Add() လုပ်ဆောင်ချက်တွင် အနံနှင့် အ မြင့် အငြင်းအခုံများ၏ တန်ဖိုးများကို သင်ပြောင်းလဲနိုင်သည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA- နောက်ဆုံးသုံးထားသောစာကြောင်းကို ဘယ်လိုရှာမလဲ။
VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း
VBA- အသုံးပြုထားသော ကော်လံအရေအတွက်ကို ရေတွက်နည်း