Tekst źródłowy strony Sortowanie zakresu komórek

<div style="text-align:right; font-size: 130%; font-style: italic; font-weight: bold;">04.10.2020</div>





== Sortowanie zakresu komórek według jednej kolumny ==

Procedura Sort1() sortuje zakres komórek oRng według jednej (i tylko jednej) kolumny Col, gdzie Col oznacza indeks kolumny w sortowanym zakresie! Wartość parametru IsAscending (True lub False) decyduje o tym, czy sortowanie będzie wykonywane rosnąco (True), czy malejąco (False).

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Sort1(oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, Col <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, IsAscending <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Boolean</span>)
     <span style='color:#707070;'>'sortowanie zakresu komórek oRng według jednej kolumny Col tego zakresu</span>
     <span style='color:#707070;'>'parametr IsAscending określa rodzaj sortowania: rosnące (True) i malejące (False)</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> aProperty(<span style='color:#ff0000;'>0</span>) <b><span style='color:#1f1c1b;'>as</span></b> New com.sun.star.beans.PropertyValue
     <b><span style='color:#1f1c1b;'>Dim</span></b> aFields(<span style='color:#ff0000;'>0</span>) <b><span style='color:#1f1c1b;'>as</span></b> New com.sun.star.util.SortField <span style='color:#707070;'>'deklarowany rozmiar musi odpowiadać liczbie kolumn</span>
     aFields(<span style='color:#ff0000;'>0</span>).Field <span style='color:#000080;'>=</span> Col <span style='color:#707070;'>'numeracja kolumn odnosi się do zakresu komórek oRng, np. 0 - pierwsza kolumna oRng</span>
     aFields(<span style='color:#ff0000;'>0</span>).SortAscending <span style='color:#000080;'>=</span> IsAscending
     aProperty(<span style='color:#ff0000;'>0</span>).Name <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;SortFields&quot;</span>
     aProperty(<span style='color:#ff0000;'>0</span>).Value <span style='color:#000080;'>=</span> aFields()
     oRng.Sort(aProperty())
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Sortowanie1()
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> k <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getCurrentController().getActiveSheet() <span style='color:#707070;'>'uchwyt do aktywnego arkusza</span>
     oSht.getCellRangeByName(<span style='color:#ff0000;'>&quot;A1&quot;</span>).<span style='color:#000080;'>String</span> <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;komórka A1&quot;</span>
     oSht.getCellRangeByName(<span style='color:#ff0000;'>&quot;B2&quot;</span>).<span style='color:#000080;'>String</span> <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;komórka B2&quot;</span>
     <b><span style='color:#1f1c1b;'>For </span></b>k <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>0</span> <b><span style='color:#1f1c1b;'>to</span></b> <span style='color:#ff0000;'>20</span>
         oSht.getCellByPosition(<span style='color:#ff0000;'>3</span>, k).Value <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>RandNum</span>(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>100</span>) <span style='color:#707070;'>'przypadkowe liczby z przedziału [0,100)</span>
     <b><span style='color:#1f1c1b;'>Next </span></b>k
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz postać wyjściową kolumny D&quot;</span>
     oRng <span style='color:#000080;'>=</span> oSht.getCellRangeByPosition(<span style='color:#ff0000;'>3</span>, <span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>3</span>, <span style='color:#ff0000;'>20</span>) <span style='color:#707070;'>'definiujemy zakres od D1 do D21</span>
     <b><span style='color:#000000;'>Call</span></b> <span style='color:#0095ff;'>Sort1</span>(oRng, <span style='color:#ff0000;'>0</span>, True) <span style='color:#707070;'>'liczba 0 oznacza kolumnę D arkusza</span>
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz ponownie kolumnę D&quot;</span>
     oRng <span style='color:#000080;'>=</span> oSht.getCellRangeByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>3</span>, <span style='color:#ff0000;'>20</span>) <span style='color:#707070;'>'definiujemy zakres od A1 do D21</span>
     <b><span style='color:#000000;'>Call</span></b> <span style='color:#0095ff;'>Sort1</span>(oRng, <span style='color:#ff0000;'>3</span>, False) <span style='color:#707070;'>'liczba 3 oznacza kolumnę D arkusza</span>
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz po raz kolejny kolumnę D&quot;</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>





