Condividi:        

ciclo per sviluppo tabella

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

ciclo per sviluppo tabella

Postdi miko » 04/01/10 12:42

ciao a tutti,
vi espongo il mio problema;
data 1 combinazione di 10 numeri, winforlife, disposti su una riga e 10 celle-colonne, dalla cella b3 alla cella k3, sono riuscito a elaborare lo sviluppo di ambi, terni etc. presenti nella combinazione;
lo sviluppo mi pone gli ambi, dalla cella r1,in celle diverse, ma tutti su una riga o su una colonna;
inoltre i numeri che costituiscono un ambo sono separati dal trattino;
vorrei invece che lo svuiluppo ponesse i valori, gli ambi in una tabella, cioè
partendo da una cella si devono riempire le celle poste sulla stessa riga, fino ad una determinata colonna, ad esempio la decima a partire dalla prima, e poi incominciare a riempire le celle della riga successiva; in pratica vorrei avere uno sviluppo come mostrato nella seguente immagine
ImmagineImmagine

ho provato con un ciclo for next ma non ho ottenuto risultati soddisfacenti;
sono sicuro di aver sbaglaito l'inserimento della linea di codice del ciclo.
vi posto il listato che ho fatto per lo sviluppo:

Sub AMBI()
Columns("R").Select
Selection.ClearContents

r = 1 'riga sviluppo
C = 18 'colonna sviluppo
i = 2 'colonna combinazione

While Cells(3, i) <> ""
j = i + 1
While Cells(3, j) <> ""
Cells(r, C) = (Cells(3, i) & "-" & (Cells(3, j)))
C = C + 1
r = r + 1
j = j + 1
C = 18
Wend
i = i + 1
Wend

NUM = Range("R65536").End(xlUp).Row
Range("G5") = NUM & " COMBINAZIONE/I"
Range("G5").Select

End Sub
nella cella g5 viene visualizzato il numero degli ambi.
potete suggerirmi le linee di codice che eventualmente devo inserire o modificare?
grazie miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Sponsor
 

Re: ciclo per sviluppo tabella

Postdi Flash30005 » 04/01/10 16:42

Ma Winforlife non prevede un range di numeri (da estrarre) compresi tra 1 e 20?
E cosa c'entra la ruota di Bari?

E' opportuno che tu pubblicassi un foglio con i dati reali e un esempio di cosa vorresti ottenere sullo stesso foglio

Fai sapere
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: ciclo per sviluppo tabella

Postdi miko » 05/01/10 11:25

saluti,
grazie per avermi risposto
hai ragione flash, i numeri che compongono le combinazioni vincenti sono compresi tra 1 e 20, ma la combinazione vincente è composta da 10 numeri.
quello che vorrei fare è estrarre dai 10 numeri della combinazione vincente gli ambi i terni etc. per poi stabilire la loro frequenza.
sono riuscito a determinare gli ambi ma questi sono disposti su una riga o su una colonna, mentre io vorrei che fossero disposti su più righe e più colonne, in una tabella
in modo da non dover scorrere tutte le righe o colonne per visualizzarli.
allego il file.xls, che si trova qui:
http://www.filedropper.com/ambicontrattino
nel quale ho inserito degli esempi.
saluti, grazie
miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: ciclo per sviluppo tabella

Postdi miko » 05/01/10 11:27

dimenticavo, l'immagine che ho inserito nel mio primo post era solo un esempio per mostrare quello che vorrei ottenere.
grazie ciao
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: ciclo per sviluppo tabella

Postdi Flash30005 » 05/01/10 15:41

Non mi ritornano alcuni "conti":
su 10 numeri ci sono 45 combinazioni di ambo la tua tabella prevede 77 combinazioni (7x11) comunque se vuoi gli ambi nella tabella prova questa macro
Codice: Seleziona tutto
Sub CompTab()
    Range("J16:P26").Select
    Selection.ClearContents
    Range("I13").Select
    CAmbo = 10
    RAmbo = 16
For CC1 = 2 To 10
V1 = Cells(3, CC1).Value
    For CC2 = CC1 + 1 To 11
        V2 = Cells(3, CC2).Value
        Ambo = V1 & "-" & V2
        If CAmbo > 16 Then
        CAmbo = 10
        RAmbo = RAmbo + 1
        End If
        Cells(RAmbo, CAmbo).Value = Ambo
        CAmbo = CAmbo + 1
    Next CC2
Next CC1
End Sub

oppure scarica questo file

Fai sapere
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: ciclo per sviluppo tabella

Postdi miko » 05/01/10 18:32

ciao,
grazie flash la macro che hai scritto è quella che cercavo;
sto cercando di capire il listato per adattare la macro allo sviluppo dei terni etc.
non riesco però a scaricare il file che hai indicato, rapidshare mi dice sempre devo creare un account.
grazie ancora
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: ciclo per sviluppo tabella

Postdi Flash30005 » 06/01/10 03:05

Hai sicuramente qualche problema con il browser perché questo è accessibile, riprova ancora: capita a volte e in certi momenti che dia errore e altre volte no
Se riscontrerai ancora problemi fammelo sapere ti invierò un link su un altro server host.

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: ciclo per sviluppo tabella

Postdi miko » 07/01/10 10:35

ciao,
avevi ragione, dopo vari tentativi sono riuscito a scaricare il file.
grazie ciao
miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44


Torna a Applicazioni Office Windows


Topic correlati a "ciclo per sviluppo tabella":


Chi c’è in linea

Visitano il forum: Nessuno e 50 ospiti