Sortowanie arkuszy - Darmowe arkusze Excel i Calc

Nawigacja

	Strona Główna Artykuły Download FAQ Forum Linki Zasady Kontakt Szukaj Regulamin

Wątki na Forum

Najnowsze Tematy

Arkusze googla

Arkusz kalkulacyjny ...

kalkulator leasingowy

Jak skopiować tylko...

Excel błędnie sumuje!

Najciekawsze Tematy

Jak skopiować ty...	[6]
Excel błędnie s...	[6]
Wyszukiwanie dat ...	[6]
Funkcje, Arkusze ...	[6]
Pomocy!!!!!!!!!	[5]

Statystyka

Darmowe arkusze Excel i Calc
WITAMY:
Allenelord
jako nowego użytkownika.

Zarejestrowanch Uzytkowników: 192

Super Administratorzy: 1
Administratorzy: 0
Użytkownicy: 191

Użytkownicy Online:

piotr	195 tygodni
grzesiu	263 tygodni
Waldi	503 tygodni
Allenelord	504 tygodni
Dannyitaks	507 tygodni

Gości Online: 1

Twoje IP to: 216.73.216.85

Kategorie Forum	14
Wątki na Forum	21
Posty na Forum	82
Komentarzy	19
Newsy	106
Artykuły	22
Ściągniętych plików	51
Kategorie Downloads	4
Ciekawe Strony	10
Postów w Shoutbox	76

Toplisty i katalogi

	Te banery dają naszej stronie życie: Tutaj znajdziesz Strony zaprzyjaźnione i strony sponsorów serwisu: Będą to strony dla zainteresowanych transportem, techniką transportową i historią transportu oraz obliczeniami. A teraz rózne różności, np.: gie�da �adunk�w i transport�w, ale nie tylko oczywiście. Są jeszcze ciekawostki dla inżynierów i studentów: mes, czyli obliczenia numeryczne, metod� element�w sko�czonych. Może Cię zaciekawi?

Statystyki strony

Zobacz Temat

Darmowe arkusze Excel i Calc | Jak to zrobi | Triki

Autor

Sortowanie arkuszy

Scooby
Użytkownik

Postów: 6
Miejscowość: NET
Data rejestracji: 24.12.06

Dodane dnia 10-09-2007 18:58

Czy ktoś umie pomóc mi posortować arkusze w zeszycie (skoroszycie?) ?

Autor

RE: Sortowanie arkuszy

piotr
Super Administrator

Postów: 34
Miejscowość: Świętochłowice
Data rejestracji: 05.12.06

Dodane dnia 10-09-2007 19:00

Moim zdaniem ta procedura sortuje arkusze w aktywnym zeszycie.

Sub SortujArkusze()

Application.ScreenUpdating = False

Dim i, j
Dim ActWork As Worksheet
Dim ActRan As Range
Dim najmn As Worksheet

Set ActWork = ActiveSheet
Set ActRan = Selection
Set najmn = Sheets(1)

For i = 1 To Sheets.Count

For j = i To Sheets.Count

If Sheets(j).Name < najmn.Name Then
Set najmn = Sheets(j)
End If

najmn.Move before:=Sheets(i)

Next

On Error GoTo blad

Set najmn = Sheets(i + 1)

Next

blad: ActWork.Activate

ActRan.Select

End Sub

Jam, nie chwaląc się, to uczynił...

Logowanie

	Nazwa Użytkownika Hasło Nie jesteś jeszcze naszym Użytkownikiem? Kilknij TUTAJ żeby się zarejestrować. Zapomniane hasło? Wyślemy nowe, kliknij TUTAJ.

Ankieta

	Czego mi brakuje? Wiadomości i nowinek Więcej arkuszy do załadowania To wszystko jest do chrzanu Musisz się zalogować, żeby móc głosować w tej Ankiecie.

Szukaj

Shoutbox

	Tylko zalogowani mogą dodawać posty w shoutboksie. szterke121 23/10/2015 09:01 Dzień dobry wszystkim, poszukuję kalkulatora leasingowego, jestem świeży i nie wiem czy pytam w dobrym miejscu, dzieki! piotr 03/08/2013 08:38 Dzieje się! Wystarczy zapytać! Mamy arkusze i rady, i wiele innych rzeczy Agata 24/07/2013 09:43 coś się tu dzieje? Szkoda bi niektóre rzeczy są ciekawe ! piotr 23/10/2012 16:38 To ważne o co pytasz, dlatego masz całego newsa Bulbula 23/10/2012 15:29 Co w Calcu odpowiada F4 z excela? Archiwum