VBA කේතය සහ Workbook Manager මෙවලම භාවිතයෙන් ඔබට ඉක්මනින් Excel වැඩ පත්‍රිකා අකාරාදී පිළිවෙලට වර්ග කළ හැකි ආකාරය මෙම නිබන්ධනය පෙන්වයි.

Microsoft Excel ඉක්මනින් සහ පහසු ක්‍රම රැසක් ලබා දෙයි. තීරු හෝ පේළි අකාරාදී පිළිවෙලට. නමුත් එක්සෙල් හි වැඩ පත්‍රිකා නැවත සකස් කිරීමට ඇත්තේ එක් ක්‍රමයක් පමණි - ඒවා පත්‍ර ටැබ් තීරුවේ අපේක්ෂිත ස්ථානයට ඇද දමන්න. ඇත්තටම විශාල වැඩපොතක ටැබ් අකාරාදීකරණය කිරීමේදී, මෙය දිගු හා වැරදි මාර්ගයක් විය හැක. කාලය ඉතිරි කරන විකල්පයක් සොයනවාද? ඇත්තේ දෙකක් පමණි: VBA කේතය හෝ තෙවන පාර්ශවීය මෙවලම්.

VBA සමඟ Excel හි ටැබ් අකාරාදීකරනය කරන ආකාරය

පහත ඔබට Excel වර්ග කිරීමට VBA කේත උදාහරණ තුනක් හමුවනු ඇත. පරිශීලකයාගේ තේරීම මත පදනම්ව පත්‍ර ඉහළට, බැසීමට සහ දෙපැත්තටම.

ඔබට VBA සමඟ යම් අත්දැකීමක් ඇති බව හඟවමින්, අපි ඔබේ වැඩ පත්‍රිකාවට මැක්‍රෝ එකක් එක් කිරීමට මූලික පියවර පමණක් ගෙනහැර දක්වමු:

1. ඔබගේ Excel වැඩපොතෙහි, දෘශ්‍ය මූලික සංස්කාරකය විවෘත කිරීමට Alt + F11 ඔබන්න.
2. වම් කවුළුවෙහි, මෙම වැඩපොත දකුණු-ක්ලික් කරන්න, ඉන්පසු ඇතුළු කරන්න<ක්ලික් කරන්න. 2> > මොඩියුලය .
3. කේත කවුළුවෙහි VBA කේතය අලවන්න.
4. මැක්‍රෝව ධාවනය කිරීමට F5 ඔබන්න.

සඳහා සවිස්තරාත්මක පියවරෙන් පියවර උපදෙස්, කරුණාකර එක්සෙල් හි VBA කේතය ඇතුළු කර ධාවනය කරන්නේ කෙසේදැයි බලන්න.

ඉඟිය. ඔබට තවදුරටත් භාවිතය සඳහා මැක්‍රෝව තබා ගැනීමට අවශ්‍ය නම්, ඔබේ ගොනුව Excel macro-සක්‍රීය වැඩපොතක් (.xlsm) ලෙස සුරැකීමට වග බලා ගන්න.

විකල්පයක් ලෙස, ඔබට අපගේ නියැදි Alphabetize Excel Tabs වැඩපොත බාගත කළ හැක, විමසන්නේ නම් අන්තර්ගතය සක්‍රීය කරන්න, සහ අවශ්‍ය මැක්‍රෝව එතැනින් කෙලින්ම ධාවනය කරන්න. වැඩපොතෙහි පහත මැක්‍රෝ අඩංගු වේ:

• TabsAscending - A සිට Z දක්වා පත්‍ර අකාරාදී පිළිවෙලට වර්ග කරන්න.
• TabsDescending - පත්‍ර සකසන්න ප්‍රතිලෝම අනුපිළිවෙල, Z සිට A දක්වා.
• alphabetizeTabs - පත්‍ර ටැබ් දෙපැත්තටම, ආරෝහණ හෝ අවරෝහණ ලෙස වර්ග කරන්න.

නියැදි වැඩපොත බාගෙන විවෘත කරන්න ඔබේ Excel, ඔබට ටැබ් අකාරාදී කිරීමට අවශ්‍ය ඔබේම වැඩපොත විවෘත කරන්න, Alt + F8 ඔබන්න, අවශ්‍ය මැක්‍රෝ එක තෝරා, Run ක්ලික් කරන්න.

A සිට Z දක්වා Excel ටැබ් අකාරාදී පිළිවෙලට වර්ග කරන්න

මෙම කුඩා මැක්‍රෝ වත්මන් වැඩපොතෙහි ඇති පත්‍ර ආරෝහණ අක්ෂරාංක අනුපිළිවෙලට සකසයි, පළමු වැඩ පත්‍රිකා අංක වලින් ආරම්භ වන අතර පසුව A සිට Z දක්වා පත්‍ර.

Sub TabsAscending() for i = 1 Application.Sheets.Count For j = 1 Application.Sheets.Count - 1 UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) ඉන්පසු Sheets(j).පසුව ගෙන යන්න:=Sheets(j + 1) End ඊලග නම් ඊළඟ MsgBox "ටැබ් A සිට Z දක්වා වර්ග කර ඇත." උප

Z සිට A දක්වා Excel ටැබ් සකසන්න

ඔබට ඔබේ පත්‍ර පහළ අක්ෂරාංක අනුපිළිවෙලට (Z සිට A දක්වා, ඉන්පසු සංඛ්‍යාත්මක නම් සහිත පත්‍ර) වර්ග කිරීමට අවශ්‍ය නම්, භාවිතා කරන්න පහත කේතය:

