Optælling af korrekte resultater - makrofunktionen randomize

kan du ikke paste din kode her
+ din HVIS formel

I C11 skriver brugeren resultatet. I D11 laver jeg en beregning heraf. Med hvis-formlen kontrollerer jeg dette. Den er delt i 2, idet der skrives men forskellig skriftsstørrelse og farve alt afhængig af, om resultatet er korrekt.

Min hvis formel ser sådan ud:
=HVIS(C11=D11;"RIGTIGT!";"")
=HVIS(C11<>0;HVIS(C11<>D11;"Forkert - prøv igen!";"");"")

Makroen til et nyt regnestykke ser sådan ud:
Sub Nyetal()
    Randomize
    Num1 = CInt(Range("b1").Value * Rnd())
    Num2 = CInt(Range("b2").Value * Rnd())
    Range("a3").Value = Num1
    Range("a4").Value = Num2
End Sub

Brugen kan angive et maks for de 2 tal der skal indgå i regnestykket.

/Mikael

Jeg har prøvet at eksperimentere med noget lignende, men med 16 nye opgaver når der genereres nye tal. Slutteligt kan man rette alle opgaverne og få oversigt over resultaterne.
Se eksempel på opgavetype med forkortelse af brøker:
http://www.data.lundgraasten.dk/Forkort.xls

kan du ikke sende en mail, så sender jeg lige et forløbig eks.ark

pm@madsen.tdcadsl.dk

Private Sub CommandButton1_Click()
    If Cells(8, 3) <> "" And Sheets("Resultat").Cells(6, 6) = 0 Then
    Sheets("Resultat").Cells(4, 6) = Sheets("Resultat").Cells(4, 6) + 1
    End If
    Randomize
    Num1 = CInt(Range("b5").Value * Rnd())
    Num2 = CInt(Range("b6").Value * Rnd())
    If Num1 < Num2 Then Num1 = Num2 + 2
    Range("C8").Value = Num1
    Range("C9").Value = Num2
    Sheets("Resultat").Range("F1") = Sheets("Resultat").Range("F1") + 1
    Sheets("Resultat").Range("F5") = Range("D11")
    Range("C11").Activate
    Selection = ""
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C11")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Sheets("Resultat").Cells(6, 6) = Sheets("Resultat").Cells(6, 6) + 1
If Target = Sheets("Resultat").Cells(5, 6) Then
Sheets("Resultat").Cells(2, 6) = Sheets("Resultat").Cells(2, 6) + 1
Beep
Application.Wait (Now + TimeValue("0:00:2"))
Beep
CommandButton1_Click
Sheets("Resultat").Cells(6, 6) = ""
Exit Sub
End If
If Target <> Sheets("Resultat").Cells(5, 6) Then
Sheets("Resultat").Cells(3, 6) = Sheets("Resultat").Cells(3, 6) + 1
Target.Select
End If
Sheets("Resultat").Cells(6, 6) = ""
End Sub

?

Tak for hjælpen...

Cybercity har lige haft "trukket" stikket ud så vi har været offline de sidste 3 dage....