Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Convertire una tabella in lista

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

Convertire una tabella in lista

Postdi madciccio » 12/05/11 18:04

Un saluto a tutti gli iscritti al forum.

Vi chiedo un aiuto per l'elaborazione di un set di dati.
Ho fogli di lavoro simili a questo abstract con ca. 5400 righe (i codici di matr sono sempre uguali) e 19 colonne con instestazioni diverse:
MATR 1000 3 TT 4510 3 TT 4520 3 TT 4570 3 TT
1 3923,51 0 1544,48 0
3 1828,75 558,2 0 199,36
4 0 0 0 0
6 4118,4 0 1624,92 0
9 3945,9 0 1583,87 565,67
10 1875,98 569,44 0 0
16 1834,67 559,61 0 0
19 1886,03 587,81 0 0
Vorrei portare i dati in forma di elenco:

MATR VOCE VALORE
1 1000 3 TT 3923,51
1 4510 3 TT 0
1 4520 3 TT 1544,48
1 4570 3 TT 0
3 1000 3 TT 1828,75
3 4510 3 TT 558,2
3 4520 3 TT 0
3 4570 3 TT 199,36
4 1000 3 TT 0
4 4510 3 TT 0
4 4520 3 TT 0
4 4570 3 TT 0
6 1000 3 TT 4118,4
6 4510 3 TT 0
6 4520 3 TT 1624,92
6 4570 3 TT 0
9 1000 3 TT 3945,9
9 4510 3 TT 0
9 4520 3 TT 1583,87
9 4570 3 TT 565,67
10 1000 3 TT 1875,98
10 4510 3 TT 569,44
10 4520 3 TT 0
10 4570 3 TT 0
16 1000 3 TT 1834,67
16 4510 3 TT 559,61
16 4520 3 TT 0
16 4570 3 TT 0

Esiste qualche possibilità di effettuare questa modifica?

Grazie in anticipo per gli eventuali suggerimenti
F
madciccio
Newbie
 
Post: 7
Iscritto il: 12/05/11 15:47

Sponsor
 

Re: Convertire una tabella in lista

Postdi Avatar3 » 12/05/11 20:32

Penso di si
ma bisogna capire bene come sono strutturati i dati origine
quindi metti i dati origine (abstract) in un foglio
e in un altro i dati finali (anche se sono già comprensibili come li hai postati)
invia il file

Ciao

NB per l'invio di file devi aver effettuato almeno tre post nel forum e seguire la procedura descritta in questo topic
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=80395
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: Convertire una tabella in lista

Postdi madciccio » 12/05/11 22:35

OK
madciccio
Newbie
 
Post: 7
Iscritto il: 12/05/11 15:47

Re: Convertire una tabella in lista

Postdi madciccio » 12/05/11 22:52

Vediamo se funziona...
madciccio
Newbie
 
Post: 7
Iscritto il: 12/05/11 15:47

Re: Convertire una tabella in lista

Postdi madciccio » 12/05/11 23:07

Allora:
https://rapidshare.com/files/2299449555/Prova__2011_1.xlsx

Questo è il link, ho copiato una sintesi dei dati sul foglio ASIS; nella versione completa ho circa 5540 matr. e 19 colonne identificative delle voci.

Nel foglio TOBE ho riportato i dati come mi serve siano organizzati.

Spero di ricevere qualche buon suggerimento, grazie in anticipo,

F
madciccio
Newbie
 
Post: 7
Iscritto il: 12/05/11 15:47

Re: Convertire una tabella in lista

Postdi Avatar3 » 12/05/11 23:45

Questa sera ho probelmi a scaricare il file con Rapidshare
proverò domani
altrimenti utilizza un altro server host come questo

http://www.megaupload.com/


ciao
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: Convertire una tabella in lista

Postdi ricky53 » 12/05/11 23:48

Ciao,
queasta sera RapidShare non vuole funzionare e non riesco a scaricare il file.

Puoi inserire il file con un altro servizio di file hostig: QUESTO ad esempio
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Convertire una tabella in lista

Postdi madciccio » 13/05/11 09:04

madciccio
Newbie
 
Post: 7
Iscritto il: 12/05/11 15:47

Re: Convertire una tabella in lista

Postdi madciccio » 13/05/11 09:10

Forse nemmeno quello funziona ma questo dovrebbe andare:
http://www.filehosting.org/file/details ... 011_1.xlsx

TKS
madciccio
Newbie
 
Post: 7
Iscritto il: 12/05/11 15:47

Re: Convertire una tabella in lista

Postdi madciccio » 16/05/11 14:22

Qualche buon suggerimento?
madciccio
Newbie
 
Post: 7
Iscritto il: 12/05/11 15:47

Re: Convertire una tabella in lista

Postdi ricky53 » 16/05/11 15:23

Caio,
se sarà buono non so dirlo ...

Sto buttando giù un esempio in VBA ... forse questa sera ...
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Convertire una tabella in lista

Postdi Anthony47 » 16/05/11 23:27

Quel risultato puo' essere ottenuto anche con una tabella pivot: Matr in area RIGA, Voce in area COLONNA, Valore (come "Somma di..") in area DATI.
Puo' essere idoneo?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Convertire una tabella in lista

Postdi ricky53 » 16/05/11 23:32

Ciao,
eccomi come promesso.

Prova la seguente macro
Codice: Seleziona tutto
Sub Trasponi_Dati()
    Dim WsIn As Worksheet, WsOut As Worksheet
    Dim I As Long, J As Long, X As Long, UC As Long, UR As Long
   
    Set WsIn = Sheets("ASIS")
    Set WsOut = Sheets("TOBE")
   
    UC = WsIn.Range("A1").End(xlToRight).Column
    UR = WsIn.Range("A" & Rows.Count).End(xlUp).Row
   
    X = 2
    WsOut.Range("A:C").ClearContents
    WsOut.[A1] = WsIn.[A1]: WsOut.[B1] = "Voce": WsOut.[C1] = "Valore"
    For I = 2 To UR
        For J = 1 To UC - 1
            WsOut.Cells(X, 1) = WsIn.Cells(I, 1)
            WsOut.Cells(X, 2) = WsIn.Cells(1, J + 1)
            WsOut.Cells(X, 3) = WsIn.Cells(I, J + 1)
            X = X + 1
        Next J
    Next I
End Sub


Se non sai come inserire la macro:
Alt+F11
tasto destro, inserisci Modulo
copia il codice nella finestra di destra del modulo

Esegui la macro
con "F5" (passo passo con "F8")
oppure
vai nel foglio e "Alt+F8", selezioni la macro "Trasponi_Dati" e "Esegui"

Volendo puoi associare la macro ad una combinazione di tasti e ... vai avanti da solo
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Convertire una tabella in lista":


Chi c’è in linea

Visitano il forum: Nessuno e 21 ospiti