सामग्री तालिका
ट्युटोरियलले VBA कोड र कार्यपुस्तिका प्रबन्धक उपकरण प्रयोग गरेर कसरी एक्सेल कार्यपत्रहरू द्रुत रूपमा क्रमबद्ध गर्न सकिन्छ भनेर देखाउँछ।
माइक्रोसफ्ट एक्सेलले व्यवस्थित गर्न धेरै छिटो र सजिलो तरिकाहरू प्रदान गर्दछ। वर्णानुक्रममा स्तम्भ वा पङ्क्तिहरू। तर एक्सेलमा कार्यपत्रहरू पुन: व्यवस्थित गर्ने एउटा मात्र तरिका छ - तिनीहरूलाई पाना ट्याब पट्टीमा इच्छित स्थानमा तान्नुहोस्। जब यो साँच्चै ठूलो कार्यपुस्तिकामा वर्णमाला ट्याबहरू आउँछ, यो लामो र गलत तरिका हुन सक्छ। समय बचत विकल्प खोज्दै हुनुहुन्छ? त्यहाँ दुईवटा मात्र छन्: VBA कोड वा तेस्रो-पक्ष उपकरणहरू।
VBA सँग एक्सेलमा ट्याबहरूलाई कसरी वर्णमाला बनाउने
तल तपाईंले Excel क्रमबद्ध गर्न तीनवटा VBA कोड उदाहरणहरू पाउनुहुनेछ। प्रयोगकर्ताको छनोटमा आधारित पानाहरू आरोही, घट्दो र कुनै पनि दिशामा।
तपाईंसँग VBA सँग केही अनुभव छ भनी संकेत गर्दै, हामी तपाईंको कार्यपत्रमा म्याक्रो थप्नका लागि आधारभूत चरणहरू मात्र रूपरेखा गर्नेछौं:
<8का लागि विस्तृत चरण-दर-चरण निर्देशनहरू, कृपया Excel मा VBA कोड कसरी घुसाउने र चलाउने हेर्नुहोस्।
टिप। यदि तपाइँ थप प्रयोगको लागि म्याक्रो राख्न चाहनुहुन्छ भने, तपाइँको फाइललाई एक्सेल म्याक्रो-सक्षम कार्यपुस्तिका (.xlsm) को रूपमा बचत गर्न निश्चित हुनुहोस्।
वैकल्पिक रूपमा, तपाइँ हाम्रो नमूना अल्फाबेटाइज एक्सेल ट्याब कार्यपुस्तिका डाउनलोड गर्न सक्नुहुन्छ, यदि प्रोम्प्ट गरिएको छ भने सामग्री सक्षम गर्नुहोस्, र त्यहाँबाट सीधै इच्छित म्याक्रो चलाउनुहोस्। कार्यपुस्तिकाले निम्न म्याक्रोहरू समावेश गर्दछ:
- ट्याबहरू आरोहण - पानाहरू A देखि Z सम्म वर्णमाला क्रमबद्ध गर्नुहोस्।
- ट्याबहरू अवतरण - पानाहरू व्यवस्थित गर्नुहोस् उल्टो क्रम, Z देखि A सम्म।
- AlphabetizeTabs - पाना ट्याबहरू दुवै दिशामा क्रमबद्ध गर्नुहोस्, आरोही वा घट्दो।
नमूना कार्यपुस्तिका डाउनलोड गरी खोल्नुहोस् तपाईको एक्सेल, तपाईको आफ्नै कार्यपुस्तिका खोल्नुहोस् जहाँ तपाई ट्याबहरू वर्णमाला गर्न चाहनुहुन्छ, Alt + F8 थिच्नुहोस्, इच्छित म्याक्रो चयन गर्नुहोस्, र रन क्लिक गर्नुहोस्।
एक्सेल ट्याबहरू A देखि Z<15 लाई वर्णमाला अनुसार क्रमबद्ध गर्नुहोस्।>
यो सानो म्याक्रोले हालको कार्यपुस्तिकामा पानाहरूलाई अल्फान्यूमेरिक क्रम मा व्यवस्थित गर्दछ, पहिले कार्यपत्रहरू जसको नाम संख्याहरूबाट सुरु हुन्छ, त्यसपछि पानाहरू A देखि Z सम्म।
उप ट्याबहरूAscending() 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 सम्म क्रमबद्ध गरिएका छन्।" End SubZ बाट A मा एक्सेल ट्याबहरू व्यवस्थित गर्नुहोस्
यदि तपाईं आफ्नो पानाहरूलाई अल्फान्यूमेरिक क्रम घट्दो क्रममा (Z देखि A, त्यसपछि संख्यात्मक नामहरू सहित पानाहरू) मा क्रमबद्ध गर्न चाहनुहुन्छ भने, त्यसपछि प्रयोग गर्नुहोस्। निम्न कोड:
Sub TabsDescending() 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 यदि अर्को अर्को MsgBox "ट्याबहरू Z देखि A मा क्रमबद्ध गरिएका छन्। " End Subअल्फाबेटाइज ट्याबहरू बढ्दो वा घट्दै
यस म्याक्रोले तपाइँका प्रयोगकर्ताहरूलाई दिइएको कार्यपुस्तिकामा कसरी कार्यपत्रहरू क्रमबद्ध गर्ने भनेर निर्णय गर्न दिन्छ, वर्णमाला A देखि Z वा उल्टो क्रममा।
देखि एक्सेल VBA मा मानक संवाद बक्स (MsgBox) ले मुट्ठीभर पूर्वनिर्धारित बटनहरूबाट मात्र छनोट गर्न अनुमति दिन्छ, हामी तीनवटा अनुकूलन बटनहरूसँग हाम्रो आफ्नै फारम (UserForm) सिर्जना गर्नेछौं: A to Z , Z to A , र रद्द गर्नुहोस् ।
यसको लागि, भिजुअल बेसिक सम्पादक खोल्नुहोस्, दायाँ क्लिक गर्नुहोस् This Workbook , र क्लिक गर्नुहोस् Insert > प्रयोगकर्ता फारम । आफ्नो फारमलाई नाम दिनुहोस् 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 देखि A बटनमा क्लिक गर्छ कि गर्दैन भन्ने आधारमा, ट्याबहरू क्रमबद्ध गर्नुहोस्।बढ्दो वर्णमाला क्रम (पूर्वनिर्धारित रूपमा चयन गरिएको) वा घट्दो वर्णमाला क्रम; वा फारम बन्द गर्नुहोस् र रद्द गर्नुहोस् को अवस्थामा केही नगर्नुहोस्। यो निम्न VBA कोडको साथ गरिन्छ, जुन तपाईंले Insert > Module मार्फत सम्मिलित गर्नुहुन्छ।
Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm यदि SortOrder = 0 त्यसपछि x = 1 को लागी Sub निस्कनुहोस् 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).Name) त्यसपछि Sheets(y)। पछि सार्नुहोस्:=Sheets(y + 1) End If End यदि अर्को End Sub Function showUserForm() Integer showUserForm = 0 लोड SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag अनलोड SortOrderForm End प्रकार्ययदि तपाई अझै VBA सँग धेरै सहज हुनुहुन्न भने, तपाईले हाम्रो नमूना कार्यपुस्तिकालाई Alphabetize ट्याबहरू डाउनलोड गर्न सक्नुहुन्छ, यसलाई तपाईको Excel मा तपाईको आफ्नै फाइलको छेउमा खोल्नुहोस् जहाँ तपाई चाहनुहुन्छ। ट्याबहरू क्रमबद्ध गर्न, र आफ्नो कार्यपुस्तिकाबाट AlphabetizeTabs म्याक्रो चलाउनुहोस्:
रुचाइएको क्रमबद्ध क्रम छनोट गर्नुहोस्, भन्नुहोस्, A देखि Z , र परिणामहरू अवलोकन गर्नुहोस्:
टिप। VBA को साथ, तपाईंले आफ्नो एक्सेल कार्यपत्रहरूको प्रतिलिपिहरू पनि सिर्जना गर्न सक्नुहुन्छ। कोड यहाँ उपलब्ध छ: कसरी गर्नेVBA को साथ Excel मा डुप्लिकेट पाना।
Ultimate Suite को साथ कसरी एक्सेल ट्याबहरू वर्णमाला क्रमबद्ध गर्ने
हाम्रो Ultimate Suite for Excel का प्रयोगकर्ताहरूले VBA को साथमा फिडल गर्नुपर्दैन - तिनीहरूसँग बहुविध छ। -कार्यात्मक कार्यपुस्तिका प्रबन्धक तिनीहरूको डिस्पोजलमा:
तपाईँको एक्सेल रिबनमा थपिएको यो उपकरणको साथ, वर्णमाला ट्याबहरू एक बटन क्लिकको साथ गरिन्छ, ठ्याक्कै जस्तै यो हुनुपर्छ!
यदि तपाईं एक्सेलको लागि यो र 70+ थप व्यावसायिक उपकरणहरू अन्वेषण गर्न उत्सुक हुनुहुन्छ भने, हाम्रो अल्टिमेट सुइटको परीक्षण संस्करण यहाँ डाउनलोडको लागि उपलब्ध छ।
म धन्यवाद दिन्छु। तपाईं पढ्नको लागि र अर्को हप्ता हाम्रो ब्लगमा तपाईंलाई भेट्ने आशा छ!
