fedora:aplikacje:libreoffice:basic
Różnice
Różnice między wybraną wersją a wersją aktualną.
Poprzednia rewizja po obu stronachPoprzednia wersjaNowa wersja | Poprzednia wersja | ||
fedora:aplikacje:libreoffice:basic [2025/01/16 17:03] – [Ukrycie kolumn B, D i G] sindap | fedora:aplikacje:libreoffice:basic [2025/01/17 12:08] (aktualna) – [Odkrycie wszystkich ukrytych kolumn] sindap | ||
---|---|---|---|
Linia 203: | Linia 203: | ||
oColumns.getByIndex(6).IsVisible = False ' Ukrycie kolumny G | oColumns.getByIndex(6).IsVisible = False ' Ukrycie kolumny G | ||
</ | </ | ||
+ | |||
+ | ==== Odkrycie wszystkich ukrytych kolumn ==== | ||
+ | < | ||
+ | Dim oDoc As Object | ||
+ | Dim oSheet As Object | ||
+ | Dim oColumns As Object | ||
+ | Dim i As Integer | ||
+ | ' Pobranie dokumentu i arkusza o nazwie " | ||
+ | oDoc = ThisComponent.Sheets | ||
+ | oSheet = oDoc.getByName(" | ||
+ | oColumns = oSheet.getColumns() | ||
+ | ' Odkrycie wszystkich kolumn | ||
+ | For i = 0 To oColumns.getCount() - 1 | ||
+ | oColumns.getByIndex(i).IsVisible = True | ||
+ | Next i | ||
+ | </ | ||
+ | |||
+ | 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 ==== | ==== Numer ostatniej niepustej kolumny w pierwszym wierszu ==== | ||
Linia 300: | Linia 318: | ||
</ | </ | ||
+ | ==== Ukryj wiersze 2, 5 i 10 ==== | ||
+ | < | ||
+ | Dim oDoc As Object | ||
+ | Dim oSheet As Object | ||
+ | Dim oRows As Object | ||
+ | ' Pobranie dokumentu i arkusza o nazwie " | ||
+ | oDoc = ThisComponent.Sheets | ||
+ | oSheet = oDoc.getByName(" | ||
+ | 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 | ||
+ | </ | ||
+ | |||
+ | ==== Odkryj wszystkie wiersze ==== | ||
+ | < | ||
+ | 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 " | ||
+ | oDoc = ThisComponent.Sheets | ||
+ | oSheet = oDoc.getByName(" | ||
+ | oRows = oSheet.getRows() | ||
+ | ' Odkrycie wszystkich wierszy | ||
+ | For i = 0 To oRows.getCount() - 1 | ||
+ | oRows.getByIndex(i).IsVisible = True | ||
+ | Next i | ||
+ | </ | ||
+ | |||
+ | 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 ==== | ==== Numer ostatniego niepustego wiersza w kolumnie A ==== | ||
fedora/aplikacje/libreoffice/basic.1737043419.txt.gz · ostatnio zmienione: 2025/01/16 17:03 przez sindap