Vba ကို အသုံးပြု၍ excel တွင် sheets အသစ်များထည့်နည်း

Excel workbook တွင် စာရွက်အသစ်များထည့်ရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်-

နည်းလမ်း 1- စာရွက်အသစ်တစ်ခုထည့်ပါ။

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

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

ဥပမာအားဖြင့်၊ အလုပ်စာအုပ်တွင် စာရွက် ၃ ရွက်ရှိပြီး ဤ macro ကို သင်လုပ်ဆောင်ပါက၊ Sheet4 အမည်ဖြင့် စာရွက်အသစ်တစ်ခုကို ဖန်တီးပါမည်။

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

နည်းလမ်း 2- စာရွက်အသစ်များစွာကို ထည့်ပါ။

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

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

နည်းလမ်း 3- အမည်တစ်ခုဖြင့် စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

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

နည်းလမ်း 4- သီးခြားစာရွက်တစ်ခုရှေ့တွင် အမည်တစ်ခုဖြင့် စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

ဤ macro သည် Teams ဟုခေါ်သော ရှိပြီးသားစာရွက်ရှေ့တွင် MyNewSheet အမည်ဖြင့် အလုပ်စာအုပ်တွင် စာရွက်အသစ်တစ်ခုကို ပေါင်းထည့်ပါမည်။

နည်းလမ်း 5- သီးခြားစာရွက်တစ်ခုပြီးနောက် အမည်တစ်ခုဖြင့် စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

ဤ macro သည် Teams ဟုခေါ်သော ရှိပြီးသားစာရွက်နောက်တွင် MyNewSheet အမည်ဖြင့် အလုပ်စာအုပ်တွင် စာရွက်အသစ်တစ်ခုကို ပေါင်းထည့်ပါမည်။

နည်းလမ်း 6- အလုပ်စာအုပ်၏အဆုံးတွင် အမည်တစ်ခုပါသော စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

ဤမက်ခရိုသည် အလုပ်စာအုပ်၏အဆုံးတွင် MyNewSheet အမည်ဖြင့် အလုပ်စာအုပ်တွင် စာရွက်အသစ်တစ်ခုကို ပေါင်းထည့်မည်ဖြစ်သည်။

နည်းလမ်း 7- အလုပ်စာအုပ်၏အစတွင် အမည်တစ်ခုဖြင့် စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

ဤမက်ခရိုသည် အလုပ်စာအုပ်၏အစတွင် MyNewSheet အမည်ဖြင့် အလုပ်စာအုပ်တွင် စာရွက်အသစ်တစ်ခုကို ပေါင်းထည့်မည်ဖြစ်သည်။

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

ဥပမာ 1- စာရွက်အသစ်တစ်ခုထည့်ပါ။

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

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ မက်ခရိုကိုလုပ်ဆောင်သောအခါ ကျွန်ုပ်တို့ရွေးချယ်ထားသော Teams စာရွက်ရှေ့၌ Sheet4 အမည်ဖြင့် စာရွက်အသစ်တစ်ခုကို ပေါင်းထည့်သည်-

ဥပမာ 2- စာရွက်အသစ်များစွာကို ထည့်ပါ။

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

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ မက်ခရိုကိုလည်ပတ်သောအခါ ကျွန်ုပ်တို့ရွေးချယ်ထားသော Teams စာရွက်ရှေ့တွင် စာမျက်နှာအသစ်သုံးခုကို အလုပ်စာအုပ်ထဲသို့ တိုက်ရိုက်ထည့်သည်-

ဥပမာ 3- အမည်တစ်ခုဖြင့် စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

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

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ မက်ခရိုကိုအသုံးပြုသောအခါ ကျွန်ုပ်တို့ရွေးချယ်ထားသော Teams စာရွက်မတိုင်မီလေးတွင် MyNewSheet ဟု အမည်ပေးထားသည့် စာရွက်အသစ်ကို အလုပ်စာအုပ်တွင် ပေါင်းထည့်သည်-

ဥပမာ 4- သီးခြားစာရွက်တစ်ခုရှေ့တွင် အမည်တစ်ခုဖြင့် စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

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

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

ကျွန်ုပ်တို့ ဤမက်ခရိုကို လုပ်ဆောင်သောအခါ၊ Teams စာရွက်ရှေ့တွင် MyNewSheet ဟု အမည်ပေးထားသည့် စာရွက်အသစ်ကို အလုပ်စာအုပ်ထဲသို့ တိုက်ရိုက်ထည့်သည်-

ဥပမာ 5- သီးခြားစာရွက်တစ်ခုပြီးနောက် အမည်တစ်ခုဖြင့် စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

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

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

ကျွန်ုပ်တို့ ဤမက်ခရိုကို လုပ်ဆောင်သောအခါ၊ Teams စာရွက်ပြီးနောက် MyNewSheet ဟု အမည်ပေးထားသည့် စာရွက်အသစ်ကို အလုပ်စာအုပ်တွင် တိုက်ရိုက်ထည့်သည်-

ဥပမာ 6- အလုပ်စာအုပ်၏အဆုံးတွင် အမည်တစ်ခုပါသော စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

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

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ အလုပ်စာအုပ်၏အဆုံးတွင် MyNewSheet ဟု အမည်ပေးထားသည့် စာရွက်အသစ်တစ်ခုကို ပေါင်းထည့်သည်-

ဥပမာ 7- အလုပ်စာအုပ်၏အစတွင် အမည်တစ်ခုပါသော စာရွက်အသစ်တစ်ခုကို ထည့်ပါ။

အလုပ်စာအုပ်၏အစတွင် စာရွက်အသစ်တစ်ခုထည့်ရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်-

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ အလုပ်စာအုပ်၏အစတွင် MyNewSheet ဟု အမည်ပေးထားသည့် စာရွက်အသစ်တစ်ခုကို ပေါင်းထည့်သည်-

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

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

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

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