Condividi:        

Excel] Formula per combinare 90 numeri

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel] Formula per combinare 90 numeri

Postdi Statix » 23/06/08 10:37

Ciao a tutti ,come da titolo,stò cercando la formula per combinare i 90 numeri in ambi e terni, avevo la formula ,ma nel tempo lo persa ,causa rottura hard disk,e per di più avevo anche la formula per la classificazione.

con i 90 numeri si formano 4005 ambi e 117480 terni.
1° mi servirebbe la formula per sviluppare gli ambi e terni
2° dato un ambo o terno restituirmi la classificazione

un esempio del 1°

sviluppo ambi
1-2
1-3
1-4
1-5
etc.
89-90

per un totale di 4005 ambi

la stessa cosa per i terni
1-2-3
1-2-4
1-2-5
1-2-6
etc
88-89-90
totale 117480 terni


esempio 2°


se prendo l' ambo 1-3 la sua classificazione = 2
se prendo l' ambo 1-5 la sua classificazione =4
se prendo il terno 88-89-90 la sua classificazione = 117480

nel frattempo cerco di ritrovare le formule.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel] Formula per combinare 90 numeri

Postdi Statix » 23/06/08 20:34

al momento,dopo aver spulciato tutti i cd di backup dei miei hard-disk ho trovato la formula della classificazione degli ambi
=SOMMA(A*(179-A+2*B-180)/2)

A e B sono i due numeri che formano l'ambo,
quindi sostituire alla formula A e B con i due numeri che formano l'ambo, ordinati dal più piccolo al più grande
non mi resta che trovare la formula per la classificazione dei terni.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel] Formula per combinare 90 numeri

Postdi Anthony47 » 24/06/08 14:13

Non sono certo di cosa vuoi fare, ma questa macro ti calcola su col A, B e C le n combinazioni per l' ambo e il terno.
Codice: Seleziona tutto
Sub Amberno()
Dim I As Integer: Dim J As Integer: Dim K As Integer
For I = 1 To 90
For J = 1 + I To 90
'For K = 1 + J To 90                  'TERNO
'If J = I Or K = I Or K = J Then GoTo skip:    '<<< TERNO/-Ambo
If J = I Or K = I Then GoTo skip:             ' <<< AMBO/-Terno
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = I
Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = J
'Cells(Rows.Count, 1).End(xlUp).Offset(0, 2) = K     'TERNO
skip:
'Next K            'Terno
Next J
Next I
End Sub

Le 2 istruzioni marcate <<< sono alternative (o scommenti l' una o l' altra), mentre le istruzioni marcate "TERNO" le scommenterai per il calcolo del terno.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel] Formula per combinare 90 numeri

Postdi Statix » 24/06/08 15:09

Ciao Anthony47
la macro tutto ok.
mi serve la formula per calcolare la classificazione del terno
ti faccio un esempio
1-2-3 classificazione 1
1-2-4 classificazione 2
88-89-90 classificazione 117480
in poche parole se prendo un terno qualsiasi la formula mi deve restituire la classificazione

questa e dell'ambo
=SOMMA(A*(179-A)+2*B-180)/2

dato 2 numeri mi trova la classificazione dell'ambo.
per il terno non ci riesco,l'avevo ma lo perduta.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel] Formula per combinare 90 numeri

Postdi Anthony47 » 25/06/08 00:12

Mah, non so che cosa sia la classificazione del terno ma forse lo puoi calcolare con questo codice:
Codice: Seleziona tutto
Function Ambernof(VA, VB, VC)
Dim I As Integer: Dim J As Integer: Dim K As Integer
Ambernof = 1
For I = 1 To 90
For J = 1 + I To 90
For K = 1 + J To 90                  'TERNO
If J = I Or K = I Or K = J Then GoTo skip:    '<<< TERNO/Ambo
If I >= VA And J >= VB And K >= VC Then Exit Function    '<<<TERNO/-Ambo
Ambernof = Ambernof + 1
skip:
Next K
Next J
Next I
End Function

Poi userai la formula =ambernof(A;B;C) dove A, B e C sono 3 numeri estratti, in ordine crescente.
Non e' molto veloce, ma se non sbaglio le estrazioni ci sono solo 2 volte alla settimana... :D

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel] Formula per combinare 90 numeri

Postdi Statix » 25/06/08 23:04

Ciao Anthony47,
ti volevo chiedere se era possibile applicare alla macro che hai postato,uno step
Function Ambernof(VA, VB, VC)
Dim I As Integer: Dim J As Integer: Dim K As Integer
Ambernof = 1
For I = 1 To 90
For J = 1 + I To 90
For K = 1 + J To 90 'TERNO
If J = I Or K = I Or K = J Then GoTo skip: '<<< TERNO/Ambo
If I >= VA And J >= VB And K >= VC Then Exit Function '<<<TERNO/-Ambo
Ambernof = Ambernof + 1
skip:
Next K
Next J
Next I
End Function

in modo da visualizzare solo le combinazioni con classe 1 o 2 etc.
La classificazione degli ambi parte da 1 prima combinazione 1-2
per finire a 4005 per l'ultima combinazione 89-90.
esempio vorrei visualizzare solo la
1
11
21
31
41
51
fino alla
4001
delle combinazioni sviluppate.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel] Formula per combinare 90 numeri

Postdi Anthony47 » 25/06/08 23:10

La funzione, data una sequenza di numeri ti dice in che posizione e' nella sequenza teorica; mi pare che tu voglia fare l' opposto, cioe' ottenere la combinazione 1, 11, 21, etc.
Per questo, applica la "macro" Amberno per il calcolo delle sequenze di ambo, poi in una colonna con una serie (1,2,3,4,5, ) scrivi il numero della sequenza, in altra colonna con =RESTO(Sequenza;10) calcoli un numero ripetitivo 0-9; applichi un filtro automatico; scegli "diverso da" 1; cancelli tutte le righe che selezioni, ti rimangono solo quelle che cercavi.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel] Formula per combinare 90 numeri

Postdi Statix » 25/06/08 23:30

Ciao Anthony47,
nel Range A1:A4005 sono numerate le combinazioni (classificazione)
ho trovato un'altra soluzione,in una colonna E ho estratto con la formula
=--Destra(A1)

copia fino a =--Destra(A4005)
e con un filtro mi seleziono il valore 0 o 1 etc.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Excel] Formula per combinare 90 numeri":


Chi c’è in linea

Visitano il forum: Nessuno e 40 ospiti

cron