[SOLVED] Ukrywanie co drugiego wiersza

[kristoferes]

Czy ktoś wie jak zmusić funkcję HideRow do tego żeby ukrywała co 2 wiersz w danym arkuszu, bądź lepiej te, w których w pierwszej komórce jest zadana wartość. Rejestrator makr zarejestrował mi coś takiego, jednak makro zatrzymuje się po ukryciu wiersza z zaznaczoną komórką.

Kod: Zaznacz cały

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())
end sub

Będę bardzo wdzięczny za jakąkolwiek pomoc.

[Jan_J]

A tam zaraz rejestrator. W OpenOffice kod z rejestracji jest do niczego. W Basicu:

Kod: Zaznacz cały

Sub test()
  rem ukrywa w bieżącym arkuszu wiersze, które mają tekst z wzorca w kolumnie A. Przetwarzane są wiersze od począwszy pierwszego, dopóki w kolumnie A są niepuste wartości.
  arkusz = thisComponent.CurrentController.ActiveSheet
  wzorzec ="kuku"
  i = 0
  p = arkusz.getCellByPosition(0,i).getString()
  while p <> ""
    arkusz.rows.getByIndex(i).isVisible = (p <> wzorzec)
    i = i+1
    p = arkusz.getCellByPosition(0,i).getString()
  wend
End sub

Proste, szybkie, przyjemne. Powodzenia

[kristoferes]

O to mi właśnie chodziło. Jan_J Po raz kolejny wielkie dzięki .