Ankreuzen ähnlich dem Lotto-Schein

[turtle47]

Hallo Marcus,

Besteht in Calc die Möglichkeit, mehrere Zahlenkästchen anzulegen welche (ähnlich einem Online-Lotto-Schein) an- und abgekreuzt werden können?

Ja.

Vielleicht hat Jemand eine Idee?

Nicht nur eine Idee, sondern sogar noch eine Datei aus meiner Grabbelkiste.

Makros ausführen muss erlaubt sein!


Jürgen

Lotto_Listener.ods

(12.96 KiB) 169-mal heruntergeladen

[clag]

Hallo turtle47,

ich bin ja immer an funktionierendem Beispiel Code interessiert um für andere Gelegenheiten mal eine Vorlage zu haben
aus der man was ableiten kann und so im groben versteh ich auch den Ablauf dieses Listener-Aktion
aber ......
was ich nicht auf die Reihe kriege ist, wo werden in dem Makro die Formate für Cellstyle "Standard" "Select" definiert,
also wo müsste man was ändern um zB "Select" als blaue Schrift auf gelben Hintergrund mit fetten roten diagonal Linien darzustellen

Währst du wohl so gut das mal zu erläutern, Bitte

[Karolus]

Hallo

....wo werden in dem Makro die Formate für Cellstyle "Standard" "Select" definiert

@Clag
Weder die Zellvorlagen noch deren Formatattribute werden im Makro definiert, das geschieht ganz konventionell auf der Benutzeroberfläche.

@Jürgen
Respekt! - Ich hab mir trotzdem erlaubt die "Sub Change_Color" etwas aufzuräumen:

Code: Alles auswählen

Sub Change_Color
oDoc = ThisComponent
	oCell = oDoc.getCurrentSelection()
	if oCell.supportsService("com.sun.star.sheet.SheetCell")then 'Zelle angewählt
		if oCell.String = "" Then 
			exit Sub
		end if
		If oCell.CellStyle = "Select" Then
			oCell.CellStyle = "Standard" 
		else
			oCell.CellStyle = "Select" 
		end if
	end if
end sub

Gruß Karo
Edit: Noch ein übersehenes oZell auf oCell geändert

[turtle47]

Hi Clag,

wo werden in dem Makro die Formate für Cellstyle "Standard" "Select" definiert,

Die werden in den Zellvorlagen (F11) definiert.

also wo müsste man was ändern um zB "Select" als blaue Schrift auf gelben Hintergrund mit fetten roten diagonal Linien darzustellen

Rechtsklick auf die Zellvorlage "Select" > Kontextmenue "Ändern", dort kannst Du dann Deine gewünschten Einstellungen vornehmen.

Hilft das weiter?

Jürgen

[turtle47]

Hallo Karolus,

Ich hab mir trotzdem erlaubt die "Sub Change_Color" etwas aufzuräumen:

Respekt!

Danke, aber der zollt wohl eher Dir.

Jürgen

[Karolus]

Hallo

Danke, aber der zollt wohl eher Dir.

Nö - abgelehnt - den behälst du!

Gruß Karo

[clag]

Hallo Karolus,

ahh ähm ja .... das hätte mir vielleicht auch selbst einfallen können

andererseits hätte ich das so nicht gedacht, weil,
wenn jemand die Formatvorlage "select" löscht, weil nicht offensichtlich ist wo's gebraucht wird, funzt plötzlich auch das Makro nicht mehr...
da wäre es doch sicherer wenn man auf Vorhandensein einer Vorlage "Select" prüft und ggf auch eine solche kreiert ....

Das soll jetzt aber keine Kritik am Code sein sondern es sind nur meine Gedanken dazu....

edit:
die auf Karolus Hinweis folgenden Beiträge habe ich erst nach dem absenden gesehen ....
Danke an euch beide für die Aufklärung......

[turtle47]

wenn jemand die Formatvorlage "select" löscht, weil nicht offensichtlich ist wo's gebraucht wird, funzt plötzlich auch das Makro nicht mehr...

Oh Herr, verzeih ihnen, denn sie wissen nicht, was sie tun!

da wäre es doch sicherer wenn man auf Vorhandensein einer Vorlage "Select" prüft und ggf auch eine solche kreiert ....

Das bleibt dir freigestellt.

[Karolus]

Hallo

...da wäre es doch sicherer wenn man auf Vorhandensein einer Vorlage "Select" prüft und ggf auch eine solche kreiert ....

Sicher - es steht dir frei den Code entsprechend zu erweitern!

Gruß Karo

[clag]

Hallo ihr

das liest sich jetzt doch ein bisschen wie auf den Schlips getreten
war aber ganz bestimmt nicht meine Absicht .........

Bin ja froh wenn solch Code zum abschreiben da ist