Office: Add.+Sub. in 1 Block o. auch in 1 Aufgabe generieren lassen

Ja, soweit sieht das recht ordendlich aus.. :-) *freu*

Nur wären da nicht die doppelten Aufgaben !

Paffy

 

Naja gut....

So sehen nun mene Arbeitsblätter aus.
*******************************************************************************************************
Division:


*******************************************************************************************************
Multiplikation:


und wie bekomme ich das nun in solch ein Script/Makro rein, wie du es schriebst... das man selber bestimmen kann wo er was hinbauen soll?

Paffy

 

Hallo!

Das findest du im letzten Beitrag auf Seite 3...

 

Hallo!

Ja, das habe ich ja hier angewandt...
ja okay, das baue ist da mit drin... aber wie bekomme ich jetzt multi, divi, addi und subtra in ein Script/Makro auf ein Arbeitsbaltt?

Paffy

 

Hallo!

Du kannst sie alle aus der gleichen Prozedur aufrufen:

Sub Aufruf()
divi Range("A1")
multi Range("H7")
addi Range("Z34")
subtra Range("D234")
End Sub

 

jepp, danke, auf den Weg bin ich jetzt auch schon gekomme :-)
das habe ich nun auch geschafft.... juhu....



*DANKE*
für Deine Hilfe, Ruhe und Geduld....

langsam fängt es an spass zu machen...
dann werde ich das jetzt auch gleich mal mit den Gleichungen versuchen :-)

*Ganz doll drück* Paffy

 

Halt, das wars noch nicht...

jetzt fehlt mit das noch mit plus und minus in einem Block!

Wie erstelle ich das jetzt?

Gruß Paffy

 

Das konnte bereits mein allererster Generator, wenn ich mich recht erinnere...

 

ja eben, aber der ist eben anders aufgebaut als der den wir nun zusammen aufgebaut haben, und ich möchte eigendlich alles in einem haben...

Das was wir hier zusammen (meist du) erstellt haben, bezieht sich nur auf add, sub, multi, divi und auch nur 2x2, alle anderen muss ih auch noch umschreiben, aber denke mal das ich das schaffe, nur fehlt mir jetzt das zufällige 2x2 PM als neues script...

MfG Paffy

 

HÄ???

Du kannst mit dem ersten Generator doch problemlos 2x2-Matrizen erstellen; sowohl nur Plus, nur Minus und auch Plus und Minus gemischt:

baue 2, Range("A1"), "PM", 1

erstellt eine 2x2-Matrix mit Plus und Minus.

 

ja, eben der erste generator von dir kann "P","M" und "PM" von 2x2 bis ...
der beinhaltet aber keine Multi und divi....

multi kann mann später auch 3x3 oder 4x4! bei division weiss ich nich!

aber deshalb hatte ich gefragt wie ich das nun so umsetzen kann wie in deinem ersten Script/Makro.

Gruß Paffy

 

Hallo!

Bei einer Multi-4x4-Matrix und einer Divi-4x4-Matrix schnellen dir die Werte extrem fix in die Höhe (bzw. in den Keller).

Nur so als Anmerkung...

 

Hallo schatzi....

ich möchte wenigstens eine Matrix von 3x3 und 4x4 für Multi haben...
auch rein infomäßig... das es da in die höhe schnallt ist mir vollkommen klar...aber ich möchte nicht nur ein script verstehe, sondern eben auch andere Variationen...

denn wen ich verstehe was was bedeutet, eröffnen sich für mich auch doch auch noch andere Wege, was meinst du was mir im Mom alles im Kopf rumspukt... das möchtest du bestimmt nicht wissen :-) *lach*, aber umsomehr ich die scriptsprache vertehe um so mehr kan ich damit machen...

Gruß Paffy

 

Hallo!

Also für die Multiplikation mach ich das ein letztes Mal mit...
Mit diesem Code kannst du eine Multiplikations-Matrix variabler Größe erstellen:
Im Aufruf gibst du zunächst die Größe, dann die Startzelle, dann das zulässige Maximum der Faktoren und schlussendlich das zulässige Maximum der Ergebnisse an.

Code:

Sub Aufruf()
MultiVar 4, [b2], 10, 1000
MultiVar 3, Range("A20"), 11, 1111
End Sub

