Tekst źródłowy strony Kolumny i wiersze

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






== Dodawanie i kasowanie kolumn i wierszy ==

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Kolumny_i_Wiersze_1()
     <span style='color:#707070;'>'dodawanie i kasowanie kolumn i wierszy</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSheets <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSheets = ThisComponent.getSheets() <span style='color:#707070;'>'uchwyt do skoroszytu</span>
     oSht = oSheets.getByIndex(<span style='color:#ff0000;'>0</span>) <span style='color:#707070;'>'uchwyt do pierwszego arkusza</span>
     oSht.getColumns().insertByIndex(<span style='color:#ff0000;'>3</span>, <span style='color:#ff0000;'>1</span>) <span style='color:#707070;'>'dodaje jedną (drugi parametr) kolumnę na pozycję czwartą (pierwszy parametr)</span>
     oSht.getRows().removeByIndex(<span style='color:#ff0000;'>5</span>, <span style='color:#ff0000;'>2</span>) <span style='color:#707070;'>'usuwa dwa wiersze (drugi parametr): szósty i siódmy wiersz (pierwszy parametr)</span>
     MsgBox <span style='color:#ff0000;'>&quot;Liczba kolumn w arkuszu: &quot;</span> &amp; oSht.getColumns().getCount() <span style='color:#707070;'>'1024</span>
     MsgBox <span style='color:#ff0000;'>&quot;Liczba wierszy w arkuszu: &quot;</span> &amp; oSht.getRows().getCount() <span style='color:#707070;'>'1048576</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>



Widzimy, że w przypadku wielu operacji na kolumnach określonego arkusza (powiedzmy pierwszego) kod może ulec uproszczeniu, gdy zdefiniujemy obiekt:<br/>
&nbsp;&nbsp;<b>oColumns = ThisComponent.getSheets().getByIndex(0).getColumns()</b><br/>
Obiekt <b>oColumns</b> jest uchwytem do zbioru wszystkich kolumn w danym arkuszu.<br/><br/>

Podobnie w przypadku wielu operacji na wierszach określonego arkusza (powiedzmy o nazwie "Test") przydatny jest obiekt:<br/>
&nbsp;&nbsp;<b>oRows = ThisComponent.getSheets().getByName("Test").getRows()</b><br/>
Obiekt <b>oRows</b> jest uchwytem do zbioru wszystkich wierszy w danym arkuszu.<br/>





== Uchwyt do kolumn i wierszy oraz zmiana ich rozmiarów i właściwości ==

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Kolumny_i_Wiersze_2()
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSheets <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oColumns <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>, oRows <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSheets = ThisComponent.getSheets() <span style='color:#707070;'>'uchwyt do skoroszytu</span>
     oSht = oSheets.getByIndex(<span style='color:#ff0000;'>0</span>) <span style='color:#707070;'>'uchwyt do pierwszego arkusza</span>
     oColumns = oSht.getColumns() <span style='color:#707070;'>'uchwyt do kolumn pierwszego arkusza</span>
     oRows = oSht.getRows() <span style='color:#707070;'>'uchwyt do wierszy pierwszego arkusza</span>
     
     oColumns.getByIndex(<span style='color:#ff0000;'>0</span>).Width = <span style='color:#ff0000;'>4000</span> <span style='color:#707070;'>'wybiera pierwszą kolumnę przez indeks i ustawia jej szerokość równą 40 mm</span>
     oRows.getByIndex(<span style='color:#ff0000;'>0</span>).Height = <span style='color:#ff0000;'>1500</span> <span style='color:#707070;'>'wybiera pierwszy wiersz przez indeks i ustawia jego wysokość równą 15 mm</span>
     oRows.getByIndex(<span style='color:#ff0000;'>0</span>).CellBackColor = <span style='color:#0095ff;'>RGB</span>(<span style='color:#ff0000;'>255</span>, <span style='color:#ff0000;'>0</span>, <span style='color:#ff0000;'>0</span>) <span style='color:#707070;'>'wybiera pierwszy wiersz przez indeks i ustawia kolor tła wiersza</span>
     
     oColumns.getByName(<span style='color:#ff0000;'>&quot;F&quot;</span>).IsVisible = False <span style='color:#707070;'>'wybiera szóstą kolumnę przez nazwę i ją ukrywa</span>
     oRows.getByIndex(<span style='color:#ff0000;'>5</span>).IsVisible = False <span style='color:#707070;'>'wybiera szósty wiersz przez indeks i go ukrywa</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>


