ટ્યુટોરીયલ બતાવે છે કે કેવી રીતે તમે VBA કોડ અને વર્કબુક મેનેજર ટૂલનો ઉપયોગ કરીને એક્સેલ વર્કશીટ્સને આલ્ફાબેટીકલ ક્રમમાં ઝડપથી સૉર્ટ કરી શકો છો.

Microsoft Excel ગોઠવવાની ઘણી ઝડપી અને સરળ રીતો પ્રદાન કરે છે. મૂળાક્ષરોના ક્રમમાં કૉલમ અથવા પંક્તિઓ. પરંતુ Excel માં વર્કશીટ્સને ફરીથી ગોઠવવાની એક જ પદ્ધતિ છે - તેમને શીટ ટેબ બાર પર ઇચ્છિત સ્થાન પર ખેંચો. જ્યારે ખરેખર મોટી વર્કબુકમાં ટૅબને મૂળાક્ષર કરવાની વાત આવે છે, ત્યારે આ એક લાંબી અને ભૂલભરેલી રીત હોઈ શકે છે. સમય બચત વિકલ્પ શોધી રહ્યાં છો? ત્યાં ફક્ત બે જ છે: VBA કોડ અથવા તૃતીય-પક્ષ સાધનો.

VBA વડે Excel માં ટૅબને આલ્ફાબેટાઇઝ કેવી રીતે કરવું

નીચે તમને એક્સેલને સૉર્ટ કરવા માટે ત્રણ VBA કોડ ઉદાહરણો મળશે વપરાશકર્તાની પસંદગીના આધારે શીટ્સ ચડતા, ઉતરતા અને કોઈપણ દિશામાં.

તમે VBA સાથે થોડો અનુભવ ધરાવો છો તે દર્શાવતા, અમે ફક્ત તમારી વર્કશીટમાં મેક્રો ઉમેરવા માટેના મૂળભૂત પગલાંની રૂપરેખા આપીશું:

<8

તમારી એક્સેલ વર્કબુકમાં, વિઝ્યુઅલ બેઝિક એડિટર ખોલવા માટે Alt + F11 દબાવો.

ડાબી તકતી પર, જમણું-ક્લિક કરો This Workbook , અને પછી Insert<ક્લિક કરો 2> > મોડ્યુલ .

કોડ વિન્ડોમાં VBA કોડ પેસ્ટ કરો.

મેક્રો ચલાવવા માટે F5 દબાવો.

માટે વિગતવાર પગલું-દર-પગલાં સૂચનો, કૃપા કરીને જુઓ કે કેવી રીતે Excel માં VBA કોડ દાખલ કરવો અને ચલાવવો.

ટીપ. જો તમે વધુ ઉપયોગ માટે મેક્રો રાખવા માંગતા હો, તો તમારી ફાઈલને એક્સેલ મેક્રો-સક્ષમ વર્કબુક (.xlsm) તરીકે સાચવવાની ખાતરી કરો.

વૈકલ્પિક રીતે, તમે અમારી સેમ્પલ આલ્ફાબેટાઇઝ એક્સેલ ટૅબ્સ વર્કબુક ડાઉનલોડ કરી શકો છો, જો પૂછવામાં આવે તો સામગ્રીને સક્ષમ કરી શકો છો અને ત્યાંથી સીધા જ ઇચ્છિત મેક્રો ચલાવી શકો છો. વર્કબુકમાં નીચેના મેક્રો છે:

• ટેબ્સ એસેન્ડિંગ - A થી Z સુધીની શીટ્સને મૂળાક્ષરો પ્રમાણે સૉર્ટ કરો.
• ટૅબ્સ ડીસેન્ડિંગ - શીટ્સને આમાં ગોઠવો. વિપરીત ક્રમમાં, Z થી A.
• AlphabetizeTabs - શીટ ટૅબ્સને ચડતા અથવા ઉતરતા બંને દિશામાં સૉર્ટ કરો.

નમૂના વર્કબુક ડાઉનલોડ કરીને અને ખોલો સાથે તમારી એક્સેલ, તમારી પોતાની વર્કબુક ખોલો જ્યાં તમે ટેબ્સને મૂળાક્ષર કરવા માંગો છો, Alt + F8 દબાવો, ઇચ્છિત મેક્રો પસંદ કરો, અને ચલાવો પર ક્લિક કરો.

એક્સેલ ટૅબ્સને A થી Z સુધી મૂળાક્ષર પ્રમાણે સૉર્ટ કરો

આ નાનો મેક્રો વર્તમાન વર્કબુકમાં શીટ્સને ચડતા આલ્ફાન્યુમેરિક ક્રમ માં ગોઠવે છે, પ્રથમ વર્કશીટ્સ કે જેના નામ નંબરોથી શરૂ થાય છે, પછી A થી Z સુધીની શીટ્સ.

સબ ટૅબ્સ એસેન્ડિંગ() i = માટે 1 એપ્લિકેશન માટે. શીટ્સ. j = 1 માટે એપ્લિકેશન. શીટ્સ. ગણતરી - 1 જો UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) પછી Sheets(j).પછી ખસેડો:=Sheets(j + 1) End If Next Next MsgBox "ટેબ્સ A થી Z સુધી સૉર્ટ કરવામાં આવી છે." એન્ડ સબ

એક્સેલ ટૅબને Z થી A સુધી ગોઠવો

જો તમે તમારી શીટ્સને ઉતરતા આલ્ફાન્યૂમેરિક ક્રમમાં (Z થી A, પછી આંકડાકીય નામોવાળી શીટ્સ) માં સૉર્ટ કરવા માંગતા હો, તો પછી આનો ઉપયોગ કરો. નીચેનો કોડ:

