[EXCEL]Creare un contatore(Probabilità)

[Spix]

Salve a tutti!
Comincio subito con una domanda banale che però mi sta facendo innervosire.
Sto lavorando su un esercizio di Probabilità nel quale mi si chiede, data un’urna in cui ci sono b palline bianche, r rosse e n nere, simulare un’estrazione di x terne di palline di calcolare la percentuale di estrazioni delle terne formate da due palline nere e una bianca.
Ora, per calcolare la percentuale mi servono casi favorevoli su casi possibili.
Ho già trovato il modo per simulare l'estrazione delle palline, ora però devo creare un contatore che mi segni "+1" ogni qual volta esca la combinazione BiancaBiancaNera(l'ordine non è importante, potrebbe anche essere BiancaNeraBianca, etc). Considerate che nelle celle D26 fino a F26 appaiono in maniera casuale Bianca-Rossa-Nera. Come posso fare? Grazie mille in anticipo

P.S. So che potrebbe essere "tosto" ma ci provo lo stesso a chiedere

Ciao.
Questa formula

=(CONTA.SE(D26:F26;"bianca")=2)*(CONTA.SE(D26:F26;"nera")=1)

restituisce uno se vi sono due "bianca" e una "nera", altrimenti zero.

[Spix]

Inviato da Zer0Kelvin

Ciao.
Questa formula

=(CONTA.SE(D26:F26;"bianca")=2)*(CONTA.SE(D26:F26;"nera")=1)

restituisce uno se vi sono due "bianca" e una "nera", altrimenti zero.

La formula che mi hai dato mi restituisce 1 quando trova due bianche e una nera, ma appena si riaggiornano i valori random torna a zero e non mi memorizza il risultato(praticamente purtroppo non fa da vero e proprio contatore) Hai qualche idea?

[Spix]

Allora ho chiesto a un mio collega e a quanto pare occorre usare perforza VBA...il fatto è che non so assolutamente cosa è e come funziona. Quindi da ora in poi questo topic è ufficialmente riguardante Excel/VBA. Chi ne sa qualcosa è pregato di soccorrermi

Occorre almeno sapere il modo in cui simuli l'estrazione; in base a quello è possibile scrivere il codice per incrementare un contatore.

[Spix]

Inviato da Zer0Kelvin

Occorre almeno sapere il modo in cui simuli l'estrazione; in base a quello è possibile scrivere il codice per incrementare un contatore.

Allora ho lavorato così. Ho creato tre variabili random che si aggiornano automaticamente(magico tasto F9) con il comando INT(CASUALE.TRA(1;E9)) [considera che E9 è il totale delle palline, nel mio caso 15]
Poi ho usato questo metodo per far stampare la stringa Bianca/Rossa/Nera in tre caselle diverse SE(B28<=$B$9;"bianca";SE(B28<=$B$9+$C$9;"nera";"ro ssa")) [dove B28 è il primo numero random creato, B9, messo tra dollari in modo che rimanga sempre costante, è il numero di palline bianche, 4 nel mio caso. C9 invece è il numero delle palline nere, che sono 6 in tutto e le rimanenti 5 sono, ovviamente rosse] Se ce la faccio provo a caricare uno Screenshot così da farvi capire meglio

EDIT: Spero vada bene

Thumbnail

Allora puoi provare così:
-fai click destro sulla linguetta col nome del foglio
-seleziona "visualizza codice"
-ora sei nell'editor VBA, nella parte destra della finestra incolla questo

Option Explicit
Option Compare Text

Private Sub Worksheet_Calculate()
Dim B As Integer, N As Integer, i As Integer
B = 0
N = 0
For i = 1 To 3
    If Me.Range("F28").Cells(1, i) = "bianca" Then
        B = B + 1
    ElseIf Me.Range("F28").Cells(1, i) = "nera" Then
        N = N + 1
    End If
Next i
If B = 2 And N = 1 Then Range("I28") = Range("I28") + 1
End Sub

-torna al foglio con ALT-F11 e prova ad eseguire le estrazioni.
Il codice presume che i riferimenti siano quelli indicati nello screenshot, cioè i colori in F28:H28 ed il contatore in I28; ogni volta che vi saranno due bianche e una nera il contatore viene incrementato di 1.

[Spix]

Inviato da Zer0Kelvin

Allora puoi provare così:
-fai click destro sulla linguetta col nome del foglio
-seleziona "visualizza codice"
-ora sei nell'editor VBA, nella parte destra della finestra incolla questo

Option Explicit
Option Compare Text

Private Sub Worksheet_Calculate()
Dim B As Integer, N As Integer, i As Integer
B = 0
N = 0
For i = 1 To 3
    If Me.Range("F28").Cells(1, i) = "bianca" Then
        B = B + 1
    ElseIf Me.Range("F28").Cells(1, i) = "nera" Then
        N = N + 1
    End If
Next i
If B = 2 And N = 1 Then Range("I28") = Range("I28") + 1
End Sub

-torna al foglio con ALT-F11 e prova ad eseguire le estrazioni.
Il codice presume che i riferimenti siano quelli indicati nello screenshot, cioè i colori in F28:H28 ed il contatore in I28; ogni volta che vi saranno due bianche e una nera il contatore viene incrementato di 1.

Siiii!!!! Funziona!!! Grazie mille!!!!!! Davvero davvero grazie!!!
Ora de dovessi creare invece un contatore che incrementa ogni volta che una nuova sequenza random viene creata(di qualsiasi tipo stavolta, non solo con nere e bianche ma di tutti i tipi) posso provare a usare il codice sopra e modificarlo un po immagino!

EDITONE: No purtroppo a volte il contatore si incrementa anche quando non dovrebbe(una volta si è incrementato anche con bianca-bianca-bianca) Però è già uno spunto per lavorarci su. Magari se ne vengo a capo posto la soluzione