Menu

Excel Macro: Estrazione numero casuale da 1 a 90

30 agosto 2016 - Excel macro

Per scopi statistici possiamo vole generare un numero casuale tra 1 e 90 come nel lotto. Per ottenere ciò usiamo la funzione rnd che ha già un array di numeri casuali precalcolati. Solitamente per ovviare al fatto di pescare dallo stesso array di numeri casuali si una la funzione randomize per generare un nuovo array di numeri casuali. Il fatto di usare randomize ad ogni numero non gioverà al fine statistico anzi risulterà deleterio ma questo lo vedremo in un prossimo articolo. Iniziamo col aprire un nuovo foglio ed in B1 mettiamo Numero Generato.

2016.08.30-16-26-48Spazio di lavoro 1

Ora aggiungiamo un pulsante al foglio da Sviluppo —> Inserisci —> Controlli ActiveX —> Pulsante di comando

2016.08.30-16-27-10Spazio di lavoro 1

2016.08.30-16-27-26Spazio di lavoro 1

Ora premiamo il tasto Alt+F11 per accedere all’editor di visual basic e premendo il tasto destro del mouse sopra la cartella “Microsoft Excel Oggetti” inseriamo un modulo

2016.08.30-16-27-57Spazio di lavoro 1

Ora con un doppio click su Modulo1 iniziamo una nuova macro scrivendo “Sub Random” una volta premuto invio excel mette in automatico le parentesi ed “End Sub”

Inseriamo la funzione Randomize per creare una nuova serie di numeri random.

siccome rnd genera numeri compresi tra zero ed uno bisogna moltiplicarlo per il numero massimo che ci interessa, nel nostro caso 90. Int serve per specificare che ci serve un numero intero ed il +1 serve nel caso esca 0 da rnd in modo da ottenere 1

Quindi la riga successiva sarà Numero = int ( 90 * rnd ) + 1

non ci resta che scrivere il numero generato nel foglio Sheets(“Foglio1”).Range(“B2”).Value = Numero

2016.08.30-16-29-33Spazio di lavoro 1

 

Ora che la macro è completa dobbiamo associarla al tasto nel foglio. Doppio click su Foglio1 nella finestra del progetto, praticamente sotto a “Microsoft Excel Oggetti” ed inseriamo all’interno della Private Sub CommandButton1 la parola Random che non è altro che il nome della sub inserita nel Modulo1

2016.08.30-16-29-50Spazio di lavoro 1

Torniamo nel foglio tasto destro sul tasto nel foglio, per cambiare la scritta CommandButton1 in qualcosa di comprensibile come Genera e selezioniamo Proprietà

2016.08.30-16-30-19Spazio di lavoro 1

Dalla finestra proprietà modifichiamo nella riga Caption il valore CommandButton1 con Genera e poi modifichiamo il font del carattere da Calibri ad uno di vostra scelta.

2016.08.30-16-30-37Spazio di lavoro 1

2016.08.30-16-30-59Spazio di lavoro 1

Ora e tutto in ordine e funzionante non ci resta che centrare la scritto ed il numero generato

2016.08.30-16-31-12Spazio di lavoro 1 2016.08.30-16-31-36Spazio di lavoro 1

 

Segue con Excel Macro: Estrazione multiple di numeri casuali da 1 a 90

 

Un pensiero su “Excel Macro: Estrazione numero casuale da 1 a 90

  • Pingback: Excel Macro: Estrazione multiple di numeri casuali da 1 a 90 | Eris Magagnin

  • Lascia un commento