Różnice

Różnice między wybraną wersją a wersją aktualną.

--- fedora:aplikacje:libreoffice:basic [2025/01/16 17:03] – [Wstawienie kolumny B, D i G] sindap
+++ fedora:aplikacje:libreoffice:basic [2025/01/17 12:08] (aktualna) – [Odkrycie wszystkich ukrytych kolumn] sindap
@@ Linia 194: / Linia 194: @@
 Dim oSheet As Object
 Dim oColumns As Object
 ' Pobranie dokumentu i arkusza o nazwie "ImportDanych"
 oDoc = ThisComponent.Sheets
 oSheet = oDoc.getByName("ImportDanych")
 oColumns = oSheet.getColumns()
 ' Ukrycie kolumn B (1), D (3) i G (6)
 oColumns.getByIndex(1).IsVisible = False ' Ukrycie kolumny B
@@ Linia 205: / Linia 203: @@
 oColumns.getByIndex(6).IsVisible = False ' Ukrycie kolumny G
 </code>
+==== Odkrycie wszystkich ukrytych kolumn ====
+<code>
+Dim oDoc As Object
+Dim oSheet As Object
+Dim oColumns As Object
+Dim i As Integer
+' Pobranie dokumentu i arkusza o nazwie "ImportDanych"
+oDoc = ThisComponent.Sheets
+oSheet = oDoc.getByName("ImportDanych")
+oColumns = oSheet.getColumns()
+' Odkrycie wszystkich kolumn
+For i = 0 To oColumns.getCount() - 1
+    oColumns.getByIndex(i).IsVisible = True
+Next i
+</code>
+Generalnie chyba prościej zaznaczyć cały arkusz w lewym górnym rogu i odkryć kolumny z menu podręcznego myszki.
 ==== Numer ostatniej niepustej kolumny w pierwszym wierszu ====
@@ Linia 302: / Linia 318: @@
 </code>
+==== Ukryj wiersze 2, 5 i 10 ====
+<code>
+Dim oDoc As Object
+Dim oSheet As Object
+Dim oRows As Object
+' Pobranie dokumentu i arkusza o nazwie "ImportDanych"
+oDoc = ThisComponent.Sheets
+oSheet = oDoc.getByName("ImportDanych")
+oRows = oSheet.getRows()
+' Ukrycie wierszy 2 (1), 5 (4) i 10 (9) (indeksy zaczynają się od 0)
+oRows.getByIndex(1).IsVisible = False ' Ukrycie wiersza 2
+oRows.getByIndex(4).IsVisible = False ' Ukrycie wiersza 5
+oRows.getByIndex(9).IsVisible = False ' Ukrycie wiersza 10
+</code>
+==== Odkryj wszystkie wiersze ====
+<code>
+Dim oDoc As Object
+Dim oSheet As Object
+Dim oRows As Object
+Dim i As Long ' Zmieniono na Long, aby obsłużyć duże zakresy
+' Pobranie dokumentu i arkusza o nazwie "ImportDanych"
+oDoc = ThisComponent.Sheets
+oSheet = oDoc.getByName("ImportDanych")
+oRows = oSheet.getRows()
+' Odkrycie wszystkich wierszy
+For i = 0 To oRows.getCount() - 1
+    oRows.getByIndex(i).IsVisible = True
+Next i
+</code>
+Z uwagi na dużą ilość dostępnych wierszy lepiej odkrywać określone wiersze. Makro jako ciekawostka. Mało praktyczne. Może zjeść zasoby.
 ==== Numer ostatniego niepustego wiersza w kolumnie A ====