સબ ટૅબ્સ ડિસેન્ડિંગ() i = 1 માટે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 If Next Next MsgBox "ટેબ્સને Z થી A માં સૉર્ટ કરવામાં આવી છે. " એન્ડ સબ

આલ્ફાબેટીઝ ટેબ્સ ચડતા અથવા ઉતરતા

આ મેક્રો તમારા વપરાશકર્તાઓને આપેલ વર્કબુકમાં વર્કશીટ્સને A થી Z સુધી અથવા વિપરીત ક્રમમાં, વર્કશીટ્સને કેવી રીતે સૉર્ટ કરવી તે નક્કી કરવા દે છે.

ત્યારથી એક્સેલ VBA માં સ્ટાન્ડર્ડ ડાયલોગ બોક્સ (MsgBox) ફક્ત મુઠ્ઠીભર પૂર્વવ્યાખ્યાયિત બટનોમાંથી પસંદ કરવાની મંજૂરી આપે છે, અમે ત્રણ કસ્ટમ બટનો સાથે આપણું પોતાનું ફોર્મ (યુઝરફોર્મ) બનાવીશું: A થી Z , Z થી A , અને રદ કરો .

આ માટે, Visual Basic Editor ખોલો, This Workbook પર જમણું-ક્લિક કરો અને Insert ><ક્લિક કરો. 1>વપરાશકર્તા ફોર્મ . તમારા ફોર્મને નામ આપો SortOrderFrom , અને તેમાં 4 નિયંત્રણો ઉમેરો: એક લેબલ અને ત્રણ બટનો:

આગળ, F7 દબાવો (અથવા ફોર્મ પર ડબલ-ક્લિક કરો ) કોડ વિન્ડો ખોલવા માટે અને નીચેનો કોડ ત્યાં પેસ્ટ કરો. કોડ બટન ક્લિક્સને અટકાવે છે અને દરેક બટનને અનન્ય ટેગ સોંપે છે:

ખાનગી સબ કમાન્ડબટન1_ક્લિક() મી.ટેગ = 1 મી. હાઇડ એન્ડ સબ પ્રાઇવેટ સબ કમાન્ડબટ્ટન2_ક્લિક() મી.ટેગ = 2 મી. હાઇડ એન્ડ સબ પ્રાઇવેટ સબ કમાન્ડ બટન3_ક્લિક () Me.Tag = 0 Me.Hide End Sub

વપરાશકર્તા તમારા ફોર્મ પર A to Z અથવા Z to A બટનને ક્લિક કરે છે કે કેમ તેના આધારે, ટેબને સૉર્ટ કરોચડતા મૂળાક્ષરોનો ક્રમ (મૂળભૂત રીતે પસંદ કરેલ) અથવા ઉતરતા મૂળાક્ષરોનો ક્રમ; અથવા ફોર્મ બંધ કરો અને રદ કરો ના કિસ્સામાં કંઈ કરશો નહીં. આ નીચેના VBA કોડ સાથે થાય છે, જે તમે Insert > Module દ્વારા દાખલ કરો છો.

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm જો SortOrder = 0 પછી એપ્લીકેશન.શીટ્સ માટે x = 1 માટે સબથી બહાર નીકળો. y = 1 માટે Application.Sheets.કાઉન્ટ - 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).Name) પછી Sheets(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 સાથે ખૂબ જ આરામદાયક ન હોવ, તો તમે ટૅબ્સને આલ્ફાબેટાઇઝ કરવા માટે અમારી સેમ્પલ વર્કબુક ડાઉનલોડ કરી શકો છો, તેને તમારી પોતાની ફાઇલની સાથે તમારા એક્સેલમાં ખોલો જ્યાં તમે ઇચ્છો. ટેબ્સને સૉર્ટ કરવા માટે, અને તમારી વર્કબુકમાંથી AlphabetizeTabs મેક્રો ચલાવો:

પસંદગીનો સૉર્ટ ક્રમ પસંદ કરો, કહો, A થી Z , અને પરિણામોનું અવલોકન કરો:

ટીપ. VBA સાથે, તમે તમારી એક્સેલ વર્કશીટ્સની નકલો પણ બનાવી શકો છો. કોડ અહીં ઉપલબ્ધ છે: કેવી રીતેVBA સાથે એક્સેલમાં ડુપ્લિકેટ શીટ.

અલ્ટિમેટ સ્યુટ સાથે એક્સેલ ટૅબ્સને મૂળાક્ષરો પ્રમાણે કેવી રીતે સૉર્ટ કરવી

અમારા એક્સેલ માટેના અલ્ટીમેટ સ્યુટના વપરાશકર્તાઓને VBA સાથે ફરવું પડતું નથી - તેમની પાસે બહુવિધ છે -ફંક્શનલ વર્કબુક મેનેજર તેમના નિકાલ પર:

તમારા એક્સેલ રિબનમાં ઉમેરવામાં આવેલા આ ટૂલ સાથે, આલ્ફાબેટાઇઝિંગ ટૅબ્સ એક જ બટન ક્લિકથી કરવામાં આવે છે, બરાબર તે જ રીતે હોવું જોઈએ!

જો તમે એક્સેલ માટે આ અને 70+ વધુ વ્યાવસાયિક સાધનોનું અન્વેષણ કરવા ઉત્સુક છો, તો અમારા અલ્ટીમેટ સ્યુટનું ટ્રાયલ વર્ઝન અહીં ડાઉનલોડ કરવા માટે ઉપલબ્ધ છે.

હું આભાર માનું છું. તમે વાંચવા માટે અને આશા છે કે તમને આવતા અઠવાડિયે અમારા બ્લોગ પર જોવા મળશે!