== Sortowanie zakresu komórek według dwóch kolumn ==

Procedura Sort2() sortuje zakres komórek oRng według dwóch kolumn: najpierw według kolumny Col1, a następnie według kolumny Col2. Liczby Col1 i Col2 oznaczają indeksy kolumn w&nbsp;sortowanym zakresie! Wartość parametrów IsAscending1 i IsAscending2 (True lub False) decyduje o tym, czy sortowanie będzie wykonywane rosnąco (True), czy malejąco (False).

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Sort2(oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, Col1 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, IsAscending1 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Boolean</span>, _
                           Col2 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, IsAscending2 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Boolean</span>)
     <span style='color:#707070;'>'sortowanie zakresu komórek oRng według kolumny Col1 tego zakresu, a następnie według kolumny Col2</span>
     <span style='color:#707070;'>'parametry IsAscending1 i IsAscending2 określają rodzaj sortowania: rosnące (True) i malejące (False)</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> aProperty(<span style='color:#ff0000;'>0</span>) <b><span style='color:#1f1c1b;'>as</span></b> New com.sun.star.beans.PropertyValue
     <b><span style='color:#1f1c1b;'>Dim</span></b> aFields(<span style='color:#ff0000;'>1</span>) <b><span style='color:#1f1c1b;'>as</span></b> New com.sun.star.util.SortField <span style='color:#707070;'>'deklarowany rozmiar musi odpowiadać liczbie kolumn</span>
     aFields(<span style='color:#ff0000;'>0</span>).Field <span style='color:#000080;'>=</span> Col1 <span style='color:#707070;'>'numeracja kolumn odnosi się do zakresu komórek oRng, np. 0 - pierwsza kolumna oRng</span>
     aFields(<span style='color:#ff0000;'>0</span>).SortAscending <span style='color:#000080;'>=</span> IsAscending1
     aFields(<span style='color:#ff0000;'>1</span>).Field <span style='color:#000080;'>=</span> Col2 <span style='color:#707070;'>'numeracja kolumn odnosi się do zakresu komórek oRng, np. 1 - druga kolumna oRng</span>
     aFields(<span style='color:#ff0000;'>1</span>).SortAscending <span style='color:#000080;'>=</span> IsAscending2
     aProperty(<span style='color:#ff0000;'>0</span>).Name <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;SortFields&quot;</span>
     aProperty(<span style='color:#ff0000;'>0</span>).Value <span style='color:#000080;'>=</span> aFields()
     oRng.Sort(aProperty())
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Sortowanie2()
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> k <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getCurrentController().getActiveSheet() <span style='color:#707070;'>'uchwyt do aktywnego arkusza</span>
     oSht.getCellRangeByName(<span style='color:#ff0000;'>&quot;A1&quot;</span>).<span style='color:#000080;'>String</span> <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;komórka A1&quot;</span>
     oSht.getCellRangeByName(<span style='color:#ff0000;'>&quot;B2&quot;</span>).<span style='color:#000080;'>String</span> <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;komórka B2&quot;</span>
     <b><span style='color:#1f1c1b;'>For </span></b>k <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>0</span> <b><span style='color:#1f1c1b;'>to</span></b> <span style='color:#ff0000;'>20</span>
         oSht.getCellByPosition(<span style='color:#ff0000;'>3</span>, k).<span style='color:#000080;'>String</span> <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>Chr</span>( <span style='color:#0095ff;'>Int</span>( <span style='color:#0095ff;'>RandNum</span>(<span style='color:#ff0000;'>65</span>, <span style='color:#ff0000;'>73</span>) ) ) <span style='color:#707070;'>'przypadkowe litery od A do H</span>
         oSht.getCellByPosition(<span style='color:#ff0000;'>4</span>, k).Value <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>RandNum</span>(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>100</span>) <span style='color:#707070;'>'przypadkowe liczby z przedziału [0,100)</span>
     <b><span style='color:#1f1c1b;'>Next </span></b>k
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz postać wyjściową kolumn D i E&quot;</span>
     oRng <span style='color:#000080;'>=</span> oSht.getCellRangeByPosition(<span style='color:#ff0000;'>3</span>, <span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>4</span>, <span style='color:#ff0000;'>20</span>) <span style='color:#707070;'>'definiujemy zakres od D1 do E21</span>
     <b><span style='color:#000000;'>Call</span></b> <span style='color:#0095ff;'>Sort2</span>(oRng, <span style='color:#ff0000;'>0</span>, True , <span style='color:#ff0000;'>1</span>, True) <span style='color:#707070;'>'liczby 0 i 1 oznaczają odpowiednio kolumny D i E arkusza</span>
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz ponownie kolumny D i E&quot;</span>
     oRng <span style='color:#000080;'>=</span> oSht.getCellRangeByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>4</span>, <span style='color:#ff0000;'>20</span>) <span style='color:#707070;'>'definiujemy zakres od A1 do E21</span>
     <b><span style='color:#000000;'>Call</span></b> <span style='color:#0095ff;'>Sort2</span>(oRng, <span style='color:#ff0000;'>3</span>, False, <span style='color:#ff0000;'>4</span>, False) <span style='color:#707070;'>'liczby 3 i 4 oznaczają odpowiednio kolumny D i E arkusza</span>
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz po raz kolejny kolumny D i E&quot;</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>





