Vba- ဖော်မတ်ချခြင်းဖြင့် လိုင်းတစ်ခုကို ထည့်သွင်းနည်း


၎င်းအပေါ်ရှိစာကြောင်းကဲ့သို့တူညီသောဖော်မတ်ပါစာကြောင်းတစ်ခုထည့်သွင်းရန် VBA တွင်အောက်ပါအထားအသိုကိုသုံးနိုင်သည်။

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

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

မှတ်ချက်Application.CutCopyMode = မက်ခရိုကို လုပ်ဆောင်ပြီးနောက် ဖြတ်ခြင်းနှင့် ကော်ပီမုဒ်ကို ပိတ်ထားသင့်သည်ဟု မှားယွင်းသော မျဉ်းက သတ်မှတ်သည်။

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

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

ဥပမာ- VBA တွင် ဖော်မတ်ချခြင်းဖြင့် စာကြောင်းကို ထည့်ပါ။

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

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

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

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

ထို့နောက် ကျွန်ုပ်တို့သည် ဆဲလ် A2 ကို ရွေးပြီး ဤမက်ခရိုကို လုပ်ဆောင်နိုင်သည်။

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

ကျွန်ုပ်တို့ထည့်သွင်းထားသောအတန်းအသစ်တွင် ဆဲလ်အရောင်များနှင့် ဘောင်အပါအဝင် အတန်း 2 ရှိ ဆဲလ်များနှင့် တူညီသောဖော်မတ်ရှိကြောင်း သတိပြုပါ။

ရှိပြီးသားဒေတာအတွဲရှိ အခြားအတန်းအားလုံးကို ရိုးရှင်းစွာ တွန်းချလိုက်ကြောင်းကိုလည်း သတိပြုပါ။

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

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

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

မှတ်ချက်တစ်ခုထည့်ပါ။

သင့် email လိပ်စာကို ဖော်ပြမည် မဟုတ်ပါ။ လိုအပ်သော ကွက်လပ်များကို * ဖြင့်မှတ်သားထားသည်