Ciao Franco, ciao Anthony
in un primo momento avevo pensato anch'io ad un metodo simile a quello proposto da Anthony, poi mi è venuto un dubbio: se non ho in ordine i nomi, la terna di operai non sarà mai trovato.
Mi spiego meglio. Ho creato con la seguente macro (nel file che ho allegato la terza istruzione dopo Sub era Rig=1, ma avendo successivamente aggiunto una riga se vuoi fare una prova su un nuovo foglio utilizza Rig=2)
- Codice: Seleziona tutto
Sub calcola_20numeri_gruppo3()
Application.ScreenUpdating = False
Cells.Select
Rig = 2
col = 1
a = 1
b = 2
c = 3
While a < 19
While b < 20
While c < 21
Cells(Rig, col) = a
Cells(Rig, col + 1) = b
Cells(Rig, col + 2) = c
Rig = Rig + 1
c = c + 1
Wend
b = b + 1
c = b + 1
Wend
a = a + 1
b = a + 1
c = b + 1
Wend
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub
le 1140 terne di 20 numeri nel foglio2. Come vedi le prime terne sono:
1 2 3
1 2 4
1 2 5
ecc. ecc. ecc.
che corrispondono agli operai
alessio bruno carlo
alessio bruno daniele
alessio bruno davide
se effettuo una concatenazione dei nomi avrò tre stinghe così composte:
alessio-bruno-carlo
alessio-bruno-daniele
alessio-bruno-davide
Le venti combinazioni delle terne di operai di ogni singolo giorno sono
1 2 3
1 2 4
1 2 5
1 2 6
1 3 4
1 3 5
1 3 6
1 4 5
1 4 6
1 5 6
2 3 4
2 3 5
2 3 6
2 4 5
2 4 6
2 5 6
3 4 5
3 4 6
3 5 6
4 5 6
come vedi i primi tre terni corrispondo ai primi tre delle 1140 combinazioni, ma associando i nomi possono non diventare uguali. Infatti se il primo giorno del mese al posto della sequenza
alessio - davide - fabio - franco - marco - piero
ho
fabio - alessio - piero - marco - franco - davide
le prime tre stringhe saranno
fabio-alessio-piero
fabio-alessio-marco
fabio-alessio-franco
terni che non saranno mai trovati nelle 1140 combinazioni. Infatti la stringa 1-2-3 è diversa da 2-1-3 o 3-1-2. Allora ho pensato di fare un controllo tenendo separati i nomi, nelle terne, dei vari operai.
Dopo la creazione delle 1140 terne, scritte nel range A2:C1141, nelle colonne D, E ed F ho associato i nomi degli operari con la formula:
=CERCA.VERT(A2;Foglio1!$A$4:$B$23;2)inserita in D2, formula prima trascinata din a F2, poi il range D2:F2 trascinato fino a riga 1141.
Poi ho creato le 20 combinazioni giornaliere con la seguente macro
- Codice: Seleziona tutto
Sub calcola_6operai_gruppo3()
Application.ScreenUpdating = False
Cells.Select
Rig = 1
col = 8
a = 1
b = 2
c = 3
While a < 5
While b < 6
While c < 7
Cells(Rig, col) = a
Cells(Rig, col + 1) = b
Cells(Rig, col + 2) = c
col = col + 4
c = c + 1
Wend
b = b + 1
c = b + 1
Wend
a = a + 1
b = a + 1
c = b + 1
Wend
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub
che ha inserito a partire dalla cella H1 fino a CH1 le 20 combinazioni.
In L2 ho inserito la formula
=SE(L$1="";"";INDICE(Foglio1!$F$4:$K$34;RIF.RIGA()-1;L$1))da trascinare fino alla riga 32, poi il range L2:L32 l'ho trascinato fino alla colonna CH. In questo modo ho creato le combinazioni delle terne giornaliere degli operai associandoli ai nomi inseriti nella tabella F4:K34 di foglio1. Per non far vedere il valore 0 nella tabella L2:CH32 di foglio2 ho applicato una formattazione condizionale.
Una volta create le due tabelle ho effettuato una ricerca con la seguente macro (attivata dal pulsante Elabora di foglio1)
- Codice: Seleziona tutto
Dim F1 As Object, F2 As Object
Dim Op1 As String, Op2 As String, Op3 As String
Dim Rig As Integer, Trio As Integer, I As Integer, Y As Integer, Z As Integer
Sub Conta_Trio()
Application.ScreenUpdating = False
Set F1 = Worksheets("Foglio1")
Set F2 = Worksheets("Foglio2")
F2.Select
F2.Range("H35:K494").Select
Selection.Clear
Counter = 0
Rig = 35
For I = 2 To 1141
Trio = 0
Op1 = F2.Cells(I, 4)
Op2 = F2.Cells(I, 5)
Op3 = F2.Cells(I, 6)
For Y = 2 To 32
For Z = 8 To 84 Step 4
If Op1 = F2.Cells(Y, Z) Or Op1 = F2.Cells(Y, Z + 1) Or Op1 = F2.Cells(Y, Z + 2) Then
If Op2 = F2.Cells(Y, Z) Or Op2 = F2.Cells(Y, Z + 1) Or Op2 = F2.Cells(Y, Z + 2) Then
If Op3 = F2.Cells(Y, Z) Or Op3 = F2.Cells(Y, Z + 1) Or Op3 = F2.Cells(Y, Z + 2) Then
Trio = Trio + 1
End If
End If
End If
Counter = Counter + 1
Application.StatusBar = "Calcolate " & Counter & " di 730.240 terne di operai."
Next Z
Next Y
If Trio <> 0 Then
F2.Cells(Rig, 8) = Op1
F2.Cells(Rig, 9) = Op2
F2.Cells(Rig, 10) = Op3
F2.Cells(Rig, 11) = Trio
Rig = Rig + 1
Trio = 0
End If
Next I
F2.Range("H35:K494").Select
Selection.Sort Key1:=F2.Range("K35"), Order1:=xlDescending, Header:=xlGuess
F1.Select
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
In pratica prendo la prima delle 1140 combinazioni e la confronto con quelle della tabella L2:CH32. Il ragionamento è questo: prendo il primo nome della terna delle 1140 combinazioni e la confronto con il primo nome della prima terna della tabella L2:CH32, se non è uguale la confronto con il secondo nome ed infine con il terzo nome. Se uno dei tre confronti è positivo vado a controllare il secondo nome delle 1140 con i tre della prima della tabella e così via.
Ho visto che, almeno con il mio computer, è un po' lento, vedrai nella barra in basso l'evolversi del calcolo.
Ancora non ho rivisto il codice, probabilmente con qualche piccola modifica si può velocizzare il calcolo.
I risultati sono riportati da riga 35, colonne H:K, alla fine della macro sono ordinati in base alla frequenza.
Nel foglio1 ho creato una tabela che in automatico preleva i dati dal range H35:K494, concatenando le terne di operari con la seguente formula in N4 di foglio1
=SE(Foglio2!H35<>"";CONCATENA(Foglio2!H35;" - ";Foglio2!I35;" - ";Foglio2!J35);"")
e così via per le altre righe, per la frequenza in O4
=SE(N4<>"";Foglio2!K35;"")
Ho provato con OpenOffice ma la macro non viene eseguita, purtroppo non conosco OpenOffice e non so quali istruzioni modificare.
Ciao
Tribuno
Registrazione
) -- 