Condividi:        

QUALI SONO I 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

QUALI SONO I NUMERI

Postdi giorgioa » 17/06/12 12:23

Salve e buona domenica a nessuno escluso,
trattandosi di pochi numeri mi è facile individuarli manualmente
ma se arrivassi a 90 cercarli è più complicato e ci può scappare la svista.
Ecco il problema.

Premessa i numeri su cui porto l'esempio sono 9(ma arriveranno a 90);
sono disposti in triangolo rettangolo in cui sto per elencare e distribuire i numeri:
1-2-3-4-5-6-7-8-9
2-3-4-5-6-7-8-9
3-4-5-6-7-8-9
4-5-6-7-8-9
5-6-7-8-9
6-7-8-9
7-8-9
8-9(questa riga non servirebbe nell'esempio)
per ciò che chiedo si può tenere conto dei numeri in orizzontale
le richieste devono essere da utente dipendente.
la richiesta 1 = formazione di 3 o 4 forse anche 5 numeri
somma finale da specificare in questo esempio chiedo somma 10 ma potrà variare anche perchè la distribuzione dei
numeri sarà fino a 90:
chiedo che i 3 numeri che si cercano siano in una cella a parte.
questi 3 numeri devono fare somma 10
cioè =1-2-7 che sommati fra loro fanno 10
mentre se con 4 numeri a somma 10 = 1-2-3-4 che sommati fra loro danno 10
nella combinazione non ci devono essere numeri uguali è importante che rispettano la formazione
richiesta e la somma di essi.
Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Sponsor
 

Re: QUALI SONO I NUMERI

Postdi Flash30005 » 17/06/12 14:11

Apri una nuova cartella di excel
elimina il foglio3 (perché non occorre e come noterai non occorre lo schema dei tuoi dati ;) )
Nel foglio 1 in A1 inserisci una convadila Elenco 3;4;5
al fine di evitare di digitare gruppi di numeri diversi da quelli previsti dalla macro e che sono anche i gruppi da te richiesti

In B1 inserisci la somma che vorresti avere es.: 20
Ora in un modulo inserisci questa macro
Codice: Seleziona tutto
Sub Somma()
Set Ws1 = Sheets("Foglio1")
Set Ws2 = Sheets("Foglio2")
Ws2.Cells.ClearContents
Dim VC(90) As Integer
Dim VR(88) As Integer
For CC = 1 To 90
    VC(CC) = CC
Next CC
For RR = 1 To 88
    VR(RR) = RR
Next RR
For RR1 = 1 To 88
    For CC1 = RR1 To 91 - RR1 - Ws1.[A1]
        If VC(CC1) > Ws1.[B1] - Ws1.[A1] Then GoTo SaltaCC1
        For CC2 = CC1 + 1 To 91 - RR1 - (Ws1.[A1] + 1)
            If VC(CC1) + VC(CC2) > Ws1.[B1] - Ws1.[A1] Then GoTo SaltaCC2
            For CC3 = CC2 + 1 To 91 - RR1 - (Ws1.[A1] + 2)
                If VC(CC1) + VC(CC2) + VC(CC3) > Ws1.[B1] Then GoTo SaltaCC3
                    If VC(CC1) + VC(CC2) + VC(CC3) = Ws1.[B1] Then
                        UC = Ws2.Cells(RR1, 256).End(xlToLeft).Column
                        If UC > 1 Then UC = UC + 2
                        Ws2.Cells(RR1, UC).Value = VC(CC1)
                        Ws2.Cells(RR1, UC + 1).Value = VC(CC2)
                        Ws2.Cells(RR1, UC + 2).Value = VC(CC3)
                    End If
                If Ws1.[A1] = 3 Then GoTo Salta3
                For CC4 = CC3 + 1 To 91 - RR1 - (Ws1.[A1] + 3)
                    If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) > Ws1.[B1] Then GoTo Salta3
                    If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) = Ws1.[B1] Then
                        UC = Ws2.Cells(RR1, 256).End(xlToLeft).Column
                        If UC > 1 Then UC = UC + 2
                        Ws2.Cells(RR1, UC).Value = VC(CC1)
                        Ws2.Cells(RR1, UC + 1).Value = VC(CC2)
                        Ws2.Cells(RR1, UC + 2).Value = VC(CC3)
                        Ws2.Cells(RR1, UC + 3).Value = VC(CC4)
                    End If
                    If Ws1.[A1] = 4 Then GoTo Salta4
                    For CC5 = CC4 + 1 To 91 - RR1 - (Ws1.[A1] + 4)
                        If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) + VC(CC5) > Ws1.[B1] Then GoTo Salta4
                        If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) + VC(CC5) = Ws1.[B1] Then
                            UC = Ws2.Cells(RR1, 256).End(xlToLeft).Column
                            If UC > 1 Then UC = UC + 2
                            Ws2.Cells(RR1, UC).Value = VC(CC1)
                            Ws2.Cells(RR1, UC + 1).Value = VC(CC2)
                            Ws2.Cells(RR1, UC + 2).Value = VC(CC3)
                            Ws2.Cells(RR1, UC + 3).Value = VC(CC4)
                            Ws2.Cells(RR1, UC + 4).Value = VC(CC5)
                       End If
                    Next CC5
