വിബിഎ കോഡും വർക്ക്‌ബുക്ക് മാനേജർ ടൂളും ഉപയോഗിച്ച് അക്ഷരമാലാക്രമത്തിൽ Excel വർക്ക്‌ഷീറ്റുകൾ എങ്ങനെ വേഗത്തിൽ അടുക്കാമെന്ന് ട്യൂട്ടോറിയൽ കാണിക്കുന്നു.

Microsoft Excel വേഗത്തിലും എളുപ്പത്തിലും ക്രമീകരിക്കാനുള്ള നിരവധി മാർഗങ്ങൾ നൽകുന്നു. നിരകൾ അല്ലെങ്കിൽ വരികൾ അക്ഷരമാലാക്രമത്തിൽ. എന്നാൽ Excel-ൽ വർക്ക്ഷീറ്റുകൾ പുനഃക്രമീകരിക്കുന്നതിന് ഒരേയൊരു രീതി മാത്രമേയുള്ളൂ - ഷീറ്റ് ടാബ് ബാറിൽ ആവശ്യമുള്ള സ്ഥാനത്തേക്ക് വലിച്ചിടുക. ഒരു വലിയ വർക്ക്ബുക്കിൽ ടാബുകൾ അക്ഷരമാലാക്രമത്തിൽ വരുമ്പോൾ, ഇത് ദീർഘവും തെറ്റായതുമായ മാർഗമായിരിക്കാം. സമയം ലാഭിക്കുന്ന ഒരു ബദലായി തിരയുകയാണോ? രണ്ടെണ്ണം മാത്രമേ നിലവിലുള്ളൂ: VBA കോഡ് അല്ലെങ്കിൽ മൂന്നാം കക്ഷി ടൂളുകൾ.

VBA ഉപയോഗിച്ച് Excel-ൽ ടാബുകൾ എങ്ങനെ അക്ഷരമാലാക്രമം ചെയ്യാം

Excel അടുക്കുന്നതിനുള്ള മൂന്ന് VBA കോഡ് ഉദാഹരണങ്ങൾ നിങ്ങൾക്ക് ചുവടെ കാണാം. ഉപയോക്താവിന്റെ തിരഞ്ഞെടുപ്പിനെ അടിസ്ഥാനമാക്കി ഷീറ്റുകൾ ആരോഹണവും അവരോഹണവും രണ്ട് ദിശയിലും.

നിങ്ങൾക്ക് VBA-യിൽ കുറച്ച് അനുഭവമുണ്ടെന്ന് സൂചിപ്പിക്കുന്നു, നിങ്ങളുടെ വർക്ക്ഷീറ്റിലേക്ക് ഒരു മാക്രോ ചേർക്കുന്നതിനുള്ള അടിസ്ഥാന ഘട്ടങ്ങൾ മാത്രമേ ഞങ്ങൾ രൂപപ്പെടുത്തുകയുള്ളൂ:

1. നിങ്ങളുടെ Excel വർക്ക്ബുക്കിൽ, വിഷ്വൽ ബേസിക് എഡിറ്റർ തുറക്കാൻ Alt + F11 അമർത്തുക.
2. ഇടത് പാളിയിൽ, ഈ വർക്ക്ബുക്ക് വലത്-ക്ലിക്കുചെയ്യുക, തുടർന്ന് ഇൻസേർട്ട്<ക്ലിക്ക് ചെയ്യുക 2> > മൊഡ്യൂൾ .
3. കോഡ് വിൻഡോയിൽ VBA കോഡ് ഒട്ടിക്കുക.
4. മാക്രോ പ്രവർത്തിപ്പിക്കാൻ F5 അമർത്തുക.

ഇതിനായി വിശദമായ ഘട്ടം ഘട്ടമായുള്ള നിർദ്ദേശങ്ങൾ, Excel-ൽ VBA കോഡ് ചേർക്കുന്നതും പ്രവർത്തിപ്പിക്കുന്നതും എങ്ങനെയെന്ന് കാണുക.

നുറുങ്ങ്. കൂടുതൽ ഉപയോഗത്തിനായി നിങ്ങൾക്ക് മാക്രോ സൂക്ഷിക്കണമെങ്കിൽ, നിങ്ങളുടെ ഫയൽ ഒരു Excel മാക്രോ പ്രവർത്തനക്ഷമമാക്കിയ വർക്ക്ബുക്കായി (.xlsm) സംരക്ഷിക്കുന്നത് ഉറപ്പാക്കുക.

പകരം, നിങ്ങൾക്ക് ഞങ്ങളുടെ സാമ്പിൾ ആൽഫബെറ്റൈസ് എക്സൽ ടാബ്‌സ് വർക്ക്‌ബുക്ക് ഡൗൺലോഡ് ചെയ്യാനും ആവശ്യപ്പെടുകയാണെങ്കിൽ ഉള്ളടക്കം പ്രവർത്തനക്ഷമമാക്കാനും ആവശ്യമുള്ള മാക്രോ അവിടെ നിന്ന് നേരിട്ട് പ്രവർത്തിപ്പിക്കാനും കഴിയും. വർക്ക്ബുക്കിൽ ഇനിപ്പറയുന്ന മാക്രോകൾ അടങ്ങിയിരിക്കുന്നു:

• TabsAscending - A മുതൽ Z വരെയുള്ള അക്ഷരമാലാക്രമത്തിൽ ഷീറ്റുകൾ അടുക്കുക.
• TabsDescending - ഷീറ്റുകൾ ക്രമീകരിക്കുക വിപരീത ക്രമം, Z മുതൽ A വരെ.
• AlphabetizeTabs - രണ്ട് ദിശകളിലും ഷീറ്റ് ടാബുകൾ അടുക്കുക, ആരോഹണമോ അവരോഹണമോ.

സാമ്പിൾ വർക്ക്ബുക്ക് ഡൗൺലോഡ് ചെയ്‌ത് തുറക്കുക നിങ്ങളുടെ Excel, ടാബുകൾ അക്ഷരമാലാക്രമമാക്കാൻ ആഗ്രഹിക്കുന്ന നിങ്ങളുടെ സ്വന്തം വർക്ക്ബുക്ക് തുറക്കുക, Alt + F8 അമർത്തുക, ആവശ്യമുള്ള മാക്രോ തിരഞ്ഞെടുത്ത് Run ക്ലിക്കുചെയ്യുക.

A മുതൽ Z വരെ Excel ടാബുകൾ അക്ഷരമാലാക്രമത്തിൽ അടുക്കുക

ഈ ചെറിയ മാക്രോ നിലവിലെ വർക്ക്ബുക്കിലെ ഷീറ്റുകൾ ആരോഹണ ആൽഫാന്യൂമെറിക് ക്രമത്തിൽ ക്രമീകരിക്കുന്നു, ആദ്യം പേരുകൾ അക്കങ്ങളിൽ തുടങ്ങുന്ന വർക്ക്ഷീറ്റുകൾ, തുടർന്ന് A മുതൽ Z വരെയുള്ള ഷീറ്റുകൾ.

​​സബ് ടാബുകൾAscending() for i = 1 Application.Sheets.Count for j = 1 To Application.Sheets.Count - 1 എങ്കിൽ UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) തുടർന്ന് ഷീറ്റുകൾ(j).ഇതിനു ശേഷം നീക്കുക:=Sheets(j + 1) അവസാനിച്ചാൽ അടുത്തത് അടുത്തത് MsgBox "ടാബുകൾ A മുതൽ Z വരെ അടുക്കിയിരിക്കുന്നു." അവസാനം ഉപ

Z മുതൽ A വരെയുള്ള Excel ടാബുകൾ ക്രമീകരിക്കുക

നിങ്ങളുടെ ഷീറ്റുകൾ അവരോഹണ ആൽഫാന്യൂമെറിക് ക്രമത്തിൽ (Z മുതൽ A, തുടർന്ന് സംഖ്യാ പേരുകളുള്ള ഷീറ്റുകൾ) അടുക്കാൻ നിങ്ങൾ ആഗ്രഹിക്കുന്നുവെങ്കിൽ, തുടർന്ന് ഉപയോഗിക്കുക ഇനിപ്പറയുന്ന കോഡ്:

