विषय - सूची
निम्नलिखित दिनचर्या एक कार्यपुस्तिका में चादरों को वर्णानुक्रम में क्रमबद्ध करेगी। ध्वज "Sort_Mode_Descending" को आवश्यकतानुसार अवरोही और आरोही के बीच स्विच किया जा सकता है। रूटीन केस असंवेदनशील है।
| 1234567891011121314151617181920212223 | उप सॉर्ट_शीट्स ()मंद Sort_Mode_Descending as Booleanडिम No_of_Sheets पूर्णांक के रूप मेंडिम आउटर_लूप इंटीजर के रूप मेंडिम इनर_लूप अस इंटीजरNo_of_Sheets = पत्रक.गणना'झंडा बदलें जैसा उपयुक्त हो'Sort_Mode_Descending = FalseOuter_Loop = 1 से No_of_Sheets के लिएइनर_लूप = 1 से आउटर_लूप के लिएअगर Sort_Mode_Descending = True तोयदि UCase(Sheets(Outer_Loop).Name) > UCase(Sheets(Inner_Loop).Name) तबशीट्स (आउटर_लूप)। पहले ले जाएँ: = शीट्स (इनर_लूप)अगर अंतअगर अंतअगर Sort_Mode_Descending = False तोअगर UCase(Sheets(Outer_Loop).Name)<UCase(Sheets(Inner_Loop).Name) तोशीट्स (आउटर_लूप)। पहले ले जाएँ: = शीट्स (इनर_लूप)अगर अंतअगर अंतअगला इनर_लूपअगला बाहरी_लूप |
इस लेख से .XLSM फ़ाइल डाउनलोड करने के लिए, यहाँ क्लिक करें।
