12-10-17, 15:45
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Βάλε σε μια 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
Τρέξε τον κώδικα και θα έχεις αποτέλεσμα Α-Ω
Αν αλλάξεις το > σε < θα έχεις αποτέλεσμα Ω-Α
|