ഉപ ടാബുകൾ ഡിസെൻഡിംഗ്() 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) അവസാനിച്ചാൽ അടുത്തത് MsgBox "ടാബുകൾ Z മുതൽ A വരെ അടുക്കിയിരിക്കുന്നു. " അവസാനം ഉപ

ആരോഹണ അല്ലെങ്കിൽ അവരോഹണ ടാബുകൾ അക്ഷരമാലാക്രമം ചെയ്യുക

നിങ്ങളുടെ വർക്ക്‌ഷീറ്റുകൾ A മുതൽ Z വരെയുള്ള അക്ഷരമാലാക്രമത്തിലോ വിപരീത ക്രമത്തിലോ എങ്ങനെ അടുക്കണമെന്ന് തീരുമാനിക്കാൻ ഈ മാക്രോ നിങ്ങളുടെ ഉപയോക്താക്കളെ അനുവദിക്കുന്നു.

മുതൽ Excel VBA-യിലെ സ്റ്റാൻഡേർഡ് ഡയലോഗ് ബോക്സ് (MsgBox) ഒരുപിടി മുൻകൂട്ടി നിശ്ചയിച്ച ബട്ടണുകളിൽ നിന്ന് തിരഞ്ഞെടുക്കാൻ മാത്രമേ അനുവദിക്കൂ, മൂന്ന് ഇഷ്‌ടാനുസൃത ബട്ടണുകൾ ഉപയോഗിച്ച് ഞങ്ങൾ ഞങ്ങളുടെ സ്വന്തം ഫോം (UserForm) സൃഷ്ടിക്കും: A മുതൽ Z , Z മുതൽ A<വരെ 2>, കൂടാതെ റദ്ദാക്കുക .

ഇതിനായി, വിഷ്വൽ ബേസിക് എഡിറ്റർ തുറക്കുക, ഈ വർക്ക്ബുക്ക് വലത്-ക്ലിക്കുചെയ്യുക, തുടർന്ന് ഇൻസേർട്ട് ><ക്ലിക്ക് ചെയ്യുക 1>UserForm . നിങ്ങളുടെ ഫോമിന് SortOrderFrom എന്ന് പേര് നൽകുക, അതിലേക്ക് 4 നിയന്ത്രണങ്ങൾ ചേർക്കുക: ഒരു ലേബലും മൂന്ന് ബട്ടണുകളും:

അടുത്തതായി, F7 അമർത്തുക (അല്ലെങ്കിൽ ഫോമിൽ ഡബിൾ ക്ലിക്ക് ചെയ്യുക ) കോഡ് വിൻഡോ തുറന്ന് താഴെയുള്ള കോഡ് അവിടെ ഒട്ടിക്കുക. കോഡ് ബട്ടണിൽ ക്ലിക്കുകൾ തടസ്സപ്പെടുത്തുകയും ഓരോ ബട്ടണിലേക്കും ഒരു അദ്വിതീയ ടാഗ് നൽകുകയും ചെയ്യുന്നു:

സ്വകാര്യ സബ് കമാൻഡ് ബട്ടൺ1_ക്ലിക്ക്() 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 to A ബട്ടണിൽ ക്ലിക്ക് ചെയ്യുന്നുണ്ടോ എന്നതിനെ ആശ്രയിച്ച്, ടാബുകൾ അടുക്കുകആരോഹണ അക്ഷരമാലാ ക്രമം (സ്ഥിരമായി തിരഞ്ഞെടുത്തത്) അല്ലെങ്കിൽ അവരോഹണ അക്ഷരമാലാ ക്രമം; അല്ലെങ്കിൽ ഫോം അടച്ച് റദ്ദാക്കുക എന്ന സാഹചര്യത്തിൽ ഒന്നും ചെയ്യരുത്. ഇനിപ്പറയുന്ന VBA കോഡ് ഉപയോഗിച്ചാണ് ഇത് ചെയ്യുന്നത്, നിങ്ങൾ ഇൻസേർട്ട് > മൊഡ്യൂൾ വഴി സാധാരണ രീതിയിൽ തിരുകുന്നു.