Salta4:
                Next CC4
Salta3:
            Next CC3
SaltaCC3:
        Next CC2
SaltaCC2:
    Next CC1
SaltaCC1:
Next RR1

End Sub


Sempre nel foglio1 inserisci una forma (cerchio, ellisse, o Comando) alla quale assegnarai la macro "Somma"

Nel foglio2 avrai il risultato riga per riga e per gruppi di numeri che sommati fanno quanto richiesto in B1 del foglio1

Allego File Test

Ciao

N.B. Excel2003 è limitato nel numero di colonne quindi dà errore nel caso inserisci, ad esempio, in A1=3 e B1 = 40
le combinazioni per la quantità dei numeri nel gruppo supera le 256 colonne ma non dovresti avere problemi con excel 2007 o superiore
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: QUALI SONO I NUMERI

Postdi giorgioa » 17/06/12 16:21

Salve Flash,
ho fatto quanto mi hai detto e le combinazioni a 3 pare che vada bene
mentre se in A1 foglio1 indico 4 o 5 nella combinazione ci sono delle celle vuote, la sequela non è completa o se lo è
occorre eliminare delle celle vuote per avere la sequela completa.
Poi l'elencazione delle combinazioni si potrebbe averla in verticale?
Poi adesso che mi sto rendendo conto (pensavo che le combinazioni fossero meno)
ma a prescindere quello che intendo fare e quello che ho pensato è:
ho diviso i 20 numeri del 10 e lotto in 5 quartine / 4 cinquine
di queste ho fatto la loro somma.
Ora è vero che(mi sto rendendo conto ora) faccio somma della 1^ quartina / 1^cinquina
ma quando faccio somma della 2^ quartina / 2^cinquina ho 4 oppure 5 numeri che in effetti
farebbero parte 1^ = 1-2-3-4 oppure 1-2-3-4-5 mentre della 2^ 5-6-7-8 oppure 6-7-8-9-10.
Quindi i numeri della somma 20 non sono da 1 a 20 ma 4.
In effetti per la seconda quartina o cinquina "somma" dovrebbe essere somma + somma ma in effetti si parla della
seconda quartina.
Cioè 4 o 5 numeri della prima e 4 o 5 numeri della 2^.
Forse ho complicato la vita?
Ma spero di essermi spiegato dove vorrei arrivare.
Aspetto e saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: QUALI SONO I NUMERI

Postdi Flash30005 » 17/06/12 17:36