Sub MultiVar(Größe As Integer, Zelle As Range, ZahlMax As Integer, ErgMax As Long)
'Deklariere einen Spaltenzähler, einen Zeilenzähler, zwei Datenfelder und eine Hilfsvariable:
Dim Spa%, Zei%, Zahl(), Erg(), x&
'Passe die Felder auf die vorgegebene Größe an:
ReDim Zahl(1 To Größe, 1 To Größe)
ReDim Erg(1 To Größe, 1 To 2)
'Zahlen definieren, die kleiner als ZahlMax sind:
Do
For Zei = 1 To Größe        'alle Zeilen
For Spa = 1 To Größe        'alle Spalten
Zahl(Zei, Spa) = 1 + Fix(ZahlMax * Rnd)
Next Spa
Next Zei
'Zeilen-Ergebnisse errechnen:
For Zei = 1 To Größe
x = 1
For Spa = 1 To Größe
x = x * Zahl(Zei, Spa)
Next Spa
Erg(Zei, 1) = x
Next Zei
'Spalten-Ergebnisse errechnen:
For Spa = 1 To Größe
x = 1
For Zei = 1 To Größe
x = x * Zahl(Zei, Spa)
Next Zei
Erg(Spa, 2) = x
Next Spa
'Prüfung, ob alle Ergebnisse innerhalb der vorgegebenen Grenze (ErgMax) liegen:
Loop Until WorksheetFunction.Max(Erg) < ErgMax
'Die Zahlen werden in die Tabelle eingetragen:
For Zei = 1 To Größe
For Spa = 1 To Größe
Zelle.Offset(2 * (Zei - 1), 2 * (Spa - 1)) = Zahl(Zei, Spa)
Next Spa
Next Zei
'Die Ergebnisse werden in die Tabelle eingetragen:
For x = 1 To 2
If x = 1 Then       'Zeilenergebnis??
For Zei = 1 To Größe
Zelle.Offset(2 * (Zei - 1), 2 * Größe) = Erg(Zei, 1)
Next Zei
End If
If x = 2 Then       'Spaltenergebnis??
For Spa = 1 To Größe
Zelle.Offset(2 * Größe, 2 * (Spa - 1)) = Erg(Spa, 2)
Next Spa
End If
Next x
End Sub

Hinweise zur Funktionsweise des Codes sind angegeben.
Fragen zu diesem Code werde ich auch weiterhin beantworten.
Aber alle Fragen, die in irgendeiner Art und Weise weiterführend sind, werden von mir ignoriert!!!
(z.B. Division, Multi+Divi, oder was dir sonst noch so einfällt!)

(Anfangs wolltest du nur ein Dach über'm Kopf; allmählich hast du eine Doppelhaushälfte mit Garten...)

PS: Versuch mal, die Multiplikations- und Gleichheitszeichen selbst einzubauen; diese schreibt der Code nicht!

 

So, nach lagem hin und her habe ich nun das auch geschafft und ich habe mich für folgende Lösung entschieden, weil ich es auf der kurzen Weise nicht geschafft habe...

Also für das 3x3 Variante:

Code:

'*********************  DIE "*" ZEICHEN  *****************************************
Zelle.Offset(0, 1) = "*"
Zelle.Offset(0, 3) = "*"
Zelle.Offset(1, 0) = "*"
Zelle.Offset(1, 2) = "*"
Zelle.Offset(1, 4) = "*"
Zelle.Offset(2, 1) = "*"
Zelle.Offset(2, 3) = "*"
Zelle.Offset(3, 0) = "*"
Zelle.Offset(3, 2) = "*"
Zelle.Offset(3, 4) = "*"
Zelle.Offset(4, 1) = "*"
Zelle.Offset(4, 3) = "*"
'*********************   DIE "=" ZEICHEN   *****************************************
    Zelle.Offset(2 * Zei - 2, 2 * Größe - 1) = "="
    Zelle.Offset(2 * Größe - 1, 2 * Zei - 2) = "="
'*********************   ENDE DER ZEICHEN EINBINDUNG   *****************************

und bei der 4x4 Variante:

Code:

'*********************  DIE "*" ZEICHEN  *****************************************
Zelle.Offset(0, 1) = "*"
Zelle.Offset(0, 3) = "*"
Zelle.Offset(0, 5) = "*"
Zelle.Offset(1, 0) = "*"
Zelle.Offset(1, 2) = "*"
Zelle.Offset(1, 4) = "*"
Zelle.Offset(1, 6) = "*"
Zelle.Offset(2, 1) = "*"
Zelle.Offset(2, 3) = "*"
Zelle.Offset(2, 5) = "*"
Zelle.Offset(3, 0) = "*"
Zelle.Offset(3, 2) = "*"
Zelle.Offset(3, 4) = "*"
Zelle.Offset(3, 6) = "*"
Zelle.Offset(4, 1) = "*"
Zelle.Offset(4, 3) = "*"
Zelle.Offset(4, 5) = "*"
Zelle.Offset(5, 0) = "*"
Zelle.Offset(5, 2) = "*"
Zelle.Offset(5, 4) = "*"
Zelle.Offset(5, 6) = "*"
Zelle.Offset(6, 1) = "*"
Zelle.Offset(6, 3) = "*"
Zelle.Offset(6, 5) = "*"
'*********************   DIE "=" ZEICHEN   *****************************************
    Zelle.Offset(2 * Zei - 2, 2 * Größe - 1) = "="
    Zelle.Offset(2 * Größe - 1, 2 * Zei - 2) = "="
'*********************   ENDE DER ZEICHEN EINBINDUNG   *****************************

(kurze Form ware zwar schöner, aber ich habe es auch so geschafft :-) *freu'
und zufrieden mit deinem Schüler ?-) *grinz*

MfG Paffy