Uwaga:
 <span style="color: green">oRows.getByIndex(<span style='color:#ff0000;'>0</span>).CellBackColor <span style='color:#000080;'>=</span> -<span style='color:#ff0000;'>1</span> <span style='color:#707070;'>'ustawia brak koloru</span></span>





== Zmiana nazwy kolumny na indeks kolumny ==

 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>ColumnNameToNum(ColName <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;'>'zamienia nazwę kolumny na jej indeks</span>
     ColumnNameToNum = ThisComponent.getCurrentController().getActiveSheet(). _
                                     getCellRangeByName(ColName &amp; <span style='color:#ff0000;'>&quot;1&quot;</span>).getCellAddress().Column
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Kolumny_i_Wiersze_ColumnNameToNum()
     MsgBox <span style='color:#0095ff;'>ColumnNameToNum</span>(<span style='color:#ff0000;'>&quot;AA&quot;</span>) <span style='color:#707070;'>'26</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>





== Zmiana indeksu kolumny na nazwę kolumny ==

 <span style="color: green"><b><span style='color:#1f1c1b;'>Function </span></b>ColumnNumToName(nCol <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>) <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>String</span>
         <span style='color:#707070;'>'zamienia indeks kolumny na jej nazwę</span>
         <b><span style='color:#1f1c1b;'>Dim</span></b> s <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>String</span>
         s <span style='color:#000080;'>=</span> ThisComponent.getCurrentController().getActiveSheet().getCellByPosition(nCol, <span style='color:#ff0000;'>1</span>).AbsoluteName <span style='color:#707070;'>'np. $Arkusz1.$A$2</span>
         ColumnNumToName <span style='color:#000080;'>=</span> <span style='color:#0095ff;'>Split</span>(s, <span style='color:#ff0000;'>&quot;$&quot;</span>)(<span style='color:#ff0000;'>2</span>)
 <b><span style='color:#1f1c1b;'>End Function</span></b></span>

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Kolumny_i_Wiersze_ColumnNumToName()
     MsgBox <span style='color:#0095ff;'>ColumnNumToName</span>(<span style='color:#ff0000;'>0</span>) <span style='color:#707070;'>'A</span>
     MsgBox <span style='color:#0095ff;'>ColumnNumToName</span>(<span style='color:#ff0000;'>1023</span>) <span style='color:#707070;'>'AMJ</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>





== Kasowanie wierszy i kolumn ==

Kasowanie wierszy (kolumn) wykonujemy od końca. Przykładowo:

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>KasujWierszeParzyste()
     <span style='color:#707070;'>'kasuje wiersze parzyste do wiersza 502</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oRows <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>
     oRows = ThisComponent.getCurrentController().getActiveSheet().getRows()
     <b><span style='color:#1f1c1b;'>For </span></b>k = <span style='color:#ff0000;'>501</span> <b><span style='color:#1f1c1b;'>To</span></b> <span style='color:#ff0000;'>1</span> <b><span style='color:#1f1c1b;'>Step</span></b> -<span style='color:#ff0000;'>2</span> <span style='color:#707070;'>'liczbie 1 odpowiada drugi wiersz</span>
         oRows.removeByIndex(k, <span style='color:#ff0000;'>1</span>)
     <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>KasujWierszeNieparzyste()
     <span style='color:#707070;'>'kasuje wiersze nieparzyste do wiersza 501</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oRows <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>
     oRows = ThisComponent.getCurrentController().getActiveSheet().getRows()
     <b><span style='color:#1f1c1b;'>For </span></b>k = <span style='color:#ff0000;'>500</span> <b><span style='color:#1f1c1b;'>To</span></b> <span style='color:#ff0000;'>0</span> <b><span style='color:#1f1c1b;'>Step</span></b> -<span style='color:#ff0000;'>2</span> <span style='color:#707070;'>'liczbie 0 odpowiada pierwszy wiersz</span>
         oRows.removeByIndex(k, <span style='color:#ff0000;'>1</span>)
     <b><span style='color:#1f1c1b;'>Next </span></b>k
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>





== Polecane strony internetowe ==

[https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Rows_and_Columns BASIC Guide – Rows and Columns]

[https://wiki.openoffice.org/wiki/Spreadsheet_common#Row.2C_Column_selection Spreadsheet common – Working with rows, columns]








[[LibreOffice Calc – makra – przykłady | <b>LibreOffice Calc – makra – przykłady</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;