Per quanto riguarda le celle vuote è dovuto ad un bug e bisogna modificare solo due righe di codice dove evidenziato (oppure sostituisci l'intera macro)
Codice: Seleziona tutto
Sub Somma()
Set Ws1 = Sheets("Foglio1")
Set Ws2 = Sheets("Foglio2")
Ws2.Cells.ClearContents
Dim VC(90) As Integer
Dim VR(88) As Integer
For CC = 1 To 90
    VC(CC) = CC
Next CC
For RR = 1 To 88
    VR(RR) = RR
Next RR
For RR1 = 1 To 88
    For CC1 = RR1 To 91 - RR1 - Ws1.[A1]
        If VC(CC1) > Ws1.[B1] - Ws1.[A1] Then GoTo SaltaCC1
        For CC2 = CC1 + 1 To 91 - RR1 - (Ws1.[A1] + 1)
            If VC(CC1) + VC(CC2) > Ws1.[B1] - Ws1.[A1] Then GoTo SaltaCC2
            For CC3 = CC2 + 1 To 91 - RR1 - (Ws1.[A1] + 2)
                If VC(CC1) + VC(CC2) + VC(CC3) > Ws1.[B1] Then GoTo SaltaCC3
                    If VC(CC1) + VC(CC2) + VC(CC3) = Ws1.[B1] And Ws1.[A1] = 3 Then  '<<<< modificare questa riga
                        UC = Ws2.Cells(RR1, 256).End(xlToLeft).Column
                        If UC > 1 Then UC = UC + 2
                        Ws2.Cells(RR1, UC).Value = VC(CC1)
                        Ws2.Cells(RR1, UC + 1).Value = VC(CC2)
                        Ws2.Cells(RR1, UC + 2).Value = VC(CC3)
                    End If
                If Ws1.[A1] = 3 Then GoTo Salta3
                For CC4 = CC3 + 1 To 91 - RR1 - (Ws1.[A1] + 3)
                    If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) > Ws1.[B1] Then GoTo Salta3
                    If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) = Ws1.[B1] And Ws1.[A1] = 4 Then  '<<<< modificare questa riga
                        UC = Ws2.Cells(RR1, 256).End(xlToLeft).Column
                        If UC > 1 Then UC = UC + 2
                        Ws2.Cells(RR1, UC).Value = VC(CC1)
                        Ws2.Cells(RR1, UC + 1).Value = VC(CC2)
                        Ws2.Cells(RR1, UC + 2).Value = VC(CC3)
                        Ws2.Cells(RR1, UC + 3).Value = VC(CC4)
                    End If
                    If Ws1.[A1] = 4 Then GoTo Salta4
                    For CC5 = CC4 + 1 To 91 - RR1 - (Ws1.[A1] + 4)
                        If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) + VC(CC5) > Ws1.[B1] Then GoTo Salta4
                        If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) + VC(CC5) = Ws1.[B1] Then
                            UC = Ws2.Cells(RR1, 256).End(xlToLeft).Column
                            If UC > 1 Then UC = UC + 2
                            Ws2.Cells(RR1, UC).Value = VC(CC1)
                            Ws2.Cells(RR1, UC + 1).Value = VC(CC2)
                            Ws2.Cells(RR1, UC + 2).Value = VC(CC3)
                            Ws2.Cells(RR1, UC + 3).Value = VC(CC4)
                            Ws2.Cells(RR1, UC + 4).Value = VC(CC5)
                       End If
                    Next CC5
Salta4:
                Next CC4
Salta3:
            Next CC3
SaltaCC3:
        Next CC2
SaltaCC2:
    Next CC1
SaltaCC1:
Next RR1

End Sub


Per quanto riguarda il verticale puoi pensarci tu, se ti applichi, perché la macro è accessibile e dovrai modificare solo i riferimenti di scrittura delle celle (usando la logica).

Per il resto non ci ho capito nulla
tranne che il mio aspetto è buono (grazie), e ecco i saluti: bye bye
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: QUALI SONO I NUMERI

