VBA Willekeurig getal

Status
Niet open voor verdere reacties.
N

nicoOos

Gebruiker
Lid geworden
15 dec 2009
Berichten
7
Hey
Ik heb de volgende code in VBA gegeven. Het lukt wel maar elk getal komt meer dan 1 keer voor. Wat moet er bij of anders om eenzelfde getal maximum 1 keer te laten verschijnen?

'willekeurig getal tonen in Display bij klikken (getal tussen 1 en 75) elk getal mag maar 1 keer verschijnen
Me.lblDisplay = Int((75 * Rnd) + 1)
 
Kan er iemand mij met iets simpeler materiaal helpen?
ik werk nog niet zo lang met VBA :S

toch bedankt!
 
Een oplossing kan zijn om een array van booleans bij te houden:

dim Nummertjes(75) as integer

In het begin alles naar False zetten en als een nummer getrokken wordt kijken of Nummertjes(GetrokkenNummer) True is. Is dat zo dan een nieuw nummer kiezen en opnieuw de check doen.
Als je een nieuw nummer treft dan Nummertjes(GetrokkenNummer) op True zetten
Dit alles in een While loop zetten

Ron
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan