Moderator: Moderatoren
Klar kann man, damit meinst Du sicherlich Dich, oder?Karl36 hat geschrieben:Kann man nun ein Makro schreiben,das ...
Damit das einigermassen effizient abläuft muss man das ganze im Hintergrund machen, und die Zahlen erst dann in Calc ausgeben wenn die gewünschte Lösung erreicht ist - um daß zu tun ....Mir ist klar das das ganze ewig dauern wird aber man kann es ja auf mehreren PCs laufen lassen, die alle in verscheidenen Bereichen anfangen zu addieren und mit etwas Glück gibt es mehr als nur 1 Lösung und ist nicht gerade 37 37 37 37 37 37
....tut diese Funktion sehr wohl etwas zur Sache.Also die Formel,die die Ausgangszahl berechnet ist kompliziert und erstreckt sich in verschiedene Zellen, sie tut ja eigentlich auch nichts zur Sache
Dann poste sie trotzdem, denn sie interessiert uns/mich.Also die Formel,die die Ausgangszahl berechnet ist kompliziert und erstreckt sich in verschiedene Zellen, sie tut ja eigentlich auch nichts zur Sache deshalb habe ich sie hier auch nicht gepostet.
und wenn Dir das klar ist warum willst Du das Problem dann in StarBasic lösen? Eine noch langsamere Sprache zur Lösung solcher Probleme gibt es doch wohl kaum.Mir ist klar das das ganze ewig dauern wird
Der Zugriff auf Zellen steht z.B. unter:Wo genau steht das denn ?
Stimmt, weil die geschachtelten Schleifen so hübsch aussehenZum anderen ist es für uns relativ reizlos dir vorzulesen, wie man [...]
schreibe ich trotzdem eine mögliche Variante hin (die noch nicht optimal ist weil sie teils unnötige Schreibvorgänge beinhaltet):Code: Alles auswählen
For a = 0 To 37
For b = 0 To 37
For c = 0 To 37
For d = 0 To 37
For e = 0 To 37
For f = 0 To 37
With ThisComponent.Sheets().GetByName("Tabelle1")
.getCellByPosition(0, 0).Value = a
.getCellByPosition(1, 0).Value = b
.getCellByPosition(2, 0).Value = c
.getCellByPosition(3, 0).Value = d
.getCellByPosition(4, 0).Value = e
.getCellByPosition(5, 0).Value = f
End With
Next f
Next e
Next d
Next c
Next b
Next aCode: Alles auswählen
sub sechs_variablen_von_null_bis_siebenunddreisig
for a = 0 to 37
for b = 0 to 37
usw.
bis
f
.
if ( deine furchtbar komplizierte und geheime Berechnung ) > 0 then
msgbox join( array(a, b, c, d, e, f), "; ")
exit sub
end if
next f
next e
next d
next c
next b
next a
end subCode: Alles auswählen
from itertools import product
kombi = product( range(38), repeat=6 )
def main():
a, b, c, d, e, f = kombi.next()
while ( deine berechnung mit a, b, usw ) <= 0:
a, b, c, d, e, f = kombi.next()
return a, b, c, d, e, fgeht mir genauso, weil doch die eigentlich interessante Frage ohnehin wäre wie löse ich das Gesamtproblem am Geschicktesten mit OOo und nicht wie löse ich das Gesamtproblem mit OOo wenn mir bereits vorgegeben ist das ich eine bestimmte Formel verwenden soll und mein Makro in bestimmter Art und WEise vorgehen soll.Ich bin immer noch neugierig.
Auch wenn es durch die Zaheln und Wennfunktionen relativ nichtssagend ist
ja, aber wegen der Unvollständigkeit (wir hätten dann schon alle 50 Formeln, sinnvollerweise natürlich in einer Tabellendatei gebraucht) hilft das nicht so sehr viel weiter.hoffe ich einen Tropfen Antwort auf den heißen Stein der neugier gegeben zu haben.
Ja, falls du dich hier registrierst, und angemeldet bist kannst auch Datein anhängen.Ich kann aber auch das Dokument hochladen,falls das irgendwie geht.
Der pure Zahlengenerator nach dem Pythonbeispiel von oben läuft hier in ca 12 min durch
Code: Alles auswählen
For a = 0 To 37
For b = 0 To 37
For c = 0 To 37
For d = 0 To 37
For e = 0 To 37
For f = 0 To 37
Next f
Next e
Next d
Next c
Next b
Next aIch habe das mit meinem Basic-Makro mal angetestet, der Unterschied zwischen nur durch die Schleifen interieren und Interieren plus Werte in Tabelle schreiben ist ungefähr Faktor 1650, also wirklich sehr hoch.ich schätze die Ausgabe jeder Kombination in eine Tabelle und das Warten auf das Ergebnis nimmt mindestens mehrere Stunden wenn nicht Tage in Anspruch
Jein, die 6 Werte werden in ein Tuple gesteckt, was in etwa einem Array in Basic entspricht.Ich sehe es richtig das Dein Code inhaltlich nur durch die Werte interiert, also letztlich nur das hier tut:...
Das Makro hast du bereits siehe Stephan Post du musst dem hübschen for-"Schächtelchen" nur noch Sub irgendwas voranstellen und unten ein end Sub folgen lassen.... und mal anfangen zu testen - Viel Vergnügen!Sei's drum. Ich wär echt wunschlos glücklich wenn ich ein Makro hätte wie ihr es beschreibt, auch wenn es so lange dauert
OK, verstehe.Jein, die 6 Werte werden in ein Tuple gesteckt, was in etwa einem Array in Basic entspricht.
Code: Alles auswählen
For a = 0 To 37
For b = 0 To 37
For c = 0 To 37
For d = 0 To 37
For e = 0 To 37
For f = 0 To 37
z() = Array(a,b,c,d,e,f)
Next f
Next e
Next d
Next c
Next b
Next aCode: Alles auswählen
Dim z(5)
For a = 0 To 37
For b = 0 To 37
For c = 0 To 37
For d = 0 To 37
For e = 0 To 37
For f = 0 To 37
z(0) = a
z(1) = b
z(2) = c
z(3) = d
z(4) = e
z(5) = f
Next f
Next e
Next d
Next c
Next b
Next ammh ...Der Versuch das fortlaufend als ...cellrange.setDataArray( ...) nach Calc zu übertragen und gleichzeitig die Summe des Zellbereichs als Kontrolle zu überwachen misslingt weil Calc "einfriert" während der Pythonprozess läuft.
Und woran scheitert es nun uns die kompletten Formeln zugänglich zu machen, nachdem Du ja inzwischen verstanden hattest worum es mir ging? Ich behaupte ja nicht das dadurch zwingend eine bessere LÖsung gefunden werden kann, nur einen Versuch ist es eben schon wert.Sei's drum.
Dann brauchten wir zunächst noch zumindestens [1] die Info in welcher Zelle der Wert steht der darauf geprüft werden soll ob er größer 0 ist:Ich wär echt wunschlos glücklich wenn ich ein Makro hätte wie ihr es beschreibt
Karolus hatte dies nötige Prüfung ja pauschal schon formuliert mit:und erst damit aufhört wenn die ausgegebene Zahl der Formel positiv ist
Code: Alles auswählen
if ( deine furchtbar komplizierte und geheime Berechnung ) > 0 thenJa also was denn nun?Also die Zaheln stehen in B2,C2,D2,E2,F2 und G2
die Prüfzahl, die dann die Schleife beendet steht in BC 27.
Code: Alles auswählen
if ( deine furchtbar komplizierte und geheime Berechnung ) > 0 thenCode: Alles auswählen
Sub Finde_Kombination()
For a = 0 To 37
For b = 0 To 37
For c = 0 To 37
For d = 0 To 37
For e = 0 To 37
For f = 0 To 37
With ThisComponent.Sheets().GetByName("DeinTabellenName")
.getCellByPosition(1, 1).Value = a 'B2
.getCellByPosition(2, 1).Value = b 'C2
.getCellByPosition(3, 1).Value = c 'D2
.getCellByPosition(4, 1).Value = d 'E2
.getCellByPosition(5, 1).Value = e 'F2
.getCellByPosition(6, 1).Value = f 'G2
If .getCellByPosition(54, 26).Value = 1 Then 'BC27
Msgbox "Passende Werte gefunden"
Exit Sub
End If
End With
Next f
Next e
Next d
Next c
Next b
Next a
End Sub