-

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: -

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Fr, 04.01.2013 11:06

Moin,
miamit hat geschrieben:wie von dir angedacht, F3K,
Veto: Wie von DIR angedacht miamit, ich würde sowas nicht machen, zuviel Arbeit!
miamit hat geschrieben:Kann man die Größe einer MsgBox festlegen, sodass bei 150 Variablen das PopUp nicht über dne ganzen Bildschirm läuft, sondern das PopUp klein ist und einen Scrollbalken hat?
Nicht, dass ich wüßte.
Gruß R

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Do, 03.01.2013 19:05

Hallo,
das XRAY darf natürlich erst nach der Definition der Sonderbedingung kommen.

Code: Alles auswählen

'Nun die Sonderbedingung mit Ziffer 0
Constraints(0).Left = Allgemein.getCellRangeByName("Wert").CellAddress
Constraints(0).Operator = kleinergleich
Constraints(0).Right = Allgemein.getCellRangeByName("Limit").CellAddress
xray Constraints 
'Dem Solver die Constraints uerbergeben
solv.Constraints = Constraints()
Wenn ich dann in Xray auf Constraints(0).left gehe:

Code: Alles auswählen

Column                    long                                         3   
Row                       long                                         0   
Sheet                     short                                        0
Diese Adresse ist die der Zelle D1 auf Tabelle1, was wohl dem Namensbereich "Wert" entspricht!
und
Constraints(0).right

Code: Alles auswählen

Column                    long                                         1   
Row                       long                                         0   
Sheet                     short                                        0
Diese Adresse ist die der Zelle B1 auf Tabelle1, was wohl dem Namensbereich "Limit" entspricht!
Also alles wie es sein soll. Die weiteren Bedingungen schaust Du selber nach?
Edit: Kannst Du besser Französisch als Englisch? Xray gibt auch in Englisch
Gruß R

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von DPunch » Do, 03.01.2013 18:40

Servus

Offensichtlich schreibst Du erst ab Index 1 in Dein Constraints-Array. Starte stattdessen mit 0.

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Do, 03.01.2013 15:42

Hi,
F3K Total hat geschrieben:Tipp: lerne XRAY oder MRI
ich wiederhole mich?
  • Installiere Xray
  • füge diesen Code in dein Makro ein:

Code: Alles auswählen

xray constraints
dann kannst Du selber gucken ...
xray.png
xray.png (43.33 KiB) 5176 mal betrachtet
Gruß R

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Mi, 02.01.2013 17:51

Nö/ja/auch
durch die Definition als "Public Domain/öffentliche Variable" stehen die vorgefüllten Variables und Constraints jetzt nach dem ersten Durchlauf der functions noch zur Verfügung und werden im zweiten Durchlauf weiter ge"redim preserved".
Da sie öffentlich sind, kann man von überall darauf zugreifen und braucht sie nicht mehr zu übergeben.

Gruß R

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Mi, 02.01.2013 17:32

eine sekündliche Überschneidung, hatte sie nochmal ausgetauscht ...

Du musst noch die Zeile

Code: Alles auswählen

XRAY solv
löschen, sonst kommt ohne XRAY eine Fehlermeldung ...

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Mi, 02.01.2013 17:00

Hallo,
Habe Variables auch "oben" definiert.
Zum Verständnis: http://wiki.openoffice.org/wiki/Documen ... _Variables

Gruß R
Dateianhänge
Makro2.ods
(18.58 KiB) 232-mal heruntergeladen

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Mi, 02.01.2013 16:24

Ich kann mich nur wiederholen ...
F3K Total hat geschrieben:da mir das Dokument fehlt, und ich nicht im Nebel irgendwelche "Zielzelle","Wert","Limit" Zellen definieren kann
mit Beispieldokument (ggf. verfremdet) vermutlich eine Sache von ein paar Minuten.
R

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Mo, 31.12.2012 14:16

Ich vermute,
da ist ein Fehler an dieser Stelle:

Code: Alles auswählen

    'Die Adressen der Variablen Zellen an den Solver uebergeben:
    counterV = 0 'Nullsetzen des Variablenzaehlers
    Variables() = F_get_solver_variables_from_named_Range("Mengen_001") 'Variable Zellen aus Berechnungen_001 ermitteln
    Variables() = F_get_solver_variables_from_named_Range("Mengen_002") 'Variable Zellen aus Berechnungen_002 ermitteln
    solv.Variables = Variables()
Denn in der function werden ja, analog zur o.a. Diskussion bzgl. "Static", alle Variablen beim erneuten Aufruf genullt, wenn sie herkömmlich dimensioniert sind. Also auch Variables().

Sprich, du musst vermutlich dafür sorgen, dass die im ersten Lauf der function ermittelten Variables erhalten bleiben, und die des zweiten Laufes angehängt werden.
Entweder durch eine übergeordnete Variable, wie Counter... oder durch eine Static in der function.
Dabei aber nicht mit den Namen durcheinander kommen.
Ich kann es nicht ausprobieren, da mir das Dokument fehlt, und ich nicht im Nebel irgendwelche "Zielzelle","Wert","Limit" Zellen definieren kann
Gruß R

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » Mo, 31.12.2012 10:49