Sub AlphabetizeTabs()Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 തുടർന്ന് x = 1 എന്നതിനായുള്ള സബ് എക്‌സിറ്റ് ചെയ്യുക UCase$(Application.Sheets(y + 1).Name) തുടർന്ന് ഷീറ്റുകൾ(y). ശേഷം നീക്കുക:=Sheets(y + 1) End If elseIf SortOrder = 2 പിന്നെ UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) തുടർന്ന് ഷീറ്റുകൾ(y). ശേഷം നീക്കുക:=Sheets(y + 1) End If End If Next Next End Sub Function showUserForm() Integer showUserForm = 0 ലോഡ് SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag അൺലോഡ് SortOrderForm എൻഡ് ഫംഗ്ഷൻ

നിങ്ങൾക്ക് ഇതുവരെ VBA-യിൽ അത്ര സുഖകരമല്ലെങ്കിൽ, നിങ്ങൾക്ക് ഞങ്ങളുടെ മാതൃകാ വർക്ക്ബുക്ക് ഡൗൺലോഡ് ചെയ്ത് ടാബുകൾ അക്ഷരമാലാക്രമത്തിൽ ക്രമീകരിക്കാം, നിങ്ങളുടെ സ്വന്തം ഫയലിനൊപ്പം Excel-ൽ തുറക്കുക. ടാബുകൾ അടുക്കാനും നിങ്ങളുടെ വർക്ക്ബുക്കിൽ നിന്ന് AlphabetizeTabs മാക്രോ പ്രവർത്തിപ്പിക്കാനും:

ഇഷ്‌ടപ്പെട്ട അടുക്കൽ ക്രമം തിരഞ്ഞെടുക്കുക, A മുതൽ Z<2 വരെ പറയുക>, ഫലങ്ങൾ നിരീക്ഷിക്കുക:

നുറുങ്ങ്. VBA ഉപയോഗിച്ച്, നിങ്ങളുടെ Excel വർക്ക്ഷീറ്റുകളുടെ പകർപ്പുകളും നിങ്ങൾക്ക് സൃഷ്ടിക്കാൻ കഴിയും. കോഡ് ഇവിടെ ലഭ്യമാണ്: എങ്ങനെVBA ഉപയോഗിച്ച് Excel-ൽ ഡ്യൂപ്ലിക്കേറ്റ് ഷീറ്റ്.

അൾട്ടിമേറ്റ് സ്യൂട്ട് ഉപയോഗിച്ച് Excel ടാബുകൾ അക്ഷരമാലാക്രമത്തിൽ എങ്ങനെ അടുക്കാം

Excel-നുള്ള ഞങ്ങളുടെ Ultimate Suite-ന്റെ ഉപയോക്താക്കൾക്ക് VBA-യിൽ ചുറ്റിക്കറങ്ങേണ്ടതില്ല - അവർക്ക് ഒരു മൾട്ടിപ്പിൾ ഉണ്ട് -ഫങ്ഷണൽ വർക്ക്ബുക്ക് മാനേജർ അവരുടെ പക്കലുണ്ട്:

നിങ്ങളുടെ Excel റിബണിലേക്ക് ചേർത്ത ഈ ടൂൾ ഉപയോഗിച്ച്, ടാബുകൾ അക്ഷരമാലാക്രമം ഒരു ബട്ടണിൽ ക്ലിക്കുചെയ്യുന്നത്, അത് ചെയ്യേണ്ടത് പോലെ തന്നെ!<3

ഇതും Excel-നുള്ള 70+ പ്രൊഫഷണൽ ടൂളുകളും അടുത്തറിയാൻ നിങ്ങൾക്ക് ജിജ്ഞാസയുണ്ടെങ്കിൽ, ഞങ്ങളുടെ Ultimate Suite-ന്റെ ഒരു ട്രയൽ പതിപ്പ് ഇവിടെ ഡൗൺലോഡ് ചെയ്യാൻ ലഭ്യമാണ്.

ഞാൻ നന്ദി പറയുന്നു. നിങ്ങൾ വായിക്കുന്നു, അടുത്ത ആഴ്ച ഞങ്ങളുടെ ബ്ലോഗിൽ നിങ്ങളെ കാണുമെന്ന് പ്രതീക്ഷിക്കുന്നു!