உள்ளடக்க அட்டவணை
விபிஏ குறியீடு மற்றும் ஒர்க்புக் மேனேஜர் கருவியைப் பயன்படுத்தி எக்ஸெல் ஒர்க்ஷீட்களை அகர வரிசைப்படி விரைவாக வரிசைப்படுத்துவது எப்படி என்பதை இந்தப் பயிற்சி காட்டுகிறது.
மைக்ரோசாப்ட் எக்செல் பல விரைவான மற்றும் எளிதான வழிகளை வழங்குகிறது. நெடுவரிசைகள் அல்லது வரிசைகள் அகர வரிசைப்படி. ஆனால் எக்செல் இல் பணித்தாள்களை மறுசீரமைக்க ஒரே ஒரு முறை மட்டுமே உள்ளது - அவற்றை தாள் தாவல் பட்டியில் விரும்பிய நிலைக்கு இழுக்கவும். ஒரு பெரிய பணிப்புத்தகத்தில் தாவல்களை அகரவரிசைப்படுத்தும் போது, இது ஒரு நீண்ட மற்றும் பிழையான வழியாக இருக்கலாம். நேரத்தை மிச்சப்படுத்தும் மாற்றீட்டைத் தேடுகிறீர்களா? இரண்டு மட்டுமே உள்ளன: VBA குறியீடு அல்லது மூன்றாம் தரப்பு கருவிகள்.
VBA உடன் Excel இல் தாவல்களை அகரவரிசைப்படுத்துவது எப்படி
கீழே எக்செல் வரிசைப்படுத்த மூன்று VBA குறியீடு உதாரணங்களைக் காணலாம் தாள்கள் ஏறுதல், இறங்குதல் மற்றும் பயனரின் விருப்பத்தின் அடிப்படையில் இரு திசைகளிலும்.
உங்களுக்கு VBA உடன் சில அனுபவம் இருப்பதைக் குறிக்கும் வகையில், உங்கள் பணித்தாளில் மேக்ரோவைச் சேர்ப்பதற்கான அடிப்படை படிகளை மட்டுமே நாங்கள் கோடிட்டுக் காட்டுவோம்:
<8இதற்கு விரிவான படிப்படியான வழிமுறைகள், எக்செல் இல் VBA குறியீட்டை எவ்வாறு செருகுவது மற்றும் இயக்குவது என்பதைப் பார்க்கவும்.
உதவிக்குறிப்பு. மேக்ரோவை மேலும் பயன்படுத்த நீங்கள் வைத்திருக்க விரும்பினால், உங்கள் கோப்பை எக்செல் மேக்ரோ-இயக்கப்பட்ட பணிப்புத்தகமாக (.xlsm) சேமிக்க மறக்காதீர்கள்.
மாற்றாக, நீங்கள் எங்கள் மாதிரி Alphabetize Excel Tabs பணிப்புத்தகத்தைப் பதிவிறக்கலாம், கேட்கப்பட்டால் உள்ளடக்கத்தை இயக்கலாம் மற்றும் விரும்பிய மேக்ரோவை அங்கிருந்து நேரடியாக இயக்கலாம். பணிப்புத்தகத்தில் பின்வரும் மேக்ரோக்கள் உள்ளன:
- TabsAcending - A இலிருந்து Z வரை தாள்களை அகரவரிசைப்படி வரிசைப்படுத்தவும்.
- TabsDescending - தாள்களை வரிசைப்படுத்தவும் தலைகீழ் வரிசை, Z இலிருந்து A.
- AlphabetizeTabs - இரண்டு திசைகளிலும் தாள் தாவல்களை வரிசைப்படுத்தவும், ஏறுவரிசையில் அல்லது இறங்கு உங்கள் எக்செல், தாவல்களை அகரவரிசைப்படுத்த விரும்பும் உங்கள் சொந்த பணிப்புத்தகத்தைத் திறந்து, Alt + F8 ஐ அழுத்தி, விரும்பிய மேக்ரோவைத் தேர்ந்தெடுத்து, Run என்பதைக் கிளிக் செய்யவும்.
A இலிருந்து Z<15 வரை Excel தாவல்களை அகரவரிசைப்படி வரிசைப்படுத்தவும்>
இந்த சிறிய மேக்ரோ தற்போதைய பணிப்புத்தகத்தில் உள்ள தாள்களை ஏறுவரிசை எண்ணெழுத்து வரிசையில் வரிசைப்படுத்துகிறது, முதலில் பெயர்கள் எண்களுடன் தொடங்கும் பணித்தாள்கள், பின்னர் A முதல் Z வரையிலான தாள்கள்.
Sub TabsAscending() 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) பிறகு Sheets(j).பின் நகர்த்தவும்:=Sheets(j + 1) முடிவு என்றால் அடுத்து அடுத்து MsgBox "தாவல்கள் A இலிருந்து Z வரை வரிசைப்படுத்தப்பட்டுள்ளன." முடிவு துணைஎக்செல் தாவல்களை Z இலிருந்து A வரை வரிசைப்படுத்துங்கள்
உங்கள் தாள்களை இறங்கு எண்ணெழுத்து வரிசையில் (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 Next என்றால் MsgBox "தாவல்கள் Z இலிருந்து A க்கு வரிசைப்படுத்தப்பட்டுள்ளன. " End Subஏறும் அல்லது இறங்கும் தாவல்களை அகரவரிசைப்படுத்து
இந்த மேக்ரோ, கொடுக்கப்பட்ட பணிப்புத்தகத்தில், A இலிருந்து Z வரை அல்லது தலைகீழ் வரிசையில் எவ்வாறு ஒர்க்ஷீட்களை வரிசைப்படுத்துவது என்பதை உங்கள் பயனர்கள் தீர்மானிக்க உதவுகிறது.
இதிலிருந்து எக்செல் VBA இல் உள்ள நிலையான உரையாடல் பெட்டி (MsgBox) ஒரு சில முன் வரையறுக்கப்பட்ட பொத்தான்களில் இருந்து தேர்ந்தெடுக்க மட்டுமே அனுமதிக்கிறது, நாங்கள் மூன்று தனிப்பயன் பொத்தான்களைக் கொண்டு எங்களின் சொந்த படிவத்தை (UserForm) உருவாக்குவோம்: A முதல் Z , Z to A , மற்றும் ரத்துசெய் .
இதற்காக, விஷுவல் பேசிக் எடிட்டரைத் திறந்து, இந்தப் பணிப்புத்தகம் வலது கிளிக் செய்து, செருகு ><என்பதைக் கிளிக் செய்யவும். 1>பயனர் படிவம் . உங்கள் படிவத்திற்கு SortOrderFrom என்று பெயரிட்டு, அதில் 4 கட்டுப்பாடுகளைச் சேர்க்கவும்: ஒரு லேபிள் மற்றும் மூன்று பொத்தான்கள்:
அடுத்து, F7ஐ அழுத்தவும் (அல்லது படிவத்தை இருமுறை கிளிக் செய்யவும் ) குறியீடு சாளரத்தைத் திறந்து கீழே உள்ள குறியீட்டை அங்கு ஒட்டவும். குறியீடானது பட்டன் கிளிக்களை இடைமறித்து, ஒவ்வொரு பொத்தானுக்கும் ஒரு தனித்துவமான குறிச்சொல்லை ஒதுக்குகிறது:
பயனர் உங்கள் படிவத்தில் உள்ள A முதல் Z அல்லது Z to A பொத்தானைக் கிளிக் செய்வதைப் பொறுத்து, தாவல்களை வரிசைப்படுத்தவும்ஏறும் அகர வரிசை (இயல்புநிலையாக தேர்ந்தெடுக்கப்பட்டது) அல்லது இறங்கு அகர வரிசை; அல்லது படிவத்தை மூடிவிட்டு, ரத்து செய் எனில் எதுவும் செய்ய வேண்டாம். இது பின்வரும் VBA குறியீட்டைக் கொண்டு செய்யப்படுகிறது, இதை நீங்கள் வழக்கமான முறையில் செருகு > Module வழியாகச் செருகுவீர்கள்.
Sub AlphabetizeTabs() Dim SortOrder as Integer SortOrder = showUserForm = 0 பிறகு x = 1 க்கு Application.Sheets. எண்ணுக்கு y = 1 Application.Sheets.Count - 1 என்றால் வரிசைப்படுத்துதல் = 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 என்றால் முடிவு என்றால் அடுத்து அடுத்த End துணை செயல்பாடு showUserForm() Integer showUserForm = 0 Load SortOrderForm SortOrderForm காட்டு தாவல்களை வரிசைப்படுத்தவும், உங்கள் பணிப்புத்தகத்திலிருந்து AlphabetizeTabs மேக்ரோவை இயக்கவும்:
விருப்பமான வரிசை வரிசையைத் தேர்வு செய்யவும், A முதல் Z<2 வரை சொல்லவும்>, மற்றும் முடிவுகளைக் கவனிக்கவும்:
உதவிக்குறிப்பு. VBA உடன், உங்கள் Excel பணித்தாள்களின் நகல்களையும் உருவாக்கலாம். குறியீடு இங்கே கிடைக்கிறது: எப்படிVBA உடன் Excel இல் நகல் தாள்.
அல்டிமேட் சூட் மூலம் எக்செல் தாவல்களை அகர வரிசைப்படி எப்படி வரிசைப்படுத்துவது
எங்கள் எக்செல் அல்டிமேட் சூட்டின் பயனர்கள் VBA உடன் பிடில் செய்ய வேண்டியதில்லை - அவர்கள் பலவற்றைக் கொண்டுள்ளனர் -செயல்பாட்டுப் பணிப்புத்தக மேலாளர் அவர்களின் வசம்:
உங்கள் எக்செல் ரிப்பனில் சேர்க்கப்பட்ட இந்தக் கருவியின் மூலம், அகரவரிசைப்படுத்தல் தாவல்கள் ஒரே பொத்தானைக் கிளிக் செய்வதன் மூலம் செய்யப்படுகிறது, அது சரியாக இருக்க வேண்டும்!
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> நீங்கள் படிக்கிறீர்கள், அடுத்த வாரம் எங்கள் வலைப்பதிவில் உங்களைப் பார்ப்பீர்கள் என்று நம்புகிறேன்!