Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Combinazioni

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

Combinazioni

Postdi giorgioa » 21/06/12 07:30

Salve e buongiorno a tutti
data la mia incapacità di creare macro in VBA per Excel
chiedo se possibile esserne scritta una aventi le seguenti caratteristiche:
1-trattasi di numeri;
2-per combinazioni di terno o quaterna o cinquina oppure sestina (a mia scelta);
3-i numeri devono essere indicati da me (cioè 3-4-7-11-14-17-30-40-90 ecc possibile anche tutti però sempre da me
indicati).
Ringraziando dell'aiuto saluto
giorgioa
Utente Senior
 
Post: 544
Iscritto il: 16/04/12 15:00

Sponsor
 

Re: Combinazioni

Postdi Flash30005 » 21/06/12 07:51

Non sarebbe complicato realizzare quello che chiedi
complicato è dove mettere oltre 622 milioni di combinazioni nel caso volessi tutte le sestine esistenti con 90 numeri
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Combinazioni

Postdi giorgioa » 21/06/12 07:59

Salve Flash,
ho aggiunto anche "TUTTI" solo per non limitare la quantità di numeri
ma in effetti l'uso dei numeri sarà limitato.
Mi son detto abbondiamo.
salve
giorgioa
Utente Senior
 
Post: 544
Iscritto il: 16/04/12 15:00

Re: Combinazioni

Postdi Flash30005 » 23/06/12 08:48

Apri una nuova cartella di excel
aggiungi due fogli
Il primo foglio lo lasci con il nome Foglio1
il secondo rinominalo in "T" (= Terzine)
il terzo "Q"
il quarto "C"
il Quinto "S"
tutti senza apici
Ora nel foglio1 colonna A da A1 a A fino dove vuoi (ma non esagerare) inserirai i numeri da combinare
In D1 crei una convalida con elenco 3;4;5;6
In G1 inserisci questa formula
Codice: Seleziona tutto
=(FATTORIALE(CONTA.VALORI(A1:A90))/(FATTORIALE(CONTA.VALORI(A1:A90)-D1)))/FATTORIALE(D1)
per avere immediatamente il numero delle combinazioni e stabilire così se procedere allo sviluppo.

Inserisci questa macro in un moulo
Codice: Seleziona tutto
Sub Combin()
Set Ws1 = Sheets("Foglio1")
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
CombN = Ws1.Range("D1").Value
Select Case CombN
Case 3
NomeF = "T"
Case 4
NomeF = "Q"
Case 5
NomeF = "C"
Case 6
NomeF = "S"
Case Else
Exit Sub
End Select
Application.ScreenUpdating = False
Application.Calculation = xlManual
Set Ws2 = Sheets(NomeF)
Ws2.Cells.ClearContents
For RR1 = 1 To UR1 - (CombN - 1)
    For RR2 = RR1 + 1 To UR1 - (CombN - 2)
        For RR3 = RR2 + 1 To UR1 - (CombN - 3)
            If CombN = 3 Then
                UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
                Ws2.Range("A" & UR2).Value = Ws1.Range("A" & RR1).Value
                Ws2.Range("B" & UR2).Value = Ws1.Range("A" & RR2).Value
                Ws2.Range("C" & UR2).Value = Ws1.Range("A" & RR3).Value
            GoTo salta3
            End If
            For RR4 = RR3 + 1 To UR1 - (CombN - 4)
                If CombN = 4 Then
                    UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
                    Ws2.Range("A" & UR2).Value = Ws1.Range("A" & RR1).Value
                    Ws2.Range("B" & UR2).Value = Ws1.Range("A" & RR2).Value
                    Ws2.Range("C" & UR2).Value = Ws1.Range("A" & RR3).Value
                    Ws2.Range("D" & UR2).Value = Ws1.Range("A" & RR4).Value
                    GoTo salta4
                End If
                For RR5 = RR4 + 1 To UR1 - (CombN - 5)
                    If CombN = 5 Then
                        UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
                        Ws2.Range("A" & UR2).Value = Ws1.Range("A" & RR1).Value
                        Ws2.Range("B" & UR2).Value = Ws1.Range("A" & RR2).Value
                        Ws2.Range("C" & UR2).Value = Ws1.Range("A" & RR3).Value
                        Ws2.Range("D" & UR2).Value = Ws1.Range("A" & RR4).Value
                        Ws2.Range("E" & UR2).Value = Ws1.Range("A" & RR5).Value
                        GoTo salta5
                    End If
                    For RR6 = RR5 + 1 To UR1 - (CombN - 6)
                        UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
                        Ws2.Range("A" & UR2).Value = Ws1.Range("A" & RR1).Value
                        Ws2.Range("B" & UR2).Value = Ws1.Range("A" & RR2).Value
                        Ws2.Range("C" & UR2).Value = Ws1.Range("A" & RR3).Value
                        Ws2.Range("D" & UR2).Value = Ws1.Range("A" & RR4).Value
                        Ws2.Range("E" & UR2).Value = Ws1.Range("A" & RR5).Value
                        Ws2.Range("F" & UR2).Value = Ws1.Range("A" & RR6).Value
                    Next RR6
salta5:
                Next RR5
salta4:
            Next RR4
salta3:
        Next RR3
    Next RR2
Next RR1
Ws2.Rows("1:1").Delete Shift:=xlUp
Ws2.Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub


Nel foglio1 inserisci un comando per attivare la macro

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Combinazioni

Postdi giorgioa » 23/06/12 18:43

Un sentito ringraziamento al
Sig. Flash.
Sono in dovere di farlo perchè lo merita.
La macro "Combinazioni" funziona PERFETTAMENTE.
Grazie e saluti
giorgioa
Utente Senior
 
Post: 544
Iscritto il: 16/04/12 15:00


Torna a Applicazioni Office Windows


Topic correlati a "Combinazioni":


Chi c’è in linea

Visitano il forum: patel e 10 ospiti