Postdi giorgioa » 17/06/12 18:35

Salve Flash

OK la macro funziona perfettamente.

Saluti e grazie
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: QUALI SONO I NUMERI

Postdi Flash30005 » 17/06/12 18:43

So che usi excel 2007 pertanto non dovresti avere problemi di colonne devi solo sostituire le righe che calcolano le colonne
Codice: Seleziona tutto
UC = Ws2.Cells(RR1, 256).End(xlToLeft).Column

con questo codice
Codice: Seleziona tutto
UC = Ws2.Cells(RR1, Columns.Count).End(xlToLeft).Column


In questa maniera usi tutte le colonne a disposizione nel foglio

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: QUALI SONO I NUMERI

Postdi giorgioa » 17/06/12 19:21

Salve flash,
se posso continuare sull'argomento.
Proprio ora ho lanciato la macro ponendo la combinazione di 5
numeri con la somma di 40.
Praticamente per avere lo sviluppo occorre partire sempre dal numero 1.

Poniamo il caso che a me non servono i primi 15 numeri o meglio
ancora mi serve una somma di numeri che vanno da 50 a 70
si potrebbe ad esempio avere lo sviluppo su quei numeri desiderati?
Ad esempio sulla scelta di 15 - 18 numeri ma da me indicati?

Adesso apporto la correzione che mi hai indicato.
Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: QUALI SONO I NUMERI

Postdi Flash30005 » 17/06/12 19:46

Con le macro si fa "tutto" o quasi.
ma, secondo me, non ti sei posto la meta finale e stai modificando il percorso man mano che otteniamo dei risultati
questo comporta notevole perdita di tempo per entrambi
del tuo tempo ne fai quello che vuoi ma del mio ci tengo molto :D
ora ti dimostro che la tua ricerca della "piramide" poteva essere molto più semplice e con un'elaborazione ridotta
questa è la macro che hai richiesto (per riga)
Codice: Seleziona tutto
Sub SommaPerRiga()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Set WS1 = Sheets("Foglio1")
Set Ws2 = Sheets("Foglio2")
Ws2.Cells.ClearContents
Dim VC(90) As Integer
Dim VR(88) As Integer
For CC = 1 To 90
    VC(CC) = CC
Next CC
For RR = 1 To 88
    VR(RR) = RR
