Vba တွင် အတန်းအမြင့်ကို မည်သို့ပြောင်းနည်း (ဥပမာများဖြင့်)

VBA ကို အသုံးပြု၍ Excel တွင် အတန်းအမြင့်ကို ပြောင်းလဲရန် အောက်ပါနည်းလမ်းများကို သင်သုံးနိုင်သည်။

နည်းလမ်း 1- အတန်းတစ်ခု၏အမြင့်ကိုပြောင်းပါ။

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

ဤအထူးမက်ခရိုသည် တတိယအတန်း၏အမြင့်ကို 40 သို့ပြောင်းသည်။

မှတ်ချက် – Excel တွင် မူရင်းအတန်းအမြင့်သည် 14.4 ဖြစ်သည်။

နည်းလမ်း 2- အတန်းများစွာ၏ အမြင့်ကို ပြောင်းပါ။

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

ဤထူးခြားသော macro သည် အတန်းတစ်ခုစီ၏ အမြင့်ကို တစ်ခုမှ ငါးမှ 40 သို့ ပြောင်းသည်။

နည်းလမ်း 3- အတန်းများစွာ၏အမြင့်ကို အလိုအလျောက်ချိန်ညှိပါ။

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

ဤ macro သည် စာကြောင်းတစ်ခုစီ၏ အမြင့်ကို တစ်ကြောင်းမှ ရှစ်အထိ အလိုအလျောက် ချိန်ညှိပေးသည် ဖြစ်သောကြောင့် စာကြောင်းတစ်ခုစီရှိ အမြင့်ဆုံးစာသားကို ပြသရန် လိုအပ်သလောက် အရပ်ရှည်သည်။

အောက်ဖော်ပြပါနမူနာများသည် Excel တွင်အောက်ပါဒေတာအစုံအလင်ဖြင့် ဤနည်းလမ်းတစ်ခုစီကို လက်တွေ့အသုံးပြုနည်းကိုပြသသည်-

ဆက်စပ်- VBA တွင် ကော်လံအကျယ်ကို မည်သို့ပြောင်းနည်း

ဥပမာ 1- အတန်းတစ်ခု၏အမြင့်ကို ပြောင်းပါ။

တတိယအတန်း၏အမြင့်ကို 40 သို့ပြောင်းရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်။

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

အခြားအတန်းအားလုံး၏ အမြင့်သည် တူညီနေသော်လည်း တတိယအတန်း၏ အမြင့်ကို 40 သို့ တိုးထားသည်ကို သတိပြုပါ။

ဥပမာ 2- စာကြောင်းများစွာ၏ အမြင့်ကို ပြောင်းပါ။

အတန်းတစ်ခုစီ၏အမြင့်ကို တစ်ခုမှ ငါးမှ 40 သို့ပြောင်းရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်။

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

အခြားအတန်းအားလုံး၏အမြင့်သည် တူညီနေသော်လည်း ပထမတန်းငါးတန်းစီ၏ အမြင့်သည် 40 သို့ပြောင်းသွားသည်ကို သတိပြုပါ။

ဥပမာ 3- အတန်းများစွာ၏အမြင့်ကို အလိုအလျောက်ချိန်ညှိခြင်း။

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

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

စာကြောင်းတစ်ခုစီ၏ အမြင့်ကို မျဉ်းတစ်ကြောင်းစီရှိ အမြင့်ဆုံးစာသားကိုပြသရန် လိုအပ်သလို အရပ်ရှည်ရန် အလိုအလျောက်ချိန်ညှိထားသည်ကို သတိပြုပါ-

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

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

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