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

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

__FORCETOC__



== Znajdowanie używanego zakresu komórek arkusza ==

Używany obszar arkusza to najmniejszy zakres komórek, który zawiera wszystkie komórki arkusza kalkulacyjnego z dowolną zawartością (liczby, tekst, formuły) lub z widocznym formatowaniem (obramowanie i kolor tła). Prawą dolną komórkę używanego obszaru możemy łatwo odnaleźć, wybierając z klawiatury Ctrl + End.


Kursor komórek to po prostu zakres komórek, który udostępnia metody przemieszczania się po arkuszu ([https://api.libreoffice.org/docs/idl/ref/servicecom_1_1sun_1_1star_1_1table_1_1CellCursor.html LINK]). Oczywiście tak wykonywane „przemieszczenia” są niewidoczne – aktywne ustawienie nie ulega zmianie.


Omówimy działanie metod kursora komórek oCllCursor występującego w zamieszczonej niżej funkcji UsedArea() ([https://www.openoffice.org/api/docs/common/ref/com/sun/star/sheet/XUsedAreaCursor.html LINK]):
:*gotoStartOfUsedArea( False ) – redukuje rozmiar kursora komórek do pojedynczej komórki będącej początkiem używanego obszaru
:*gotoStartOfUsedArea( True ) – zmienia rozmiar kursora komórek tak, aby jego początek pokrywał się z początkiem używanego obszaru
:*gotoEndOfUsedArea( False ) – redukuje rozmiar kursora komórek do pojedynczej komórki będącej końcem używanego obszaru
:*gotoEndOfUsedArea( True ) – zmienia rozmiar kursora komórek tak, aby jego koniec pokrywał się z końcem używanego obszaru

 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>UsedArea(sFrame <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>String</span>) <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     <span style='color:#707070;'>'w zależności od parametru funkcja zwraca indeks:</span>
     <span style='color:#707070;'>'(&quot;L&quot;) lewej kolumny, (&quot;U&quot;) górnego wiersza, (&quot;R&quot;) prawej kolumny, (&quot;B&quot;) dolnego wiersza,</span>
     <span style='color:#707070;'>'które wyznaczają granice używanego obszaru arkusza</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oCllCursor <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getCurrentController().ActiveSheet
     oCllCursor <span style='color:#000080;'>=</span> oSht.createCursor() <span style='color:#707070;'>'tworzy kursor komórek obejmujący cały arkusz</span>
     UsedArea <span style='color:#000080;'>=</span> -<span style='color:#ff0000;'>1</span> <span style='color:#707070;'>'ta wartość zostanie zwrócona w przypadku błędnego parametru</span>
     <b><span style='color:#1f1c1b;'>If </span></b>sFrame <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;L&quot;</span> <b><span style='color:#000000;'>OR</span></b> sFrame <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;U&quot;</span> <b><span style='color:#1f1c1b;'>Then</span></b>
         oCllCursor.gotoStartOfUsedArea( False ) <span style='color:#707070;'>'redukuje rozmiar kursora komórek do jednej komórki</span>
         <b><span style='color:#1f1c1b;'>If </span></b>sFrame <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;L&quot;</span> <b><span style='color:#1f1c1b;'>Then</span></b>
             UsedArea <span style='color:#000080;'>=</span> oCllCursor.getRangeAddress().StartColumn <span style='color:#707070;'>'indeks lewej kolumny</span>
         <b><span style='color:#1f1c1b;'>Else</span></b> <span style='color:#707070;'>'sFrame <span style='color:#000080;'>=</span> &quot;U&quot;</span>
             UsedArea <span style='color:#000080;'>=</span> oCllCursor.getRangeAddress().StartRow <span style='color:#707070;'>'indeks górnego wiersza</span>
         <b><span style='color:#1f1c1b;'>End If</span></b>
     <b><span style='color:#1f1c1b;'>End If</span></b>
     <b><span style='color:#1f1c1b;'>If </span></b>sFrame <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;R&quot;</span> <b><span style='color:#000000;'>OR</span></b> sFrame <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;B&quot;</span> <b><span style='color:#1f1c1b;'>Then</span></b>
         oCllCursor.gotoEndOfUsedArea( False ) <span style='color:#707070;'>'redukuje rozmiar kursora komórek do jednej komórki</span>
         <b><span style='color:#1f1c1b;'>If </span></b>sFrame <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;R&quot;</span> <b><span style='color:#1f1c1b;'>Then</span></b>
             UsedArea <span style='color:#000080;'>=</span> oCllCursor.getRangeAddress().EndColumn <span style='color:#707070;'>'indeks prawej kolumny</span>
         <b><span style='color:#1f1c1b;'>Else</span></b> <span style='color:#707070;'>'sFrame <span style='color:#000080;'>=</span> &quot;B&quot;</span>
             UsedArea <span style='color:#000080;'>=</span> oCllCursor.getRangeAddress().EndRow <span style='color:#707070;'>'indeks dolnego wiersza</span>
         <b><span style='color:#1f1c1b;'>End If</span></b>
     <b><span style='color:#1f1c1b;'>End If</span></b>
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Zakresy1()
     MsgBox <span style='color:#ff0000;'>&quot;Indeksy kolumn i wierszy ograniczających używany obszar:&quot;</span> <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Lewa kolumna – &quot;</span>  <span style='color:#000080;'>&amp;</span> UsedArea(<span style='color:#ff0000;'>&quot;L&quot;</span>) <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Górny wiersz – &quot;</span>  <span style='color:#000080;'>&amp;</span> UsedArea(<span style='color:#ff0000;'>&quot;U&quot;</span>) <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Prawa kolumna – &quot;</span> <span style='color:#000080;'>&amp;</span> UsedArea(<span style='color:#ff0000;'>&quot;R&quot;</span>) <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Dolny wiersz – &quot;</span>  <span style='color:#000080;'>&amp;</span> UsedArea(<span style='color:#ff0000;'>&quot;B&quot;</span>)
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Zakresy2()
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oCllCursor <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getCurrentController().ActiveSheet
     oCllCursor <span style='color:#000080;'>=</span> oSht.createCursor() <span style='color:#707070;'>'tworzy kursor komórek obejmujący cały arkusz</span>
     oCllCursor.gotoStartOfUsedArea( True ) <span style='color:#707070;'>'zmienia rozmiar kursora komórek tak, aby jego początek pokrywał się z początkiem używanego obszaru</span>
     MsgBox <span style='color:#ff0000;'>&quot;Indeksy kolumn i wierszy ograniczających używany obszar:&quot;</span>    <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Lewa kolumna – &quot;</span>  <span style='color:#000080;'>&amp;</span> oCllCursor.getRangeAddress().StartColumn <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Górny wiersz – &quot;</span>  <span style='color:#000080;'>&amp;</span> oCllCursor.getRangeAddress().StartRow    <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Prawa kolumna – &quot;</span> <span style='color:#000080;'>&amp;</span> oCllCursor.getRangeAddress().EndColumn   <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Dolny wiersz – &quot;</span>  <span style='color:#000080;'>&amp;</span> oCllCursor.getRangeAddress().EndRow
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Zakresy3()
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oCllCursor <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getCurrentController().ActiveSheet
     oCllCursor <span style='color:#000080;'>=</span> oSht.createCursor() <span style='color:#707070;'>'tworzy kursor komórek obejmujący cały arkusz</span>
     oCllCursor.gotoEndOfUsedArea( True ) <span style='color:#707070;'>'zmienia rozmiar kursora komórek tak, aby jego koniec pokrywał się z końcem używanego obszaru</span>
     MsgBox <span style='color:#ff0000;'>&quot;Indeksy kolumn i wierszy ograniczających używany obszar:&quot;</span>    <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Lewa kolumna – &quot;</span>  <span style='color:#000080;'>&amp;</span> oCllCursor.getRangeAddress().StartColumn <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Górny wiersz – &quot;</span>  <span style='color:#000080;'>&amp;</span> oCllCursor.getRangeAddress().StartRow    <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Prawa kolumna – &quot;</span> <span style='color:#000080;'>&amp;</span> oCllCursor.getRangeAddress().EndColumn   <span style='color:#000080;'>&amp;</span> <span style='color:#0095ff;'>Chr</span>(<span style='color:#ff0000;'>10</span>) <span style='color:#000080;'>&amp;</span> _
            <span style='color:#ff0000;'>&quot;Dolny wiersz – &quot;</span>  <span style='color:#000080;'>&amp;</span> oCllCursor.getRangeAddress().EndRow
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Zakresy4()
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oCllCursor <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getCurrentController().ActiveSheet
     oCllCursor <span style='color:#000080;'>=</span> oSht.createCursor() <span style='color:#707070;'>'tworzy kursor komórek obejmujący cały arkusz</span>
     oCllCursor.gotoStartOfUsedArea( False ) <span style='color:#707070;'>'redukuje rozmiar kursora komórek do jednej komórki</span>
     oCllCursor.gotoEndOfUsedArea( True ) <span style='color:#707070;'>'rozszerza rozmiar kursora komórek na cały używany obszar</span>
     MsgBox <span style='color:#ff0000;'>&quot;Używany obszar: &quot;</span> <span style='color:#000080;'>&amp;</span> oCllCursor.AbsoluteName
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>





== Sumowanie danych zapisanych w zakresie komórek ==

Przedstawiamy dwie funkcje sumujące dane wpisane do komórek w wybranym zakresie komórek. Pierwsza funkcja wykorzystuje funkcję arkusza SUM(), druga funkcja jawnie sumuje każdą wartość (Value) wpisaną do komórki. Czytelnik łatwo sprawdzi, że obie funkcje zwracają identyczne wyniki.

UWAGA1:<br/>
:*należy upewnić się, że w sumowanym zakresie są właściwe komórki, bo funkcja SUM() pomija komórki zawierające tekst, ale '''nie pomija''' komórek zawierających daty i wartości logiczne

UWAGA2:<br/>
:*z poziomu arkusza wpis PRAWDA jest interpretowany jako wartość liczbowa 1 i taką też otrzymamy sumę; z poziomu makra wpis True jest interpretowany jako -1 i odpowiednia suma wynosi -1 – zobacz przykładową procedurę Zakresy5(). Nie potrafię wyjaśnić tej różnicy (wersja LibreOffice: 7.0.2.2).

 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>mySUM(oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>) <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>
     <span style='color:#707070;'>'dla zadanego zakresu komórek sumuje wartości wpisane do tych komórek</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oFuncAcc <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oFuncAcc <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>CreateUnoService</span>(<span style='color:#ff0000;'>&quot;com.sun.star.sheet.FunctionAccess&quot;</span>)
     mySUM <span style='color:#000080;'>=</span> oFuncAcc.callFunction( <span style='color:#ff0000;'>&quot;SUM&quot;</span>, <span style='color:#0095ff;'>Array</span>(oRng) )
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>SumRange(oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>) <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>
     <span style='color:#707070;'>'dla zadanego zakresu komórek sumuje wartości (Value) wpisane do tych komórek</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> row <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, col <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> suma <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>
     suma <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>0</span>
     <b><span style='color:#1f1c1b;'>For </span></b>row <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>0</span> <b><span style='color:#1f1c1b;'>To</span></b> oRng.getRows().getCount() - <span style='color:#ff0000;'>1</span> <span style='color:#707070;'>'odczytujemy liczbę wierszy zakresu oRng</span>
         <b><span style='color:#1f1c1b;'>For </span></b>col <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>0</span> <b><span style='color:#1f1c1b;'>To</span></b> oRng.getColumns().getCount() - <span style='color:#ff0000;'>1</span> <span style='color:#707070;'>'odczytujemy liczbę kolumn zakresu oRng</span>
             suma <span style='color:#000080;'>=</span> suma + oRng.getCellByPosition(col, row).Value
         <b><span style='color:#1f1c1b;'>Next </span></b>col
     <b><span style='color:#1f1c1b;'>Next </span></b>row
     SumRange <span style='color:#000080;'>=</span> suma
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Zakresy5()
     <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>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getSheets().getByIndex(<span style='color:#ff0000;'>0</span>) <span style='color:#707070;'>'uchwyt do pierwszego arkusza</span>
     ThisComponent.CurrentController.setActiveSheet(oSht) <span style='color:#707070;'>'aktywacja pierwszego arkusza</span>
     oSht.getColumns().insertByIndex(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>1</span>) <span style='color:#707070;'>'dodajemy jedną kolumnę na pozycję pierwszą</span>
     oSht.getCellRangebyName(<span style='color:#ff0000;'>&quot;A1&quot;</span>).Value <span style='color:#000080;'>=</span> True <span style='color:#707070;'>' -1</span>
     oSht.getCellRangebyName(<span style='color:#ff0000;'>&quot;A2&quot;</span>).Value <span style='color:#000080;'>=</span> False <span style='color:#707070;'>' 0</span>
     oRng <span style='color:#000080;'>=</span> oSht.getCellRangeByName(<span style='color:#ff0000;'>&quot;A1:A2&quot;</span>)
     oSht.getCellRangebyName(<span style='color:#ff0000;'>&quot;A3&quot;</span>).Value <span style='color:#000080;'>=</span> mySUM(oRng)
     oSht.getCellRangebyName(<span style='color:#ff0000;'>&quot;A4&quot;</span>).Value <span style='color:#000080;'>=</span> SumRange(oRng)
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>


Na zakończenie tej sekcji zauważmy, że zamiast operować na komórkach zadanego zakresu komórek (tak jak to czynimy w funkcji SumRange()) możemy operować na komórkach arkusza. Tak skonstruowana procedura jest mniej elegancka, ale równie skuteczna:

 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>SumRange2(oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>) <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>
     <span style='color:#707070;'>'sumuje wartości (Value) z podanego zakresu komórek</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> row <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, col <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> suma <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>
     suma <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>0</span>
     <b><span style='color:#1f1c1b;'>For </span></b>row <span style='color:#000080;'>=</span> oRng.getRangeAddress().StartRow <b><span style='color:#1f1c1b;'>To</span></b> oRng.getRangeAddress().EndRow <span style='color:#707070;'>'indeksy wierszy arkusza(!)</span>
         <b><span style='color:#1f1c1b;'>For </span></b>col <span style='color:#000080;'>=</span> oRng.getRangeAddress().StartColumn <b><span style='color:#1f1c1b;'>To</span></b> oRng.getRangeAddress().EndColumn <span style='color:#707070;'>'indeksy kolumn arkusza(!)</span>
             suma <span style='color:#000080;'>=</span> suma + oRng.Spreadsheet.getCellByPosition(col, row).Value <span style='color:#707070;'>'odwołujemy się do komórek arkusza(!)</span>
         <b><span style='color:#1f1c1b;'>Next </span></b>col
     <b><span style='color:#1f1c1b;'>Next </span></b>row
     SumRange2 <span style='color:#000080;'>=</span> suma
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>


Sumowanie danych liczbowych<ref name="p1"/> możemy zrealizować wykorzystując metodę '''getData()'''. Podamy przykład takiej funkcji, która może być szczególnie przydatna w przypadku, gdy zakres komórek ma ogromne rozmiary:

 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>SumRange3(oRng <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>) <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>
     <span style='color:#707070;'>'sumuje wartości (Value) z podanego zakresu komórek</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oVec <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> A()
     <b><span style='color:#1f1c1b;'>Dim</span></b> m <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>, n <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> suma <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>
     suma <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>0</span>
     oVec <span style='color:#000080;'>=</span> oRng.getData() <span style='color:#707070;'>'pobrane zostaną jedynie dane liczbowe!</span>
     <b><span style='color:#1f1c1b;'>For </span></b>m <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>LBound</span>(oVec) <b><span style='color:#1f1c1b;'>To</span></b> <span style='color:#0095ff;'>UBound</span>(oVec) <span style='color:#707070;'>'przeglądamy tablicę tablic oVec</span>
         A <span style='color:#000080;'>=</span> oVec(m) <span style='color:#707070;'>'wybrana tablica z tablicy tablic</span>
         <b><span style='color:#1f1c1b;'>For </span></b>n <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>LBound</span>(A) <b><span style='color:#1f1c1b;'>To</span></b> <span style='color:#0095ff;'>UBound</span>(A)
             suma <span style='color:#000080;'>=</span> suma + A(n)
         <b><span style='color:#1f1c1b;'>Next </span></b>n
     <b><span style='color:#1f1c1b;'>Next </span></b>m
     SumRange3 <span style='color:#000080;'>=</span> suma
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>


Do testowania omówionych wyżej funkcji Czytelnik może wykorzystać procedurę:

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Zakresy6()
     <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>
     oSht <span style='color:#000080;'>=</span> ThisComponent.getSheets.getByIndex(<span style='color:#ff0000;'>0</span>) <span style='color:#707070;'>'uchwyt do pierwszego arkusza</span>
     ThisComponent.CurrentController.setActiveSheet(oSht) <span style='color:#707070;'>'aktywacja pierwszego arkusza</span>
     oSht.getColumns().insertByIndex(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>1</span>) <span style='color:#707070;'>'dodajemy jedną kolumnę na pozycję pierwszą</span>
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>0</span>).Value <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>1</span>
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>1</span>).Value <span style='color:#000080;'>=</span> True <span style='color:#707070;'>'-1</span>
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>2</span>).Value <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>DateSerial</span>(<span style='color:#ff0000;'>2000</span>, <span style='color:#ff0000;'>1</span>, <span style='color:#ff0000;'>1</span>) <span style='color:#707070;'>'36526</span>
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>3</span>).<span style='color:#000080;'>String</span> <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;123&quot;</span> <span style='color:#707070;'>'0</span>
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>4</span>).Value <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>Sqr</span>(<span style='color:#ff0000;'>2</span>) <span style='color:#707070;'>'1,4142...</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;'>0</span>, <span style='color:#ff0000;'>4</span>) <span style='color:#707070;'>'zakres A1:A5</span>
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>6</span>).Value <span style='color:#000080;'>=</span> mySUM(oRng) <span style='color:#707070;'>'znajdujemy sumę wartości liczbowych z zakresu A1:A5</span>
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>7</span>).Value <span style='color:#000080;'>=</span> SumRange(oRng)
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>8</span>).Value <span style='color:#000080;'>=</span> SumRange2(oRng)
     oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>9</span>).Value <span style='color:#000080;'>=</span> SumRange3(oRng)
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>








[[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>]]









== Przypisy ==
<references>

<ref name="p1">Czytelnik powinien pamiętać, że sumowane będą również dane typu data i wartości logiczne!</ref>

</references>










&nbsp;