Next RR
For RR1 = 1 To 88
    For CC1 = RR1 To 91 - RR1 - WS1.[A1]
        If VC(CC1) > WS1.[B1] - WS1.[A1] Then GoTo SaltaCC1
        For CC2 = CC1 + 1 To 91 - RR1 - (WS1.[A1] + 1)
            If VC(CC1) + VC(CC2) > WS1.[B1] - WS1.[A1] Then GoTo SaltaCC2
            For CC3 = CC2 + 1 To 91 - RR1 - (WS1.[A1] + 2)
                If VC(CC1) + VC(CC2) + VC(CC3) > WS1.[B1] Then GoTo SaltaCC3
                    If VC(CC1) + VC(CC2) + VC(CC3) = WS1.[B1] And WS1.[A1] = 3 Then
                        UR = Ws2.Cells(Rows.Count, 1 + (RR1 - 1) * (WS1.[A1] + 1)).End(xlUp).Row + 1
                        UC = Ws2.Cells(UR, Columns.Count).End(xlToLeft).Column
                        If UC >= WS1.[A1] Then UC = UC + 2
                            Ws2.Cells(UR, UC).Value = VC(CC1)
                            Ws2.Cells(UR, UC + 1).Value = VC(CC2)
                            Ws2.Cells(UR, UC + 2).Value = VC(CC3)
                    End If
                If WS1.[A1] = 3 Then GoTo Salta3
                For CC4 = CC3 + 1 To 91 - RR1 - (WS1.[A1] + 3)
                    If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) > WS1.[B1] Then GoTo Salta3
                    If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) = WS1.[B1] And WS1.[A1] = 4 Then
                        UR = Ws2.Cells(Rows.Count, 1 + (RR1 - 1) * (WS1.[A1] + 1)).End(xlUp).Row + 1
                        UC = Ws2.Cells(UR, Columns.Count).End(xlToLeft).Column
                        If UC >= WS1.[A1] Then UC = UC + 2
                            Ws2.Cells(UR, UC).Value = VC(CC1)
                            Ws2.Cells(UR, UC + 1).Value = VC(CC2)
                            Ws2.Cells(UR, UC + 2).Value = VC(CC3)
                            Ws2.Cells(UR, UC + 3).Value = VC(CC4)
                    End If
                    If WS1.[A1] = 4 Then GoTo Salta4
                    For CC5 = CC4 + 1 To 91 - RR1 - (WS1.[A1] + 4)
                        If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) + VC(CC5) > WS1.[B1] Then GoTo Salta4
                        If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) + VC(CC5) = WS1.[B1] Then
                            UR = Ws2.Cells(Rows.Count, 1 + (RR1 - 1) * WS1.[A1]).End(xlUp).Row + 1
                            UC = Ws2.Cells(UR, Columns.Count).End(xlToLeft).Column
                            If UC >= WS1.[A1] Then UC = UC + 2
                            Ws2.Cells(UR, UC).Value = VC(CC1)
                            Ws2.Cells(UR, UC + 1).Value = VC(CC2)
                            Ws2.Cells(UR, UC + 2).Value = VC(CC3)
                            Ws2.Cells(UR, UC + 3).Value = VC(CC4)
                            Ws2.Cells(UR, UC + 4).Value = VC(CC5)
                       End If
                    Next CC5
Salta4:
                Next CC4
Salta3:
            Next CC3
SaltaCC3:
        Next CC2
SaltaCC2:
    Next CC1
SaltaCC1:
Next RR1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Noterai che, a parte la prima colonna (con combinazioni sempre diverse) tutte le altre ripetono le combinazioni esistenti nella prima colonna,
pertanto, penso sia inutile ripetere il ciclo 88 volte quanto ne è suffciente una sola volta
con questa macro adattata ad un solo ciclo
Codice: Seleziona tutto
Sub SommaPerRigaRid()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Set WS1 = Sheets("Foglio1")
Set Ws2 = Sheets("Foglio2")
Ws2.Cells.ClearContents
Dim VC(90) As Integer
Dim VR(88) As Integer
For CC = 1 To 90
    VC(CC) = CC
Next CC
For RR = 1 To 88
    VR(RR) = RR
