Πίνακας περιεχομένων
Η παρακάτω ρουτίνα θα ταξινομήσει τα φύλλα σε ένα βιβλίο εργασίας αλφαβητικά. Η σημαία "Sort_Mode_Descending" μπορεί να αλλάξει μεταξύ φθίνουσας και ανερχόμενης όπως απαιτείται. Η ρουτίνα είναι υπόθεση ΑΣΥΝΗΤΗ.
| 1234567891011121314151617181920212223 | Υποταξινόμηση φύλλων ()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets As IntegerDim Outer_Loop ως ακέραιοςDim Inner_Loop ως ακέραιοςNo_of_Sheets = Sheets.Count«Αλλαγή σημαίας Κατά περίπτωσηSort_Mode_Descending = ΛάθοςΓια Outer_Loop = 1 σε No_of_SheetsΓια Inner_Loop = 1 προς Outer_LoopΑν Ταξινόμηση_Μορφή_κατάβασης = Αληθές τότεΕάν UCase (Φύλλα (Outer_Loop). Όνομα)> UCase (Φύλλα (Inner_Loop). Όνομα) ΤότεΦύλλα (Outer_Loop). Μετακίνηση πριν: = Φύλλα (Inner_Loop)Τέλος εανΤέλος εανΕάν Ταξινόμηση_Μορφή_κατάβασης = Λάθος ΤότεΕάν UCase (Φύλλα (Outer_Loop). Όνομα) <UCase (Φύλλα (Inner_Loop). Όνομα) ΤότεΦύλλα (Outer_Loop). Μετακίνηση πριν: = Φύλλα (Inner_Loop)Τέλος εανΤέλος εανΕπόμενο Inner_LoopΕπόμενο Outer_Loop |
Για λήψη του αρχείου .XLSM από αυτό το άρθρο, κάντε κλικ εδώ.
