OpenOffice.info

Hallo karolus,

[quote]von meinen Verbesserungsvorschlägen[/quote]

Ich bitte ausdrücklich darum! 8)

def einblenden(event):
    buttons = event.Source.Model.Parent
    doc = buttons.Parent.Parent
    sheet = doc.CurrentSelection.Spreadsheet
    for i in range( buttons.Count):
        button = buttons.getByIndex(i)
        tag = button.Tag
        state = button.State
        sheet.getCellRangeByName(tag).Rows.IsVisible = state

Hallo

Ja, es geht nochwas:

Schreibt ins Feld "Zusatzinfo" der Optionsbuttons entsprechende Addressbereichseinträge
für LO [color=#FF0000]13:17[/color] →Zeile 13 bis 17
Aoo [color=#FF0000]A13:A17[/color]
! auch bei einzelnen Zellen [color=#FF0000]25:25[/color] mit Doppelpunkt !!

[code=php]def einblenden(event):
    buttons = event.Source.Model.Parent
    doc = buttons.Parent.Parent
    sheet = doc.CurrentSelection.Spreadsheet
    for i in range( buttons.Count):
        button = buttons.getByIndex(i)
        tag = button.Tag
        state = button.State
        sheet.getCellRangeByName(tag).Rows.IsVisible = state[/code]

Ps: Ich freue mich riesig wenn ein paar Leute, endlich mal anfangen mit python, lasst euch bitte nicht abschrecken von meinen Verbesserungsvorschlägen.



Ich hatte gehofft über das Ereignis `Status geändert` auch die `for...`-Schleife einzusparen,aber leider wird die Funktion nur bei Statuserhalt ausgeführt nicht jedoch wenn ein Button den Status verliert.

def p_einblenden(oevent):
#	Welches Optionsfeld wurde angeklickt?
	sname=oevent.Source.Model.Name
#	Nummer des Optionsfeldes?
	nr=int(sname[-1:])
#	Zugriff auf das Dokument, Tabelle1
	oDoc= XSCRIPTCONTEXT.getDocument()
	oTab=oDoc.Sheets.getByIndex(0)
#	Festlegung der Zeilen, ein Bereich für jedes Optionsfeld, jeweils erste und letzte Zeile oder nur einzelne Zeile
	zeilen=((11,13),(15,17),(19,23),(25,),(30,34))
#	Durchlauf durch alle Bereiche, ein- bzw- ausblenden
	z=0
	for i in zeilen:
		z=z+1
		for k in range(i[0],i[len(i)-1]+1):
			oTab.Rows.getByIndex(k-1).IsVisible=(z==nr)

Hallo,

ich habe das Problem mal zum Anlass genommen, mein erstes Python-Makro zu schreiben.
[code]def p_einblenden(oevent):
# Welches Optionsfeld wurde angeklickt?
sname=oevent.Source.Model.Name
# Nummer des Optionsfeldes?
nr=int(sname[-1:])
# Zugriff auf das Dokument, Tabelle1
oDoc= XSCRIPTCONTEXT.getDocument()
oTab=oDoc.Sheets.getByIndex(0)
# Festlegung der Zeilen, ein Bereich für jedes Optionsfeld, jeweils erste und letzte Zeile oder nur einzelne Zeile
zeilen=((11,13),(15,17),(19,23),(25,),(30,34))
# Durchlauf durch alle Bereiche, ein- bzw- ausblenden
z=0
for i in zeilen:
z=z+1
for k in range(i[0],i[len(i)-1]+1):
oTab.Rows.getByIndex(k-1).IsVisible=(z==nr)[/code]
Wahrscheinlich lässt sich das ein oder andere noch effektiver lösen, aber es funktioniert. Hurra! :D
Dank an preklov und karolus (http://de.openoffice.info/viewtopic.php?f=18&t=66796)!

Hallo,

ein bisschen Geduld ... :)
Dein Codeschnipsel deutet auf MS VBA hin, was unter LO so nicht funktionieren wird.
Anbei mal ein Beispiel mit 5 Optionsfeldern. Je nachdem, welches Optionsfeld angewählt wird, werden die entsprechenden Zeilen ein- bzw. ausgeblendet. Welche Zeilen es betrifft ist im Makro festgelegt.