Hallo Arnold,
Na mijn vorige post ben ik dringend opgeroepen voor een 'vba-interventie' waar zo'n anderhalve dag werk in is gekropen.
Maar hier ben ik dus weer, en ik heb er geen enkele moeite mee om toe te geven dat je inderdaad een beetje gelijk had.
Met als enige bedenking erbij: voordien had ik al ettelijke tests gedaan met je eerste bijlage en daar nochtans nooit een speciaal patroon in gevonden, maar bij merkelijk meer trekkingen is dat er duidelijk wel, namelijk veel te veel dubbels.
En zoals eerder vastgesteld ligt dat inderdaad aan 'randomize' die binnen de loop staat.
Ook @ cow18:
je 3 opties eens bekeken, en wat ik mij afvraag is: zou je met wat we ondertussen weten optie 4 niet overwegen?
We dienen 'randomize' te lezen als een initialisatie voor 'rnd', dus waarom dat meermaals doen?
In optie 2 en 3 omzeil je het feit dat die geregeld op hetzelfde startpunt komt, maar dan blijf je Excel zonder reden aan het werk zetten (zal uiteraard niet opvallen om 14 x 6 getallen te kiezen).
Optie 1 lijkt dan (herinner je de 1 miljoen trekkingen uit je vorige studies) beter, maar dan moet je volgend testje eens doen.
In bijgevoegd bestandje staan 2 héél korte macro's.
De test gaat als volgt:
1. Voer de bovenste macro uit.
2. Sla het bestand op, sluit het en open het terug.
3. Voer opnieuw de bovenste macro uit.
4. Herhaal punten 1 tot 3 met de onderste macro.
Voor mezelf is het een uitgemaakte zaak: 'randomize' gaat weg uit de loop maar moet wel in de procedure staan, en zonder meer vooraan.
Arnold,
In jouw CommandButton3_Click zou de meest logische plaats dan zijn onmiddellijk onder "If response = vbYes Then".
Nog veel lotto-plezier!
Groeten,
pitufo