Hello Spyder
De handleiding is nog eenvoudiger .
Door een click op de knop "nog een spelletje" zet het vba programma 16 nieuwe getallen in het rooster. Dat rooster staat uiteraard buiten het zichtbare gedeelte.
De formule Range("L1")= Int(9*rnd)+1 geeft dus een afgerond getal (Int) tussen 1 en 9, rnd (randomize)
+1 omdat anders de 0 ook mogelijk is.
De totalen (horizontaal-vertikaal en diagonaal) zijn met de formule bv =sum(O1+P1+Q1+R1) dus het opnzichtbare rooster.
De vier cijfers in het rooster worden gezet via vba met de formule bv Range("D4").Value = Range("N2").Value
Telkens een rij juist is zal er onderaan voor de vertikale rijen OK komen, eveneens voor de horizontale en de vertikale rijen. De formule hiervoor is = If(Sum(B3+C3+D3+E3)=F2;"OK";"")
De HELP button laat een userform zien met de gegevens van het onzichtbare rooster.
Dus de oplossing.
Wanneer het rooster volledig juist is ingevuld verschijnt GEWONNEN op het scherm.
Hiervoor gebruikte ik de formule = If(F2="OK";"X";"O")
Om het aantal (10) OK te tellen gebruikte ik de formule =COUNTIF(K1:K10;10)
In het vba project zal deze cell gebruikt worden om te bepalen of alles juist is ingevuld.
Veel puzzelplezier
Firmin
Ps heb nog een mooie variant van SUDOKU gemaakt, deze is echter te groot voor doorzending (561 Kb)