Vba: တန်ဖိုးများကို ကူးထည့်ရန်နှင့် ဖော်မတ်ချခြင်းကို ထိန်းသိမ်းနည်း

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

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

ဤအထူးမက်ခရိုသည် အပိုင်းအခြား A1:C11 ရှိဆဲလ်များကို ကူးယူမည်ဖြစ်ပြီး ၎င်းတို့၏ဖော်မတ်ချခြင်းဖြင့် ဆဲလ်တန်ဖိုးများကို ဆဲလ် A13 မှစတင်သည့်အပိုင်းအခြားသို့ ကူးထည့်မည်ဖြစ်သည်။

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

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

ဥပမာ- တန်ဖိုးများကို ကူးထည့်ကာ VBA ကို အသုံးပြု၍ ဖော်မတ်ချထားပါ။

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

A1:C11 အကွာအဝေးရှိ တန်ဖိုးအားလုံးကို တည်နေရာအသစ်တစ်ခုသို့ ကူးယူပြီး ဖော်မတ်ကို သိမ်းထားလိုသည်ဟု ဆိုကြပါစို့။

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

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

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

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

မှတ်ချက် – VBA PasteSpecial နည်းလမ်းအတွက် စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာနိုင်သည်။

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

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

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