GENERARE NUMERI RANDOM CON PULSANTE ATT.DIS.

SALVE A TUTTI . MI CHIEDEVO SE SI POTESSE REALIZZARE ( E SE QUALCUNO POTESSE AIUTANMI) un generatore di numeri random da 1 a 10, con pulsante che attiva il generatore appunto e facca scorrere i numeri in una cella in automatico, con tanto di di pulsante che lo fermi all occorrenza. cioe ATTIVA E DISATTIVA LA RANDOMIZZAZZIONE. spero di essermi spiegato bene...
saluti e grazie ...

ema.cab, 15/01/2017 15.20:

---

S.... e faccia scorrere i numeri in una cella in automatico...

---

non è molto chiaro

in sostanza deve fare girare i numeri casuali in una cella in automatico cioe' con una sola pressone del pulsante ATTIVA

bravo, con le stesse parole ti sei spiegato meglio

PROVO a farmi capire, un generatore che randomizza da 1 a 10, numeri singoli su una cella,ok?...
ora vorrei farlo partire con una macro pulsante che li genera in automatico uno dietro l'altro ess.

o,6,3,8,ecc ma, solo l'ultimo che genera va a vedersi nella cella es A1.

con tanto di pulsante ferma o disattiva...


P.S. GRAZIE COMUNQUE DELL INTERESSAMENTO ALLA MIA DOMANDA....

Ciao ema, excel genera numeri casuali, ci sono 2 funzioni in Excel per questo da inserire nelle celle.

"Casuale() e Casuale.tra()"

la tua dovrebbe essere "Casuale.tra() inserendo 1 e 10 come minimo e massimo, per generare il numero Casuale devi premere "F9" consecutivamente, ed ogni premuta genera un nuovo numero.

ora tu dici che vuoi fermarlo a piacere, cosa intendi?, anche una macro per la generazione del numero ha un inizio e fine, anche a tempo da 0 secondi ad x, ma al di fuori di questo, la sequenza dei numeri sul foglio sarebbe tanto veloce che vedresti solo l'ultimo numero generato.

se spieghi a cosa ti serve questo numero Casuale, probabile che ci siano altri metodi per ottenerlo.

Ciao By Sal

CIAO by sal, e grazie, son un amante della roulette per fare dei tes... so che mi diarai lascia perdere. comunque stavo provando con questo codice ... e qualcosa si muove ora se riesco ad allegare il file lo vedi ....

comunque il codice e' questo


foglio1


Private Sub CommandButton1_Click()
Random1
End Sub



Private Sub CommandButton2_Click()
stopRefresh
End Sub

--------------------------------------------------

Modulo1



Sub Random1()

Dim num As Integer
Randomize

num = Int(Rnd * 11) + 0
Sheets("Foglio1").Range("F5").Value = num
Call startRefresh

End Sub





Sub startRefresh()

Application.OnTime Now + TimeValue("00:00:02"), "Random1", , True
End Sub



Sub stopRefresh()

Application.OnTime Now + TimeValue("00:00:01"), "Random1", , False

End Sub

ora il problema di questo codice e che ogni tanto da errore

Basta spiegare bene e si ottiene rapidamente il risultato

Ciao ema, ed un saluto a Patel, ma la Roulette non ha 36 numeri più lo 0 o doppio 0.

Ciao By Sal

TI RINGRAZIOOOOO patel45

e' proprio quello che cercavo ...

TY

by sal , SI HAI ragione ma e' un tes particolare, grazie tante anche te siete stati molto gentili e pazienti....