Tekst źródłowy strony Funkcje arkusza

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

__FORCETOC__



== Wstawianie nowego arkusza ==

Niekiedy potrzebujemy, aby procedura wstawiła do skoroszytu nowy arkusz i sama dobrała nazwę arkusza różną od nazw już istniejących arkuszy. Zamieszczona niżej procedura rozwiązuje ten problem. Jeśli nie podamy parametru, to wstawianemu arkuszowi zostanie nadana pierwsza wolna nazwa z ciągu: "Arkusz", "Arkusz1", "Arkusz2", "Arkusz3", ... Jeżeli procedura zostanie wywołana z parametrem, to zostanie stworzony analogiczny ciąg nazw, ale zamiast słowa "Arkusz" będzie użyty tekst podany jako parametr.

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>WstawNowyArkusz(<span style='color:#000080;'>Optional</span> NazwaArkusza <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>String</span>)
     <b><span style='color:#1f1c1b;'>Dim</span></b> sName <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>String</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> k <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     <b><span style='color:#1f1c1b;'>If </span></b>IsMissing(NazwaArkusza) <b><span style='color:#1f1c1b;'>Then</span></b>
         sName <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>&quot;Arkusz&quot;</span>
     <b><span style='color:#1f1c1b;'>Else</span></b>
         sName <span style='color:#000080;'>=</span> NazwaArkusza
     <b><span style='color:#1f1c1b;'>End If</span></b>
     <b><span style='color:#1f1c1b;'>If </span></b><b><span style='color:#000000;'>NOT</span></b> ThisComponent.getSheets().hasByName( sName ) <b><span style='color:#1f1c1b;'>Then</span></b> <span style='color:#707070;'>'sprawdza czy arkusz o podanej nazwie już istnieje</span>
         ThisComponent.getSheets().insertNewByName( sName, <span style='color:#ff0000;'>0</span> ) <span style='color:#707070;'>'wstawia nowy arkusz na pozycję 1 (z indeksem 0)</span>
         <b><span style='color:#1f1c1b;'>Exit Sub</span></b>
     <b><span style='color:#1f1c1b;'>End If</span></b>
     <b><span style='color:#1f1c1b;'>For </span></b>k <span style='color:#000080;'>=</span> <span style='color:#ff0000;'>1</span> <b><span style='color:#1f1c1b;'>to</span></b> <span style='color:#ff0000;'>10000</span> <span style='color:#707070;'>'maksymalna liczba arkuszy</span>
         <b><span style='color:#1f1c1b;'>If </span></b><b><span style='color:#000000;'>NOT</span></b> ThisComponent.getSheets().hasByName( sName <span style='color:#000080;'>&amp;</span> k ) <b><span style='color:#1f1c1b;'>Then</span></b> <span style='color:#707070;'>'sprawdza czy arkusz o podanej nazwie już istnieje</span>
             ThisComponent.getSheets().insertNewByName( sName <span style='color:#000080;'>&amp;</span> k, <span style='color:#ff0000;'>0</span> ) <span style='color:#707070;'>'wstawia nowy arkusz na pozycję 1 (z indeksem 0)</span>
             <b><span style='color:#1f1c1b;'>Exit For</span></b>
         <b><span style='color:#1f1c1b;'>End If</span></b>
     <b><span style='color:#1f1c1b;'>Next </span></b>k
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Arkusze1()
     <b><span style='color:#000000;'>Call</span></b> WstawNowyArkusz()
     <b><span style='color:#000000;'>Call</span></b> WstawNowyArkusz(<span style='color:#ff0000;'>&quot;Wyniki&quot;</span>)
 <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;