Next RR
RR1 = 1
    For CC1 = RR1 To 91 - RR1 - WS1.[A1]
        If VC(CC1) > WS1.[B1] - WS1.[A1] Then GoTo SaltaCC1
        For CC2 = CC1 + 1 To 91 - RR1 - (WS1.[A1] + 1)
            If VC(CC1) + VC(CC2) > WS1.[B1] - WS1.[A1] Then GoTo SaltaCC2
            For CC3 = CC2 + 1 To 91 - RR1 - (WS1.[A1] + 2)
                If VC(CC1) + VC(CC2) + VC(CC3) > WS1.[B1] Then GoTo SaltaCC3
                    If VC(CC1) + VC(CC2) + VC(CC3) = WS1.[B1] And WS1.[A1] = 3 Then
                        UR = Ws2.Cells(Rows.Count, 1 + (RR1 - 1) * (WS1.[A1] + 1)).End(xlUp).Row + 1
                        UC = Ws2.Cells(UR, Columns.Count).End(xlToLeft).Column
                        If UC >= WS1.[A1] Then UC = UC + 2
                            Ws2.Cells(UR, UC).Value = VC(CC1)
                            Ws2.Cells(UR, UC + 1).Value = VC(CC2)
                            Ws2.Cells(UR, UC + 2).Value = VC(CC3)
                    End If
                If WS1.[A1] = 3 Then GoTo Salta3
                For CC4 = CC3 + 1 To 91 - RR1 - (WS1.[A1] + 3)
                    If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) > WS1.[B1] Then GoTo Salta3
                    If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) = WS1.[B1] And WS1.[A1] = 4 Then
                        UR = Ws2.Cells(Rows.Count, 1 + (RR1 - 1) * (WS1.[A1] + 1)).End(xlUp).Row + 1
                        UC = Ws2.Cells(UR, Columns.Count).End(xlToLeft).Column
                        If UC >= WS1.[A1] Then UC = UC + 2
                            Ws2.Cells(UR, UC).Value = VC(CC1)
                            Ws2.Cells(UR, UC + 1).Value = VC(CC2)
                            Ws2.Cells(UR, UC + 2).Value = VC(CC3)
                            Ws2.Cells(UR, UC + 3).Value = VC(CC4)
                    End If
                    If WS1.[A1] = 4 Then GoTo Salta4
                    For CC5 = CC4 + 1 To 91 - RR1 - (WS1.[A1] + 4)
                        If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) + VC(CC5) > WS1.[B1] Then GoTo Salta4
                        If VC(CC1) + VC(CC2) + VC(CC3) + VC(CC4) + VC(CC5) = WS1.[B1] Then
                            UR = Ws2.Cells(Rows.Count, 1 + (RR1 - 1) * WS1.[A1]).End(xlUp).Row + 1
                            UC = Ws2.Cells(UR, Columns.Count).End(xlToLeft).Column
                            If UC >= WS1.[A1] Then UC = UC + 2
                            Ws2.Cells(UR, UC).Value = VC(CC1)
                            Ws2.Cells(UR, UC + 1).Value = VC(CC2)
                            Ws2.Cells(UR, UC + 2).Value = VC(CC3)
                            Ws2.Cells(UR, UC + 3).Value = VC(CC4)
                            Ws2.Cells(UR, UC + 4).Value = VC(CC5)
                       End If
                    Next CC5
Salta4:
                Next CC4
Salta3:
            Next CC3
SaltaCC3:
        Next CC2
SaltaCC2:
    Next CC1
SaltaCC1:

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


A questo punto, avendo i numeri in ordine (min inizio combinazione e max fine combinazione) puoi estrapolare manualmente ciò che vuoi a partire ad esempio da 50 a 70, etc
Una volta che hai stabilito cosa ti serve puoi proporre il quesito ma solo quando hai le idee chiare su cosa vuoi ottenere
perché, come dicevo, non mi sembra che tu le abbia

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: QUALI SONO I NUMERI

Postdi giorgioa » 19/06/12 08:54

Salve Flash,
tempo e disponibilità permettendo
si può avere la correzione della macro ricerca numeri per somma
in base ai numeri scelti da me
e cioè 1 - 5 - 10 - 20 - 23 - 30 - e fino a 90(questi numeri indicati sono solo casuali)
naturalmente senza stabilire quanti
e sempre con le stesse caratteristiche della scelta
delle combinazioni da 3, 4, 5 e se possibile anche da 6 numeri.
Ringraziando della disponibilità
Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: QUALI SONO I NUMERI

Postdi giorgioa » 19/06/12 08:54

Salve Flash,
tempo e disponibilità permettendo
si può avere la correzione della macro ricerca numeri per somma
in base ai numeri scelti da me
e cioè 1 - 5 - 10 - 20 - 23 - 30 - e fino a 90(questi numeri indicati sono solo casuali)
naturalmente senza stabilire quanti
e sempre con le stesse caratteristiche della scelta
delle combinazioni da 3, 4, 5 e se possibile anche da 6 numeri.
Ringraziando della disponibilità
Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00


Torna a Applicazioni Office Windows


Topic correlati a "QUALI SONO I NUMERI":


Chi c’è in linea

Visitano il forum: Nessuno e 60 ospiti