Multi-, Divi und Divi-, Multi Generator ? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Multi-, Divi und Divi-, Multi Generator ?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 67

Verfasst am: 06.05.2008, 21:54

Hallo, ich schon wieder Smile

Schaffe es wieder nicht Sad

ein Script zu schreiben der mir folgendes generiert Sad

Mit einstellbaren Ergebnissen.
Danke im Voraus... Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4432

Verfasst am: 06.05.2008, 22:29

Hallo!

Für beide Beispiele brauchst du drei Zufallszahlen:
a, b, c (von links nach rechts)
In beiden Fällen sind b und c völlig frei wählbar, während a jeweils bestimmte Bedingungen erfüllen muss (für ganzzahlige Ergebnisse).
Im ersten Beispiel muss a ein Vielfaches von c sein, im zweiten ein Vielfaches von b.

Also in etwa:

Code:

b = Fix(10 * Rnd) + 1
c = Fix(10 * Rnd) + 1
a = c * (Fix(10 * Rnd) + 1) 'Für Beispiel 1
a = b * (Fix(10 * Rnd) + 1) 'Für Beispiel 2

_________________

Viele Grüße vom Schatzi
------------------------
Bitte nimm dir die Zeit für eine (kurze) Rückmeldung, ob dir mein Beitrag geholfen hat oder nicht.
Andere User, die das gleiche (oder ein ähnliches) Problem haben, werden dir dankbar sein.

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 67

Verfasst am: 06.05.2008, 23:06

stelle mich wieder mal zu dumm an Sad

wie sage ich dem script das er zufällig * oder : generieren soll?

Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4432

Verfasst am: 06.05.2008, 23:11

Hallo!

Am einfachsten über eine Zusatzvariable:
x = Rnd
If x > 0.5 Then
'Beispiel 1
Else
'Beispiel 2
End If

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 67

Verfasst am: 06.05.2008, 23:57

mh.... böhmische dörfer..

Wollte das Teil in das Superscript mal einbauen, bekomme das nicht hin Sad

warum kann ich das nicht...
es wäre doch zu einfach, alles mal in einem Script zu bekommen...
Man, normalerweise lerne ich schnell, aber diese Scriptsprache ist mir irgendwie zu hoch Sad

*heul*

Paffy

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 67

Verfasst am: 07.05.2008, 10:20

So, ich habe mir mühe gegeben,
aber ich komme immer noch auf Kommazahlen,
kann eigendlich die Größe des Ergebnisses nicht einstellen,
und sie werden auch nicht selbst generiert die aufgaben,
sondern ich schreibe es vor Sad

Wie kann ih es besser machen?

Paffy

test mal-durch.xls

Beschreibung:

Download

Dateiname:

test mal-durch.xls

Dateigröße:

123 KB

Heruntergeladen:

6 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4432

Verfasst am: 07.05.2008, 11:28

Hallo!

Eine Variable kann immer nur einen Wert zur Zeit annehmen, daher die Probleme mit a.
Teste mal sowas:

Code:

Sub test()
Const Y = 10
Dim a As Integer, b As Integer, c As Integer, i As Integer, x As Double
For i = 1 To 19 Step 2
b = Fix(Y * Rnd) + 1
c = Fix(Y * Rnd) + 1
x = Rnd
If x > 0.5 Then
'Anfang Fall 1
a = c * (Fix(Y * Rnd) + 1)
Cells(i, 7) = a * b / c
Cells(i, 2) = "·"
Cells(i, 4) = ":"
'Ende Fall 1
Else
'Anfang Fall 2
a = b * (Fix(Y * Rnd) + 1)
Cells(i, 7) = c / b * a
Cells(i, 2) = ":"
Cells(i, 4) = "*"
'Ende Fall 2
End If
Cells(i, 1) = a
Cells(i, 3) = b
Cells(i, 5) = c
Cells(i, 6) = "="
Next i
End Sub

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 67

Verfasst am: 07.05.2008, 13:12

Super, klappt...

nur eine Frage noch, woher weiss er das er 10 Aufgaben machen soll...?
Kann er auch mehr, und evtl. eine Spalte weiter, ab J usw.

Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4432

Verfasst am: 07.05.2008, 13:24

Hallo!

Code:

For i = 1 To 19 Step 2
...
Next i

Die Variable i läuft von 1 bis 19 in Zweierschritten, also 1, 3, 5, ... , 17, 19.
Durch die Anweisung

Code:

Cells(Zeile, Spalte) = irgendwas

werden die Werte in die entsprechenden Zellen geschrieben.

Mehr zu For...Next-Schleifen steht in der VBA-Hilfe.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de