VBA code Willekeurig getal

Status
Niet open voor verdere reacties.
N

nicoOos

Gebruiker
Lid geworden
15 dec 2009
Berichten
7
Hey,
ik ben bezig met het maken van Bingo.
Ik heb een code ingegeven dat er dan een willekeurig getal wordt afgebeeld.
Het probleem is dat er meer dan 1 keer hetzelfde getal wordt gegeven
ik streef ernaar om elk getal van 1 t.e.m. 99 uit te voeren in een label

is het ook mogelijk om elk getal (bv. om de 5 sec) automatisch te veranderen i.p.v. te drukken op een opdrachtknop(commandbutton).

Zou iemand mj uit deze problemen kunnen helpen?
Alvast Bedankt!!
:)
 
Laatst bewerkt:
Je kunt met Application.WorksheetFunction.CountIf(Range("jouwrange"), sTest)
kijken of het getal al voor komt in het bereik (tabel)

Met on time kun je een macro uitvoeren na een bepaalde tijdsduur (bv 5 sec)
Zo kun je dus om de 5 sec een getal genereren.
Als je om time even googled, vind je genoeg voorbeelden.

mvg Leo
 
leofact zei:
Je kunt met Application.WorksheetFunction.CountIf(Range("jouwrange"), sTest)
kijken of het getal al voor komt in het bereik (tabel)

Met on time kun je een macro uitvoeren na een bepaalde tijdsduur (bv 5 sec)
Zo kun je dus om de 5 sec een getal genereren.
Als je om time even googled, vind je genoeg voorbeelden.

mvg Leo
Klik om te vergroten...

Zou u eens een kort voorbeeld kunnen geven
AUB?
Bedankt!!
 
Laatst bewerkt:
In dit voorbeeld wordt de code om het kwartier uitgevoerd.

Dus in b.v de gebeuertenis macro workbook komt deze code
Code: 
Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:05"), "JouwMacro"

End Sub
Nu wordt 5 sec na het openen van het werkbook JouwMacro aangeroepen.
en daar laat je de gewenst code uitvoeren en zet je ontime weer klaar voor over 5 sec(
Code: 
Sub JouwMacro()

   Application.OnTime Now + TimeValue("00:00:05"), "JouwMacro"
jouw code
End Sub

Wanneer er tekst ingevoerd wordt in een cel wacht excel totdat dit klaar is.
Het ontime event wordt dan niet uitgevoerd (dit wordt dan later ingehaald)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan