Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Γενικά] Ταξινόμηση φυλλων Excel (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4707-taksinomisi-fyllon-excel.html)

genass 12-10-17 15:09
Ταξινόμηση φυλλων Excel
 
Καλησπέρα.
Eχω ένα βιβλίο εργασίας στο Excel το οποίο περιέχει 30 φύλλα εργασίας υπάρχει τρόπος να τα ταξινομήσω αλφαριθμητικά με κάποιο τρόπο?
Χειροκίνητα ξέρω πως γίνεται ένα ένα δηλαδή.
Ευχαριστω πολύ.

Spirosgr 12-10-17 15:45
Βάλε σε μια module, τον πιο κάτω κώδικα.

Κώδικας:
Sub SortWSH()
    Dim _
          i As Integer, _
          x As Integer

    For i = 1 To ThisWorkbook.Sheets.Count
        For x = 1 To ThisWorkbook.Sheets.Count - 1
            If UCase(ThisWorkbook.Sheets(x).Name) > UCase(ThisWorkbook.Sheets(x + 1).Name) Then
                ThisWorkbook.Sheets(x).Move after:=ThisWorkbook.Sheets(x + 1)
            End If
        Next
    Next
End Sub
Τρέξε τον κώδικα και θα έχεις αποτέλεσμα Α-Ω
Αν αλλάξεις το > σε < θα έχεις αποτέλεσμα Ω-Α

genass 12-10-17 17:29
Σπύρο σε ευχαριστώ πάρα πολύ για την άμεση απάντηση Μία χαρά δούλεψε

Spirosgr 12-10-17 17:32
Να 'σαι καλά.


Η ώρα είναι 11:31.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2