Różnice

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

--- fedora:aplikacje:libreoffice:basic [2023/11/07 13:45] – [Tworzenie nowego arkusza] sindap
+++ fedora:aplikacje:libreoffice:basic [2025/01/17 12:08] (aktualna) – [Odkrycie wszystkich ukrytych kolumn] sindap
@@ Linia 12: / Linia 12: @@
 ==== Przykładowe nazwy zmiennych ====
+=== Zmienna dokumentu ===
 <code>
-Dim oDoc As Object ' Ten dokument jako obiekt
+Dim oDoc As Object ' Utwórz obiekt arkuszy
-Dim oSheet As Object ' Ten arkusz jako obiekt
+oDoc = ThisComponent.Sheets ' Ustal arkusze dla którego chcesz użyć makro
+</code>
+=== Zmienna arkusza ===
+<code>
+Dim oSheet As Object ' Utwórz obiekt arkusza
+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
 Dim sFile As String ' Zmienna ścieżki do pliku jako ciąg znaków
@@ Linia 68: / 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 78: / 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 171: / 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 268: / 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 ====