သင်ခန်းစာတွင် VBA ကုဒ်နှင့် Workbook Manager တူးလ်ကို အသုံးပြု၍ Excel အလုပ်စာရွက်များကို အက္ခရာစဉ်အတိုင်း အမြန်စီမည်ကို ပြသထားသည်။

Microsoft Excel သည် စီစဉ်ရန် မြန်ဆန်လွယ်ကူသော နည်းလမ်းများစွာကို ပေးပါသည်။ အက္ခရာစဉ်အလိုက် ကော်လံများ သို့မဟုတ် အတန်းများ။ သို့သော် Excel တွင် အလုပ်စာရွက်များကို ပြန်စီရန် နည်းလမ်းတစ်ခုသာ ရှိသည် - ၎င်းတို့ကို စာရွက် tab bar ရှိ လိုချင်သော အနေအထားသို့ ဆွဲချပါ။ အမှန်တကယ်ကြီးမားသော workbook တစ်ခုတွင် အက္ခရာတင်သည့် tabs များနှင့် ပတ်သက်လာသောအခါ၊ ၎င်းသည် ရှည်လျားပြီး မှားယွင်းသောနည်းလမ်းဖြစ်နိုင်သည်။ အချိန်ကုန်သက်သာသော အခြားရွေးချယ်စရာကို ရှာဖွေနေပါသလား။ VBA ကုဒ် သို့မဟုတ် ပြင်ပကိရိယာတန်ဆာပလာ နှစ်ခုသာရှိသည်။

VBA ဖြင့် Excel တွင် တဘ်များကို အက္ခရာတင်နည်း

အောက်တွင် Excel စီရန် VBA ကုဒ်နမူနာသုံးခုကို သင်တွေ့လိမ့်မည်။ အသုံးပြုသူ၏ရွေးချယ်မှုအပေါ်အခြေခံ၍ အတက်အဆင်း၊ အတက်အဆင်း နှင့် ဦးတည်ချက်နှစ်ခုစလုံးတွင် စာရွက်များ။

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

1. သင်၏ Excel အလုပ်စာအုပ်တွင်၊ Visual Basic Editor ကိုဖွင့်ရန် Alt + F11 ကိုနှိပ်ပါ။
2. ဘယ်ဘက်အကန့်တွင်၊ ThisWorkbook ကို ညာကလစ်နှိပ်ပြီး Insert<ကိုနှိပ်ပါ။ 2> > Module ။
3. ကုဒ်ဝင်းဒိုးတွင် VBA ကုဒ်ကို ကူးထည့်ပါ။
4. မက်ခရိုကိုလည်ပတ်ရန် F5 ကိုနှိပ်ပါ။

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

အကြံပြုချက်။ ဆက်လက်အသုံးပြုရန်အတွက် မက်ခရိုကို ဆက်လက်ထားရှိလိုပါက၊ သင်၏ဖိုင်ကို Excel မက်ခရိုအသုံးပြုနိုင်သော အလုပ်စာအုပ် (.xlsm) အဖြစ် သိမ်းဆည်းရန် သေချာပါစေ။

တနည်းအားဖြင့် သင်သည် ကျွန်ုပ်တို့၏နမူနာ Alphabetize Excel Tabs အလုပ်စာအုပ်ကို ဒေါင်းလုဒ်လုပ်ကာ၊ တောင်းဆိုလာပါက အကြောင်းအရာကို ဖွင့်ကာ အလိုရှိသော မက်ခရိုကို ထိုနေရာမှ တိုက်ရိုက်လုပ်ဆောင်နိုင်သည်။ အလုပ်စာအုပ်တွင် အောက်ပါ မက်ခရိုများ ပါ၀င်သည်-

• TabsAscending - စာရွက်များကို A မှ Z အက္ခရာစဉ်စီပါ။
• TabsDescending - စာရွက်များကို စီရန် Z မှ A မှ A သို့ ပြောင်းပြန်အစီအစဥ်။
• AlphabetizeTabs - လမ်းကြောင်းနှစ်ခုလုံးတွင် စာရွက်တဘ်များကို အကြီးကြီး သို့မဟုတ် ကြီးစဉ်ငယ်လိုက် စီပါ။