Moin,
um z.B die Variables in einer msgbox auszugeben, geht dies:

Code: Alles auswählen

    dim asV(ubound(Variables)) as string
    for l = 0 to ubound(Variables)
    cVariable = Variables(l)
    asV(l) = "V" & l & " Spalte: " & cVariable.Column & " Zeile: " & cVariable.Row & " Blattindex: " & cVariable.Sheet
    next l
    msgbox join(asV, chr(13))
Bei den Constraints wirds schwieriger, da hast Du noch eine Ebene mehr.
1.) Constraints() ->
  • Constraints(0)
    • .left
      • .Column
      • .Row
    • .Operator
      • .Value
    • .right
      • .Column
      • .Row
  • Constraints(1)
  • Constraints(2) ... usw.
Viel Erfolg
Gruß R

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » So, 30.12.2012 21:22

Hallo DPunch,
Klasse, und Danke für die Erklärung!
Wieder eine Feinheit, die, richtig eingesetzt, hilft, besseren Code zu schreiben.
Habe es ausprobiert:

Code: Alles auswählen

Sub S_Test_Static_Variable
    msgbox "Nonstatic: "+F_count_plus_three
    msgbox "Static: "+F_count_plus_four
    msgbox "Nonstatic: "+F_count_plus_three
    msgbox "Static: "+F_count_plus_four
    msgbox "Nonstatic: "+F_count_plus_three
    msgbox "Static: "+F_count_plus_four
    msgbox "Nonstatic: "+F_count_plus_three
    msgbox "Static: "+F_count_plus_four
End Sub

function F_count_plus_three
    dim counter as integer
    for i = 0 to 2
        counter = counter + 1
    next i
    F_count_plus_three = counter
end function

function F_count_plus_four
    static counter as integer
    for i = 0 to 3
        counter = counter + 1
    next i
    F_count_plus_four = counter
end function
--> Eine "normal" per DIM dimensionierte Integer Variable wird bei jedem Start der function/sub neu initialisiert und startet dann bei 0.

beste Grüße von Rik

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von DPunch » So, 30.12.2012 21:04

Servus

Nein, die Variable ist lokal und somit nur innerhalb der aufgerufenen Prozedur/Funktion sichtbar.
Aber wie gesagt behält die Variable ihren Wert - mal am vorliegenden Fall erklärt:

Code: Alles auswählen

Function F_get_solver_variables_from_named_Range(S_named_Range)as Object
    Static Counter as Integer
    dim Variables(0) as new com.sun.star.table.CellAddress
(...)
Counter wird beim ersten Aufruf der Funktion als Integer mit Wert 0 initialisiert. Wird der Wert dann innerhalb der Funktion verändert, wird dieser Wert beibehalten, bis die Makros komplett durchgelaufen sind. Dadurch folgt dann:

Code: Alles auswählen

(...)
'Erster Aufruf: Counter wird mit Wert 0 initialisiert - innerhalb der Funktion wird z.B. bis auf 10 hochgezählt
   Variables() = F_get_solver_variables_from_named_Range("Mengen") 
'Zweiter Aufruf: Counter hat seinen Wert behalten und steht am Anfang auf 10
   Variables() = F_get_solver_variables_from_named_Range("Mengen2") 
(...)
Es spricht prinzipiell zwar nichts gegen die Verwendung einer modulweit sichtbaren Variable (also Deinen Vorschlag), allerdings müsstest Du dann z.B. beim Kopieren des Makros immer daran denken, die Variable mitzunehmen und hättest einen "verschmutzten" Namensraum innerhalb des Moduls.

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » So, 30.12.2012 20:53

Hallo DPunch,
kurze Verständnisfrage:
Obwohl Counter innerhalb der function dimensioniert wird, kann die static-Variable innerhalb der aufrufenden Sub angesprochen werden?

Gruß Rik

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von DPunch » So, 30.12.2012 20:43

Servus

Kurze Anmerkung:
das gewünschte Verhalten von Counter ist quasi der Prototyp der Verwendung einer statischen Variablen.
Per Deklaration als

Code: Alles auswählen

Static Counter as Integer
innerhalb von "F_get_solver_variables_from_named_Range" hält man den Namensraum innerhalb des Moduls sauber.
Bis alle Makros durchgelaufen sind, wird die Variable ihren Wert behalten (zu beachten allerdings: wird mit 0 initialisiert).

Re: CalcSolver automatisch mit Variablen und Bedingungen fül

von F3K Total » So, 30.12.2012 19:57

miamit hat geschrieben:Ggf. sollte ich für den Counter in der Constraint-Funktion eine andere Bezeichnung wählen, sonst kommt das womöglich zu Missverständnissen.
... gute Idee

Nach oben