deutsches Forum rund um Apache OpenOffice und LibreOffice
http://de.openoffice.info/
Code: Alles auswählen
def toggle_dates(event):
button = event.Source.Model
show, hide = "Daten einblenden", "Daten ausblenden"
sheet = button.Parent.Parent.Parent.CurrentSelection.Spreadsheet
if button.Label == show:
sheet.Rows.IsVisible = True
button.Label = hide
return
button.Label = show
V_col = sheet.Columns.V
dates = V_col.queryContentCells( 2 )
for date in dates:
date.Rows.IsVisible = FalseCode: Alles auswählen
def yieldparts(container):
econtainer = container.createEnumeration()
while econtainer.hasMoreElements():
yield econtainer.nextElement()
def toggle_dates(event):
button = event.Source.Model
show, hide = "Daten einblenden", "Daten ausblenden"
sheet = button.Parent.Parent.Parent.CurrentSelection.Spreadsheet
if button.Label == show:
sheet.Rows.IsVisible = True
button.Label = hide
return
button.Label = show
f_col = sheet.Columns.V
dates = f_col.queryContentCells(2)
dates = yieldparts(dates)
for date in dates:
date.Rows.IsVisible = FalseAus der grafischen Oberfläche hat bietet das LO auch nicht an … da musst du schon mit einem Texteditor deiner Wahl das Script im Pfad <deine Lo-Benutzerkonfiguration>/Scripts/python/<dateiname_deiner_wahl>.py speichern.Coco_braucht_Hilfe hat geschrieben:Jetzt wird ein wenig mehr klarer, Danke!
Version ist LibreOffice <5.1
Allerdings komme ich immer noch nicht in das passende Fenster um ein Phytonscript anzulegen.
Natürlich geht das auch mit Basic!Coco_braucht_Hilfe hat geschrieben: Mit LibreOffice Basic geht das nicht oder?
Die Datei funktioniert bei mir. Ist denn bei Dir die Ausführung von Makros aktiviert? Extras-Einstellungen-LibreOffice-Sicherheit-Makrosicherheit sollte höchstens auf mittel stehen.Die Testdatei von hier mit Python funktioniert bei mir leider nicht... da scheint auch was geblockt zu werden.
eine Spalte kann keinen Wert haben, nur eine Zelle in einer Spalte kann einen Wert haben, z.B.:Da kommt aber leider noch eine Fehlermeldung.
Code: Alles auswählen
Sub Ausblenden
oSheet = thisComponent.sheets(0)
if oSheet.getCellrangeByName("G1").Value > 0 then
oZeile = oSheet.getrows().getByIndex(8)
oZeile.isVisible = False
End If
End Subbei mir funktioniert das Einblenden.SCHLECHT: das wieder einblenden funktioniert nicht... was habe ich da vergessen?
für nicht praktikabel, denn diese Schleife läuft hier, wegen ihres Umfangs, einige Minuten.for zi = 3 to 990000