lancio dadi visual basic?

Salve a tutti , dovrei fare una simulazione in excel con visual basic sul lancio dadi. Devono esserci 10000 lanci sulla prima colonna e 10000 nella seconda mentre sulla terza la somma tra i risultati che vadano da 2 a 12.

2 risposte

Classificazione
  • 8 anni fa
    Risposta preferita

    Public Sub releaseNut()

    Dim max, min

    max = 6

    min = 1

    Randomize

    For x = 1 To 10000

    Sheets("Foglio1").Range("A" & x).Value = Int((max - min + 1) * Rnd + min)

    Sheets("Foglio1").Range("B" & x).Value = Int((max - min + 1) * Rnd + min)

    Sheets("Foglio1").Range("C" & x).Formula = "=SUM(A" & x & ":B" & x & ")"

    Next

    End Sub

    Ti basta aggiungere un pulsante e assegnare la macro releaseNut, questa, ripeterà l'operazione del lancio dei dati per 10000 volte e restituirà sulla colonna A e sulla colonna B un numero random compreso tra 1 e 6 ed aggiungerà per ogni riga una formula per calcolare la somma dei due valori.

    L'alternativa sarebbe quella di usare la formula RANDBETWEEN(1,6) e ripeterla per 10000 celle sia nella colonna A che nella colonna B e la semplice somma nella colonna C, il problema è che l'utilizzo della formula RANDBETWEEN è legata alla presenza di "Analysist ToolPack" che non è presente nella maggio parte delle installazioni di Excel.

    • Commenter avatarAccedi per rispondere alle risposte
  • 8 anni fa

    TORNA A STUDIARE GIOVANNI.

    negro. JESUSMAN.

    • Commenter avatarAccedi per rispondere alle risposte
Altre domande? Fai una domanda e ottieni le risposte che cerchi.