== Sortowanie zakresu komórek według trzech kolumn ==

Procedura Sort3() sortuje zakres komórek oRng według trzech kolumn: najpierw według kolumny Col1, następnie według kolumny Col2 i&nbsp;w&nbsp;następnej kolejności według kolumny Col3. Liczby Col1, Col2 i Col3 oznaczają indeksy kolumn w&nbsp;sortowanym zakresie! Wartość parametrów IsAscending1, IsAscending2 i&nbsp;IsAscending3 (True lub False) decyduje o&nbsp;tym, czy sortowanie będzie wykonywane rosnąco (True), czy malejąco (False).

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Sort3(oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, Col1 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, IsAscending1 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Boolean</span>, _
                           Col2 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, IsAscending2 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Boolean</span>, _
                           Col3 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, IsAscending3 <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Boolean</span>)
     <span style='color:#707070;'>'sortowanie zakresu komórek oRng według kolumny Col1, a następnie według kolumn Col2 oraz Col3</span>
     <span style='color:#707070;'>'parametry IsAscending1, IsAscending2 i IsAscending3 określają rodzaj sortowania: rosnące (True) i malejące (False)</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> aProperty(<span style='color:#ff0000;'>0</span>) <b><span style='color:#1f1c1b;'>as</span></b> New com.sun.star.beans.PropertyValue
     <b><span style='color:#1f1c1b;'>Dim</span></b> aFields(<span style='color:#ff0000;'>2</span>) <b><span style='color:#1f1c1b;'>as</span></b> New com.sun.star.util.SortField <span style='color:#707070;'>'deklarowany rozmiar musi odpowiadać liczbie kolumn</span>
     aFields(<span style='color:#ff0000;'>0</span>).Field <span style='color:#000080;'>=</span> Col1 <span style='color:#707070;'>'numeracja kolumn odnosi się do zakresu komórek oRng, np. 0 - pierwsza kolumna oRng</span>
     aFields(<span style='color:#ff0000;'>0</span>).SortAscending <span style='color:#000080;'>=</span> IsAscending1
     aFields(<span style='color:#ff0000;'>1</span>).Field <span style='color:#000080;'>=</span> Col2 <span style='color:#707070;'>'numeracja kolumn odnosi się do zakresu komórek oRng, np. 1 - druga kolumna oRng</span>
     aFields(<span style='color:#ff0000;'>1</span>).SortAscending <span style='color:#000080;'>=</span> IsAscending2
     aFields(<span style='color:#ff0000;'>2</span>).Field <span style='color:#000080;'>=</span> Col3 <span style='color:#707070;'>'numeracja kolumn odnosi się do zakresu komórek oRng, np. 2 - trzecia kolumna oRng</span>
     aFields(<span style='color:#ff0000;'>2</span>).SortAscending <span style='color:#000080;'>=</span> IsAscending3
     aProperty(<span style='color:#ff0000;'>0</span>).Name <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;SortFields&quot;</span>
     aProperty(<span style='color:#ff0000;'>0</span>).Value <span style='color:#000080;'>=</span> aFields()
     oRng.Sort(aProperty())
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Sortowanie3()
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> d <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Date</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> k <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getCurrentController().getActiveSheet() <span style='color:#707070;'>'uchwyt do aktywnego arkusza</span>
     oSht.getCellRangeByName(<span style='color:#ff0000;'>&quot;A1&quot;</span>).<span style='color:#000080;'>String</span> <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;komórka A1&quot;</span>
     oSht.getCellRangeByName(<span style='color:#ff0000;'>&quot;B2&quot;</span>).<span style='color:#000080;'>String</span> <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;komórka B2&quot;</span>
     <b><span style='color:#1f1c1b;'>For </span></b>k <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>0</span> <b><span style='color:#1f1c1b;'>to</span></b> <span style='color:#ff0000;'>20</span>
         d <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>Int</span>( <span style='color:#0095ff;'>RandNum</span>(<span style='color:#ff0000;'>36892</span>, <span style='color:#ff0000;'>37986</span>) ) <span style='color:#707070;'>'przypadkowe daty z lat 2001 - 2003</span>
         oSht.getCellByPosition(<span style='color:#ff0000;'>3</span>, k).Value <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>Year</span>(d) <span style='color:#707070;'>'rok daty d</span>
         oSht.getCellByPosition(<span style='color:#ff0000;'>4</span>, k).Value <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>Month</span>(d) <span style='color:#707070;'>'miesiąc daty d</span>
         oSht.getCellByPosition(<span style='color:#ff0000;'>5</span>, k).Value <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>Day</span>(d) <span style='color:#707070;'>'dzień miesiąca daty d</span>
     <b><span style='color:#1f1c1b;'>Next </span></b>k
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz postać wyjściową kolumn D, E i F&quot;</span>
     oRng <span style='color:#000080;'>=</span> oSht.getCellRangeByPosition(<span style='color:#ff0000;'>3</span>, <span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>5</span>, <span style='color:#ff0000;'>20</span>) <span style='color:#707070;'>'definiujemy zakres od D1 do F21</span>
     <b><span style='color:#000000;'>Call</span></b> <span style='color:#0095ff;'>Sort3</span>(oRng, <span style='color:#ff0000;'>0</span>, True , <span style='color:#ff0000;'>1</span>, True, <span style='color:#ff0000;'>2</span>, True) <span style='color:#707070;'>'liczby 0, 1, 2 oznaczają odpowiednio kolumny D, E, F arkusza</span>
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz ponownie kolumny D, E i F&quot;</span>
     oRng <span style='color:#000080;'>=</span> oSht.getCellRangeByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>5</span>, <span style='color:#ff0000;'>20</span>) <span style='color:#707070;'>'definiujemy zakres od A1 do F21</span>
     <b><span style='color:#000000;'>Call</span></b> <span style='color:#0095ff;'>Sort3</span>(oRng, <span style='color:#ff0000;'>3</span>, False, <span style='color:#ff0000;'>4</span>, False, <span style='color:#ff0000;'>5</span>, False) <span style='color:#707070;'>'liczby 3, 4, 5 oznaczają odpowiednio kolumny D, E, F arkusza</span>
     MsgBox <span style='color:#ff0000;'>&quot;Zobacz po raz kolejny kolumny D, E i F&quot;</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>





== Sortowanie zakresu komórek według czterech lub większej liczby kolumn ==

Jeśli potrzebujemy posortować dane według n kolumn w przypadku, gdy n > 3, to postępujemy analogicznie, jak w wypisanych wyżej procedurach. Musimy pamiętać o umieszczeniu następującej deklaracji
 <span style="color: green"><b><span style='color:#1f1c1b;'>Dim</span></b> aFields(n - <span style='color:#ff0000;'>1</span>) <b><span style='color:#1f1c1b;'>as</span></b> New com.sun.star.util.SortField</span>
Tak, aby deklarowany rozmiar odpowiadał liczbie kolumn.








[[LibreOffice Calc – makra | <b>LibreOffice Calc – makra</b>]]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[[Henryk Dąbrowski | <b>Strona główna</b>]]









&nbsp;