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:

piotr63 tygodni
grzesiu130 tygodni
Waldi370 tygodni
Allenelord372 tygodni
Dannyitaks374 tygodni

Gości Online: 1

Twoje IP to: 18.188.20.56

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
Analiza oglądalności witryny


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
Google
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
Copyright Piotr-Prym © 2006- 2017