Tekst źródłowy strony Co zrobić, jeśli funkcja jest dostępna w arkuszu, ale nie jest dostępna w makrach?

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





Wiele funkcji jest dostępnych w arkuszu (np. LOG10() lub EASTERSUNDAY() - w polskiej wersji WIELKANOC()), ale nie są dostępne w makrach. Wywołanie takich funkcji jest możliwe, ale jest bardziej skomplikowane. Przykładowo:

 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>myLog10(x <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>) <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Double</span>
     <span style='color:#707070;'>'oblicza logarytm o podstawie 10</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> CreateUnoService(<span style='color:#ff0000;'>&quot;com.sun.star.sheet.FunctionAccess&quot;</span>)
     myLog10 <span style='color:#000080;'>=</span> oFuncAcc.callFunction( <span style='color:#ff0000;'>&quot;LOG10&quot;</span>, Array(x) )
     <span style='color:#707070;'>'UWAGA: funkcja Array() tworzy tablicę, w której przekazujemy wszystkie potrzebne parametry</span>
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Test1()
     MsgBox myLog10(<span style='color:#ff0000;'>100</span>)
     MsgBox LOG10(<span style='color:#ff0000;'>100</span>)
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>


Podobnie mamy:
     
 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>myWielkanoc(Yr <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>) <b><span style='color:#1f1c1b;'>as</span></b> Date
     <span style='color:#707070;'>'oblicza datę Wielkanocy dla danego roku</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> CreateUnoService(<span style='color:#ff0000;'>&quot;com.sun.star.sheet.FunctionAccess&quot;</span>)
     myWielkanoc <span style='color:#000080;'>=</span> oFuncAcc.callFunction( <span style='color:#ff0000;'>&quot;EASTERSUNDAY&quot;</span>, Array(Yr) )
     <span style='color:#707070;'>'UWAGA: funkcja Array() tworzy tablicę, w której przekazujemy wszystkie potrzebne parametry</span>
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Test2()
     MsgBox myWielkanoc(<span style='color:#ff0000;'>2000</span>)
     MsgBox EASTERSUNDAY(<span style='color:#ff0000;'>2000</span>)
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>



Oczywiście jeśli nie przewidujemy wielokrotnego używania takiej funkcji, to możemy powyższą konstrukcję umieścić wprost w procedurze, w której akurat z danej funkcji potrzebujemy skorzystać:

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Suma()
     <span style='color:#707070;'>'procedura sumuje wszystkie liczby z komórek w zakresie od A1 do Z16</span>
     <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>, oCell <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oFuncAcc <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>
     oRng <span style='color:#000080;'>=</span> oSht.getCellRangeByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>25</span>, <span style='color:#ff0000;'>15</span>) <span style='color:#707070;'>'od komórki A1 do Z16</span>
     oCell <span style='color:#000080;'>=</span> oSht.getCellByPosition(<span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>16</span>) <span style='color:#707070;'>'komórka A17</span>
     oFuncAcc <span style='color:#000080;'>=</span> CreateUnoService(<span style='color:#ff0000;'>&quot;com.sun.star.sheet.FunctionAccess&quot;</span>)
     oCell.Value <span style='color:#000080;'>=</span> oFuncAcc.callFunction( <span style='color:#ff0000;'>&quot;SUM&quot;</span>, Array(oRng.Data) )
 <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>]]









&nbsp;