Sub TabsDescending() i = 1 To සඳහාApplication.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 ඊලග නම් MsgBox "ටැබ් Z සිට A දක්වා වර්ග කර ඇත. " End Sub

නැගීම හෝ බැස යන ටැබ් අකාරාදීකරණය කරන්න

මෙම මැක්‍රෝව ඔබේ පරිශීලකයින්ට ලබා දී ඇති වැඩපොතක, A සිට Z දක්වා හෝ ප්‍රතිලෝම අනුපිළිවෙලට වැඩ පත්‍රිකා වර්ග කරන ආකාරය තීරණය කිරීමට ඉඩ දෙයි.

මේ සිට Excel VBA හි සම්මත සංවාද පෙට්ටිය (MsgBox) කලින් නිර්වචනය කරන ලද බොත්තම් අතලොස්සකින් පමණක් තෝරා ගැනීමට ඉඩ සලසයි, අපි අභිරුචි බොත්තම් තුනකින් අපගේම පෝරමය (UserForm) සාදන්නෙමු: A සිට Z , Z සිට A<දක්වා 2>, සහ අවලංගු කරන්න .

මේ සඳහා, දෘශ්‍ය මූලික සංස්කාරකය විවෘත කර, මෙම වැඩපොත දකුණු-ක්ලික් කර, ඇතුළු කරන්න ><ක්ලික් කරන්න. 1>පරිශීලක පෝරමය . ඔබේ පෝරමය SortOrderFrom නම් කරන්න, සහ එයට පාලන 4ක් එක් කරන්න: ලේබලයක් සහ බොත්තම් තුනක්:

ඊළඟට, F7 ඔබන්න (හෝ පෝරමය දෙවරක් ක්ලික් කරන්න ) කේත කවුළුව විවෘත කර පහත කේතය එහි අලවන්න. කේතය බාධා කිරීම් බොත්තම ක්ලික් කිරීම් සහ එක් එක් බොත්තමට අනන්‍ය ටැගයක් පවරයි:

පුද්ගලික උප විධාන බොත්තම1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

පරිශීලකයා ඔබගේ පෝරමයේ A සිට Z හෝ Z සිට A බොත්තම ක්ලික් කරනවාද යන්න මත පදනම්ව, ටැබ් වර්ග කරන්නආරෝහණ අකාරාදී අනුපිළිවෙල (පෙරනිමියෙන් තෝරා ඇත) හෝ අවරෝහණ අකාරාදී අනුපිළිවෙල; හෝ පෝරමය වසා දමා අවලංගු කරන්න නම් කිසිවක් නොකරන්න. මෙය සිදු කරනුයේ පහත VBA කේතය සමඟින් වන අතර, ඔබ සාමාන්‍ය ආකාරයට ඇතුළු කරන්න > මොඩියුලය හරහා ඇතුල් කරයි.

උප අක්ෂර පටිත්ත() ඩිම් සෝට් ඕඩර් Integer SortOrder = showUserForm if SortOrder = 0 ඉන්පසු යෙදුම සඳහා x = 1 සඳහා උප පිටවන්න.පත්‍ර. y සඳහා ගණන් 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).Name) ඉන්පසු Sheets(y).පසුව ගෙන යන්න:=Sheets(y + 1) End If End නම් ඊලඟට End Sub Function showUserForm() Integer showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

ඔබට තවමත් VBA සමඟ එතරම් පහසු නැතිනම්, ඔබට අපගේ නියැදි වැඩපොත අකාරාදී ටැබ් වෙත බාගත කර ගත හැක, ඔබට අවශ්‍ය තැන ඔබේම ගොනුව සමඟින් එය ඔබේ Excel තුළ විවෘත කරන්න ටැබ් වර්ග කිරීමට, සහ ඔබේ වැඩපොතෙන් AlphabetizeTabs macro ධාවනය කරන්න:

කැමති අනුපිළිවෙල තෝරන්න, කියන්න, A සිට Z , සහ ප්රතිඵල නිරීක්ෂණය කරන්න:

ඉඟිය. VBA සමඟින්, ඔබට ඔබේ Excel වැඩපත්‍රවල පිටපත් ද සෑදිය හැක. කේතය මෙහි ඇත: කෙසේදVBA සමඟ Excel හි අනුපිටපත් පත්‍රය.

Ultimate Suite සමඟින් Excel ටැබ් අකාරාදී පිළිවෙලට වර්ග කරන්නේ කෙසේද

අපගේ Excel සඳහා Ultimate Suite භාවිතා කරන්නන්ට VBA සමඟ කම්මැලි වීමට අවශ්‍ය නැත - ඔවුන්ට බහු ඇත -functional Workbook Manager ඔවුන් සතුව ඇත:

මෙම මෙවලම ඔබේ Excel රිබනයට එක් කර ඇති අතර, ටැබ් අක්ෂර වින්‍යාස කිරීම තනි බොත්තමක් ක්ලික් කිරීමකින් සිදු වේ, එය හරියටම විය යුතුය!

ඔබට මෙය සහ Excel සඳහා තවත් වෘත්තීය මෙවලම් 70+ ගවේෂණය කිරීමට කුතුහලයක් ඇත්නම්, අපගේ Ultimate Suite හි අත්හදා බැලීමේ අනුවාදයක් මෙතැනින් බාගැනීමට තිබේ.

මම ස්තුතිවන්ත වෙනවා. ඔබ කියවීමට සහ ලබන සතියේ අපගේ බ්ලොගයෙන් ඔබව දැකීමට බලාපොරොත්තු වේ!