Spisie treści
Poniższa procedura sortuje arkusze w skoroszycie alfabetycznie. Flaga „Sort_Mode_Descending” może być przełączana między malejącym a rosnącym zgodnie z wymaganiami. Procedura jest NIEWRAŻLIWA.
| 1234567891011121314151617181920212223 | Sub Sort_Arkusze()Dim Sort_Mode_Descending As BooleanDim liczba arkuszy jako liczba całkowitaDim Outer_Loop jako liczba całkowitaDim Inner_Loop jako liczba całkowitaLiczba_Arkuszy = Arkusze.Liczba„Zmień flagę zgodnie z potrzebami”Sort_Mode_Descending = FałszDla pętli zewnętrznej = 1 do liczby arkuszyDla wewnętrznej_pętli = 1 do zewnętrznej_pętliJeśli Sort_Mode_Descending = True WtedyJeśli UCase(Arkusze(Zewnętrzna pętla).Nazwa) > UCase(Arkusze(Wewnętrzna pętla).Nazwa) NastępnieArkusze (pętla zewnętrzna). Przenieś przed: = Arkusze (pętla wewnętrzna)Zakończ, jeśliZakończ, jeśliJeśli Sort_Mode_Descending = False, toJeśli UCase(Arkusze(Pętla_zewnętrzna).Nazwa) < UCase(Arkusze(Pętla_wewnętrzna).Nazwa) WtedyArkusze (pętla zewnętrzna). Przenieś przed: = Arkusze (pętla wewnętrzna)Zakończ, jeśliZakończ, jeśliNastępna pętla wewnętrznaNastępna pętla zewnętrzna |
Aby pobrać plik .XLSM z tego artykułu, kliknij tutaj.
