Frequenza Permutazioni

[miko]

Buonasera e buon weekend a tutti,
sono alle prese con disposizioni con ripetizione
devo calcolare frequenza di ciascuna permutazione presente in un range di R righe e 6 colonne
come in figura



come si vede in figura i numeri coinvolti variano da 1 a 5, almeno per il momento,
ma non escludo che il limite superiore possa aumentare, perciò questo potrebbe essere una incognita.
inoltre osservando ad esempio la prima e seconda riga le due permutazioni contengono gli stessi numeri
ma disposti in modo diverso nelle colonne
riga 1: 2 1 2
riga 2: 2 - 1 2 (il trattino indica la cella vuota)
così anche la riga 4 e 5
riga 4: 4 - - 1
riga 5: - 4 1 -
secondo i miei calcoli le possibili permutazioni, disposizioni con ripetizioni, con 5 numeri sono intorno a 15.000
ma non credo che sia necessario effettuare il calcolo ai fini del risultato, anche perché credo che non tutte le
possibili permutazioni sarebbero coinvolte.
il calcolo che prevedo deve calcolare le frequenze delle permutazioni presenti nel range e riportare su un altro foglio
sia l'elenco delle permutazioni presenti al momento, ed in corrispondenza di ciascuna la frequenza, ed ordinare
il range del risultato in base alla frequenza maggiore.
questa indicata mi sembra la soluzione più coerente e semplice, almeno per quello che riesco ad immaginare,
ma può essere soddisfacente qualunque altra soluzione.
non ho proprio idea di come strutturare la macro.
saluti, grazie

[Anthony47]

Proviamo a risparmiarci del lavoro...



Con riferimento all’immagine, calcoliamo in colonna H la combinazione normalizzata di ogni riga; con Office 365 si potrebbe fare con una formula, qui invece dobbiamo farlo con questa “funzione personalizzata”:

Codice: Seleziona tutto

Function KeyComb(ByRef myRan As Range) As String
Dim wArr() As Single, I As Long, mMin As Single
'
ReDim wArr(1 To myRan.Columns.Count)
For I = 1 To UBound(wArr)
    wArr(I) = myRan.Cells(1, I)
    If Not IsError(Application.Match(wArr(I), wArr, False)) Then
        wArr(I) = wArr(I) + I / 1000
    End If
Next I
For I = 1 To UBound(wArr)
    mMin = Application.WorksheetFunction.Min(wArr)
    wArr(Application.Match(mMin, wArr, False)) = 999
    If mMin > 0.5 Then
        KeyComb = KeyComb & Int(mMin)
    End If
Next I
End Function


Metti il codice in un modulo standard del vba; poi torna su Excel e in H2 scrivi la formula

Codice: Seleziona tutto

=KeyComb(A2:G2)

(gestisce fino a 7 numeri)
Copia H2 verso il basso

Ora in I1 calcoliamo le presenze della prima combinazione, con questa formula

Codice: Seleziona tutto

=CONTA.SE($H$2:$H$20;H2)

Adatta H2:H20 alla tua situazione, poi copia verso il basso

A questo punto puoi ordinare tutto l’elenco per presenze decrescenti e puoi fare tutte le statistiche che ti servono

Puo’ essere sufficiente?

[miko]

Salve,
seguendo le tue istruzioni ottengo il risultato in figura che rispecchia il contenuto dell'immagine da te postata



il codice funziona ma non ottengo il risultato che cercavo.
come si nota la key non distingue le diverse permutazioni, la 3-2 la considera uguale alla 2-3
così anche la 2-2-1 é uguale alla 2-1-2, ma in realtà sono diverse, tenuto conto anche delle celle di intestazione
e della posizione dei numeri delle permutazioni nelle celle;
la permutazione 3-2-0-0-0-0 é diversa dalla 0-3-2-0-0-0;
di conseguenza il risultato finale delle presenze é falsato e si ritrovano delle righe ripetute.
nell'esempio la presenza di 3-2 é 4, quella di 2-3 é 2.
inoltre dovendo esaminare migliaia di righe non saprei come ricopiare le formule per le celle sottostanti.
tuttavia se la soluzione del problema la consideri impegnativa propongo di lasciar perdere.
grazie, ciao

[Anthony47]

Questo e’ l’effetto di una descrizione diciamo leggera, che ha lasciato a me interpretare la situazione.

Se i vuoti e la posizione conta allora la funzione e’ piu’ semplice:

Codice: Seleziona tutto

Function KeyComb2(ByRef myRan As Range) As String
Dim I As Long
'
For I = 1 To myRan.Columns.Count
    KeyComb2 = KeyComb2 & "-" & myRan.Cells(1, I)
Next I
End Function


Se non sai come copiare la formula su tante righe allora ti propino la macro che calcola la chiave su tutta l’area:

Codice: Seleziona tutto

Sub KeyAll()
Dim LastR As Long, wArr, oArr() As String
Dim StaR As Long
'
StaR = 2                'Riga di Inizio Combinazioni (A:F)
'
On Error Resume Next
LastR = Range("A:F").Find(What:="*", After:=Range("A1"), _
    SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
On Error GoTo 0
wArr = Range("A" & StaR & ":F" & LastR).Value
ReDim oArr(1 To UBound(wArr) + StaR, 1 To 1)
For I = 1 To UBound(wArr)
    mkey = ""
    For J = 1 To UBound(wArr, 2)
        oArr(I, 1) = oArr(I, 1) & "-" & wArr(I, J)
    Next J

Next I
Cells(StaR, "H").Resize(UBound(oArr), 1) = oArr
End Sub


Lanciata una volta scrive il colonna H la chiave delle combinazioni; Puoi contare in colonna I il numero di ogni combinazione con la formula gia’ data; poi su questi dati ordini e fai le altre statistiche che servono

Prova...