Różnice

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

--- fedora:aplikacje:libreoffice:basic [2023/11/07 19:27] – [Przykładowe nazwy zmiennych] sindap
+++ fedora:aplikacje:libreoffice:basic [2025/01/17 12:08] (aktualna) – [Odkrycie wszystkich ukrytych kolumn] sindap
@@ Linia 25: / Linia 25: @@
 oSheet = ThisComponent.Sheets.getByName("NazwaArkusza") ' Przypisanie arkusza do obiektu
 </code>
+W powyższym przykładzie można by zastosować składnię:
+<code>
+oSheet = oDoc.getByName("NazwaArkusza")
+</code>
+Jakiego sposobu użyjemy zależy od nas. Z jednej strony powyższy wpis może zmniejszyć wielkość kodu ale z drugiej strony mimo tego, że kod będzie mniejszy to może utrudnić jego zrozumienie.
+Trzeba podejść elastycznie co w danym przypadku będzie wygodniejsze, lepsze, zasadne itd.
+=== Inne ===
 <code>
 Dim oTextCSV As Object ' Zmienna dokumentu CSV jako obiekt
@@ Linia 80: / Linia 86: @@
 <code>
-Dim oDoc As Object ' Ten dokument jako obiekt
+Dim oDoc As Object
-' Wyświetlenie nazw arkuszy z dokumentu
+oDoc = ThisComponent.Sheets
-For Each sheet In oDoc
+For Each Sheet In oDoc
-   MsgBox sheet.Name
+   MsgBox Sheet.Name
 Next
 </code>
@@ Linia 90: / Linia 96: @@
 <code>
-Dim oDoc As Object ' Ten dokument jako obiekt
+Dim oDoc As Object
-' Wyświetlenie nazw arkuszy z dokumentu
+oDoc = ThisComponent.Sheets
 MsgBox Join(oDoc.ElementNames, Chr(13))
 </code>
@@ Linia 183: / Linia 189: @@
 </code>
+==== Ukrycie kolumn B, D i G ====
+<code>
+Dim oDoc As Object
+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
+oColumns.getByIndex(3).IsVisible = False ' Ukrycie kolumny D
+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 280: / 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 ====