နမူနာအလုပ်စာအုပ်ကို ဒေါင်းလုဒ်လုပ်ပြီး ဖွင့်ထားခြင်းဖြင့် သင်၏ Excel ၊ သင်အက္ခရာတင်လိုသည့် တဘ်များကို အက္ခရာတင်လိုသည့် သင့်ကိုယ်ပိုင်အလုပ်စာအုပ်ကိုဖွင့်ပါ၊ Alt + F8 ကိုနှိပ်ပါ၊ လိုချင်သော macro ကိုရွေးချယ်ပြီး Run ကိုနှိပ်ပါ။

Excel တက်ဘ်များကို A မှ Z အက္ခရာစဉ်စီရန်

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

Sub TabsAscending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 အကယ်၍ UCase$(Application.Sheets(j.Name) > UCase$(Application.Sheets(j+1)အမည်) ထို့နောက် Sheets(j)။နောက်သို့ရွှေ့ပါ-=Sheets(j+1) အဆုံးသတ်မည်ဆိုပါက နောက်တစ်ခု နောက်တစ်ခု MsgBox "Tabs များကို A မှ Z မှ စီထားသည်။" End Sub

Z မှ A အထိ Excel တဘ်များကို စီစဉ်ပါ

သင်၏စာရွက်များကို အက္ခရာစဉ်အလိုက် ကြီးစဉ်ငယ်လိုက် (Z မှ A၊ ထို့နောက် ဂဏန်းအမည်များဖြင့် စာရွက်များ) ကိုသုံးပါ အောက်ပါကုဒ်-

Sub TabsDescending() For i = 1 ToApplication.Sheets.Count For j = 1 To Application.Sheets.Count - 1 အကယ်၍ UCase$(Application.Sheets(j.Name) < UCase$(Application.Sheets(j+1.Name) ထို့နောက် Application.Sheets(j)ကိုရွှေ့ပြီးနောက်:=Application.Sheets(j+1) End If Next Next MsgBox "tabs များကို Z မှ A သို့ စီထားသည်။ “ End Sub

တက်ဘ်များကို ကြီးလိုက် သို့မဟုတ် ကြီးလိုက် အက္ခရာတင်ခြင်း

ဤ macro သည် သင့်အသုံးပြုသူများအား ပေးထားသော အလုပ်စာအုပ်တွင် အက္ခရာစဉ်အလိုက် A မှ Z သို့မဟုတ် ပြောင်းပြန်အစီအစဥ်ဖြင့် အလုပ်စာရွက်များကို မည်သို့စီမည်ကို ဆုံးဖြတ်နိုင်စေပါသည်။

ကတည်းက Excel VBA ရှိ standard dialog box (MsgBox) သည် ကြိုတင်သတ်မှတ်ထားသော ခလုတ်များ လက်တစ်ဆုပ်စာမှ ရွေးချယ်ခြင်းကိုသာ ခွင့်ပြုသည်၊၊ ကျွန်ုပ်တို့သည် စိတ်ကြိုက်ခလုတ်သုံးခုဖြင့် ကျွန်ုပ်တို့၏ကိုယ်ပိုင်ပုံစံ (UserForm) ကို ဖန်တီးပါမည်- A မှ Z ၊ Z မှ A နှင့် Cancel ။

၎င်းအတွက်၊ Visual Basic Editor ကိုဖွင့်ပြီး၊ ThisWorkbook ကို right-click နှိပ်ပြီး Insert ><ကိုနှိပ်ပါ။ 1>အသုံးပြုသူဖောင် ။ သင့်ဖောင်ကို SortOrderFrom အမည်ပေးပြီး ၎င်းတွင် ထိန်းချုပ်မှု 4 ခုကို ထည့်ပါ- အညွှန်းတစ်ခုနှင့် ခလုတ်သုံးခု-

နောက်တစ်ခု၊ F7 ကိုနှိပ်ပါ (သို့မဟုတ် ဖောင်ကို နှစ်ချက်နှိပ်ပါ ) Code ဝင်းဒိုးကိုဖွင့်ပြီး အောက်ပါကုဒ်ကို ထိုနေရာတွင် ကူးထည့်ရန်။ ကုဒ်သည် ခလုတ်ကို ကြားဖြတ်နှိပ်ပြီး ခလုတ်တစ်ခုစီသို့ သီးသန့်တဂ်တစ်ခု သတ်မှတ်ပေးသည်-

Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub သီးသန့် Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

အသုံးပြုသူက A to Z သို့မဟုတ် Z to A ခလုတ်ကို သင့်ဖောင်ပေါ်တွင် နှိပ်ထားခြင်း ရှိမရှိပေါ်မူတည်၍ တက်ဘ်များကို စီပါကြီးစဉ်ငယ်လိုက် အက္ခရာစဉ် (မူရင်းဖြင့် ရွေးထားသည်) သို့မဟုတ် ကြီးစဉ်ငယ်လိုက် အက္ခရာစဉ်၊ သို့မဟုတ် ဖောင်ကိုပိတ်ပြီး Cancel တွင် ဘာမှမလုပ်ပါ။ ၎င်းကို Insert > Module မှတဆင့် ပုံမှန်အတိုင်းထည့်သွင်းပေးသော VBA ကုဒ်ဖြင့် လုပ်ဆောင်ပါသည်။

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm အမျိုးအစားခွဲမည်ဆိုပါက = 0 ထို့နောက် Sub For x = 1 သို့ Application.Sheets.Count For y = 1 သို့ Application.Sheets.Count - 1 အကယ်၍ SortOrder = 1 ဆိုလျှင် UCase$(Application.Sheets(y.Name) > UCase$(Application.Sheets(y+1)Name) ထို့နောက် Sheets(y)။နောက်သို့ရွှေ့ပါ-=Sheets(y+1) End If ElseIf SortOrder = 2 ထို့နောက် အကယ်၍ UCase$(Application.Sheets(y)Name) < UCase$(Application.Sheets(y+1)အမည်) ထို့နောက် Sheets(y)နောက်သို့ရွှေ့ပါ-=Sheets(y+1) အဆုံးသတ်မည်ဆိုပါက အဆုံးသတ်မည်ဆိုပါက နောက်တစ်ခုက နောက်တစ်ခု၏ ကဏ္ဍခွဲခွဲများအဖြစ် showUserForm() ကိန်းပြည့်အဖြစ် showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

သင် VBA နှင့် အလွန်အဆင်မပြေပါက၊ သင်သည် ကျွန်ုပ်တို့၏ Sample Workbook ကို Alphabetize Tabs များသို့ ရိုးရှင်းစွာ ဒေါင်းလုဒ်လုပ်ကာ သင်၏ Excel တွင် ၎င်းကို သင်အလိုရှိသည့် ဖိုင်နှင့်အတူ သင့်ကိုယ်ပိုင်ဖိုင်နှင့်အတူ ဖွင့်ပါ။ တက်ဘ်များကို စီရန်၊ သင့်အလုပ်စာအုပ်မှ AlphabetizeTabs macro ကို run ပါ-

နှစ်သက်ရာ အမျိုးအစားကို ရွေးပါ၊ A မှ Z <2 ဟု ပြောပါ။>၊ ရလဒ်များကို စောင့်ကြည့်ပါ-

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

Ultimate Suite ဖြင့် အက္ခရာစဉ်ဖြင့် Excel တက်ဘ်များကို စီမည်နည်း

Excel အတွက် ကျွန်ုပ်တို့၏ Ultimate Suite အသုံးပြုသူများသည် VBA နှင့် လှည့်ပတ်ရန် မလိုအပ်ပါ - ၎င်းတို့တွင် များစွာရှိသည် -functional Workbook Manager-

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

ဤနှင့် Excel အတွက် နောက်ထပ် ပရော်ဖက်ရှင်နယ် ကိရိယာ 70+ ကို စူးစမ်းလေ့လာလိုလျှင် ကျွန်ုပ်တို့၏ Ultimate Suite ၏ အစမ်းဗားရှင်းကို ဤနေရာတွင် ဒေါင်းလုဒ်လုပ်ရန် ရနိုင်ပါသည်။

ကျေးဇူးတင်ပါသည်။ ဖတ်ရှုပြီး ကျွန်ုပ်တို့၏ဘလော့ဂ်တွင် သင့်ကို နောက်အပတ်တွင် တွေ့ရမည်ဟု မျှော်လင့်ပါသည်။