Szkolenia z MS Excel

środa, 15 lipca 2009

Sortowanie arkuszy- Makro

Proste makro, które służy do posortowania alfabetycznie arkuszy. Mam nadzieję, że po przedstawieniu kilkudziesięciu makr użytkownik zrozumie jak działa język VBA i jakie są jego możliwości. A więc na początku cały kod źródłowy makra.

Sub Sortowaniearkuszy()
'
' Sortowaniearkuszy Makro
' Makro zarejestrowane 2009-06-27, autor Matik
'
Dim i As Integer
Dim k As Integer

For k = 1 To Sheets.Count
For i = 1 To Sheets.Count - 1
If Sheets(i).Name > Sheets(i + 1).Name Then
Sheets(i).Select
Sheets(i).Move After:=Sheets(i + 1)
End If
Next i
Next k
End Sub

Brak komentarzy:

Prześlij komentarz

Related Posts Plugin for WordPress, Blogger...