[SOLVED] Ukrywanie wielu wierszy zdeklarowanych "na sztywno"
: pn wrz 30, 2013 8:17 pm
INWOKACJA: Witajcie, czas przemówić, albo może zaśpiewam: Panie Janie, Panie Janie_J rano wstań, pomoż z belstarem
takiemu nieudacznikowi co makra napisac nie potrafi
FABUŁA: W Calcu zachodzi nieraz potrzeba stworzyc i odwoływać się do pomocniczych kolum czy wierszy.
Kiedy przychodzi do drukowania nie chcemy ich jednak widziec. Kiedy są dwie, czy trzy można ukryć je prawoklikiem,
kiedy jednak robi się ich 30 ponad przydało by się makro
I tutaj zaczyna się moja historia.
Stwórzmy dla potomnych miejsce gdzie znajdą MAKRO UKRYWAJĄCE ZADEKLAROWANE WIERSZE(lub kolumny), konkretne
które ''na sztywno" zadeklaruje użyszkodnik.
w internecie znalazłem taki kawałek kodu (mozliwe ukrywanie i wierszy i kolumn):
Makro działa, jednak jedynie tylko do pierwszego wiersza, pozostałe jak na złość ukryć się nie chcą.
Wasze wprawne oczy pewnie juz widzą błąd w programowaniu, więc proszę - uświadomcie mnie.
PS. chciałbym aby ukryały się wiersze począwszy od 7,9,11,13..i tak co drugi do
65wiersza.
PPS.
Panowie, gdyby to Was nie przeciążyło, da się dopisać coś zeby za drugim kliknięciem guzika, do ktorego przypisze makro owe - wiersze się pojawiały?
DZIĘKUJĘ ZA POMOC!!
takiemu nieudacznikowi co makra napisac nie potrafi
FABUŁA: W Calcu zachodzi nieraz potrzeba stworzyc i odwoływać się do pomocniczych kolum czy wierszy.
Kiedy przychodzi do drukowania nie chcemy ich jednak widziec. Kiedy są dwie, czy trzy można ukryć je prawoklikiem,
kiedy jednak robi się ich 30 ponad przydało by się makro
I tutaj zaczyna się moja historia.
Stwórzmy dla potomnych miejsce gdzie znajdą MAKRO UKRYWAJĄCE ZADEKLAROWANE WIERSZE(lub kolumny), konkretne
które ''na sztywno" zadeklaruje użyszkodnik.
w internecie znalazłem taki kawałek kodu (mozliwe ukrywanie i wierszy i kolumn):
Kod: Zaznacz cały
REM ***** BASIC *****
Sub Ukryj
' Create a new spreadsheet document.
oDoc=ThisComponent
' Get a sheet from the document.
' oSheet = oDoc.getSheets().getByIndex( 0 )
oSheet = oDoc.getSheets().getByName( "BZ" )
' Get the collection of columns.
' oColumns = oSheet.getColumns()
' Get a specific column.
' oColumn = oColumns.getByName( "C" )
' Hide the column.
' oColumn.IsVisible = False
' Get the collection of rows.
oRows = oSheet.getRows()
' Get a specific row.
oRow = oRows.getByIndex("jak_to_zaadresowac")
' Hide the row.
oRow.IsVisible = False
End Sub Wasze wprawne oczy pewnie juz widzą błąd w programowaniu, więc proszę - uświadomcie mnie.
PS. chciałbym aby ukryały się wiersze począwszy od 7,9,11,13..i tak co drugi do
65wiersza.
PPS.
Panowie, gdyby to Was nie przeciążyło, da się dopisać coś zeby za drugim kliknięciem guzika, do ktorego przypisze makro owe - wiersze się pojawiały?
DZIĘKUJĘ ZA POMOC!!