Condividi:        

trasporre tabella e colonne disunite in orizzontale

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

trasporre tabella e colonne disunite in orizzontale

Postdi biancocandido55 » 21/05/10 14:09

Un cordiale saluto a tutti,
ho un problema da esporre, si tratta di questo.
Ammesso che la trasposizione di una colonna su una riga la so' fare, ma chiedevo se era possibile aiutarmi a trasporre una tabella di valori oltre che in orizzontale anche con i valori in ordine crescente da sinistra a destra,
le coordinate della tabella sono:
c3:g13
, ovvero 5 colonne per 11 righe di valori, la riga che occorre come risultato è la 24ª,
In seconda fase ho anche 9 colonne da 10 caselle da trasporre in ordine orizzontale con i valori in ordine crescente, le colonne sono :
L,N,P,R,T,V,X,Z,AB, le righe da 3 a 12
, la riga che occorre come risultato è la 26ª.

Fatto questo volevo calcolare la media() e la mediana() dei valori delle 2 righe risultanti.(qui pero' non so' se proseguire su questo topic o aprirne uno nuovo).

Un cordiale saluto, grazie, a presto.....
bianco55
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Sponsor
 

Re: trasporre tabella e colonne disunite in orizzontale

Postdi Flash30005 » 21/05/10 23:18

Procediamo per passi

Quando dici una volta in riga ordinarle (ord crescente) da sinistra a destra intendi l'ordinamento riga per riga?
Se così, potremmo dire che puoi ordinare ogni colonna (prima della trasposizione) in ordine crescente e poi effettuare la trasposizione in riga.
E' corretto questo ragionamento?

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: trasporre tabella e colonne disunite in orizzontale

Postdi biancocandido55 » 22/05/10 00:01

ciao Flash, :)

l'ordinamento della tabella c3:g3 che deve comparire sulla riga 24 è totale, da sinistra il valore + piccolo a destra il valore + grande,

Codice: Seleziona tutto
es:  0,0,1,2,3,36,37,38,40,40,42,45,45,53,54, ecc. ecc.


ti posto l'immagine delle tabelle,

Immagine

Uploaded with ImageShack.us

Nella tabella di destra vanno considerate solo le colonne su sfondo bianco, L,N,P, ecc. ecc. quelle elencate nel post precedente, l'ordinamento delle colonne deve comparire sulla riga 26, con lo stesso criterio della riga 24.
Scusa se l'img non è completa, ma i dati forniti sono tutti.
Ciao e grazie, a presto.....
bianco55Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: trasporre tabella e colonne disunite in orizzontale

Postdi biancocandido55 » 22/05/10 00:08

Scusa Flash,
bianco ha scritto:
l'ordinamento della tabella c3:g3
, errato
intendevo dire
l'ordinamento della tabella c3:g13

ciao e grazie di nuovo, a pre....
bianco55Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: trasporre tabella e colonne disunite in orizzontale

Postdi Flash30005 » 22/05/10 08:03

Questa macro dovrebbe risolvere la prima parte del tuo quesito
Codice: Seleziona tutto
Sub OrdinaRiga()
maxN = 0
MinN = Range("C3").Value
For RR = 3 To 13
    For CC = 3 To 7
    Num = Cells(RR, CC).Value
    If Num > maxN Then maxN = Num
    If Num < MinN Then MinN = Num
    Next CC
Next RR
Rows("24:24").ClearContents
For NO = MinN + 1 To maxN + 1
For RR = 3 To 13
    For CC = 3 To 7
    Num = Cells(RR, CC).Value
    If Num = NO - 1 Then
    UC = Worksheets("Foglio1").Range("IV24").End(xlToLeft).Column + 1
    Cells(24, UC).Value = NO - 1
    End If
    Next CC
Next RR
Next NO
Call OrdinaR2
End Sub


e questa la seconda parte
Codice: Seleziona tutto
Sub OrdinaR2()
Rows("26:26").ClearContents
For RR = 3 To 12
For CC = 12 To 28 Step 2
CNum = Cells(RR, CC).Value
UR = Worksheets("Foglio1").Range("IV" & Rows.Count).End(xlUp).Row + 1
Range("IV" & UR).Value = CNum
Next CC
Next RR
    Columns("IV:IV").Select
    Selection.Sort Key1:=Range("IV1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
    Range("IV1:IV90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B26").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Columns("IV:IV").ClearContents
    Range("A1").Select
End Sub


Prova e fai sapere se Ok
Ciao

Aggiunta Seconda Macro ore 9:30
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: trasporre tabella e colonne disunite in orizzontale

Postdi biancocandido55 » 23/05/10 17:06

Allora, un saluto a tutti,
ti ringrazio per le 2 macro postate, mi servivano per vedere e capire come individuare i valori centrali delle 2 tabelle, fatto il 1° passo, proviamo a fare il 2° passo, come diceva un principe , scusate, per andare dove devo andare, dov’è che devo andare per dove devo andare, ehm…. scherzetto :D :D , chiedo venia Immagine, torniamo a noi.
Come potete notare dall’img postata qui;

Immagine

Uploaded with ImageShack.us

Per sapere qual è il valore mediano di una formazione di 55 valori nella tabella di sinistra, il mediano è il valore riportato al 28° posto. Ho evidenziato poi il valore con la formattazione condizionale sulla tabella.

Nel trovare il valore mediano sulla tabella di destra; dà si un risultato (sicuramente giusto), ma il valore trovato non è presente nella tabella, tornando un attimo al ragionamento di prima, il valore mediano di un insieme di 90 valori, non è un solo valore ma bensì sono 2 i valori e si trovano al 45° e al 46° posto, il fatto è che il valore trovato dalla formula non è presente tra quelli riportati, andando a vede il 45° ed il 46° posto, mi servirebbe un suggerimento o un eventuale formula o funzione che mi evidenzi nella tabella di destra i 2 valori citati prima.
Ciao, e grazie,
bianco55
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: trasporre tabella e colonne disunite in orizzontale

Postdi Anthony47 » 23/05/10 17:15

E se vuoi farlo con formule:
Primo problema:
-in A24 usi
Codice: Seleziona tutto
=PICCOLO($C$3:$G$13;RIF.COLONNA(A1))

-poi copi verso dx fino a BD24

Per il secondo problema l' approccio e' analogo, salvo che per comodita' conviene definire un intervallo contenente le celle che ti servono (L3:L13, N3:N13, etc); quindi
-selezioni le celle dell' intervallo, poi Menu /Inserisci /Nome /Definisci; scrivi il nome che ti piace, es "pippo"; Ok
-poi in A26 userai
Codice: Seleziona tutto
=PICCOLO(pippo;RIF.COLONNA(A1))

-copi A26 cerso dx fino a CM26

Per il quesito della mediana, potresti usare la formattazione condizionale sulla riga dei risultati, per colorare ad esempio le celle il cui contenuto sia inferiore alla mediana.

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

Re: trasporre tabella e colonne disunite in orizzontale

Postdi biancocandido55 » 24/05/10 07:39

Un buongiorno a tutti,.....

x Anthony
sempre rapido, pronto ed efficace ;) , un grazie come sempre x le formule funzionano.

x Flash
noto con Sommo Gaudio Magnum che anche tu non sei da meno dinamico e proficuo,
le 2 macro ("come già sai") vanno Ok, ti chiedo solo di modificare la 2ª macro OrdinaR2(), perchè
a differenza della macro in uso per la riga 24, se uso una formattazione condizionale sulla riga 26, me la cancella e mi costringe ogni volta a riformattare nuovamente la riga 26.

momentaneamente per ulteriori richieste mi fermo qui, le prossime richieste sempre per questo topic, ci saranno dopo che mi verrà in mente qualche altro rompicapo.

Ciao e grazie di nuovo, un abbraccio
bianco55
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: trasporre tabella e colonne disunite in orizzontale

Postdi Flash30005 » 24/05/10 10:18

Ci sono due righe da modificare ma ti invio di nuovo la macro
Codice: Seleziona tutto
Sub OrdinaR2()
'Rows("26:26").ClearContents
For RR = 3 To 12
For CC = 12 To 28 Step 2
CNum = Cells(RR, CC).Value
UR = Worksheets("Foglio1").Range("IV" & Rows.Count).End(xlUp).Row + 1
Range("IV" & UR).Value = CNum
Next CC
Next RR
    Columns("IV:IV").Select
    Selection.Sort Key1:=Range("IV1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
    Range("IV1:IV90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B26").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Columns("IV:IV").ClearContents
    Range("A1").Select
End Sub



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: trasporre tabella e colonne disunite in orizzontale

Postdi biancocandido55 » 24/05/10 10:40

Ciao Flash,
soluzione già provata ieri, non funziona, credo che il prob sia invece in questa zona,
Codice: Seleziona tutto
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    <<<<<<
:=False, Transpose:=True                                                        <<<<<<
Columns("IV:IV").ClearContents                                                  <<<<<<
Range("A1").Select                                                              <<<<<<
,
attendo fiducioso,
ciao bianco55
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: trasporre tabella e colonne disunite in orizzontale

Postdi biancocandido55 » 25/05/10 08:03

Oohhh, finalmente, sto benedetto browser funziona,
Sò 2 giorni che cerco de scrive, Ahoo!!
Ciao Flash, allora, riletto il topic mi sono accorto che da parte mia c'era stato un accavallamento di domande e risposte.
Comunque ho copiato la 2ª macro, con le correzioni richieste, tutto Ok!, funziona.
Che posso dire,.......
di nuovo grazie ragazzi!
ciao bianco55
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15


Torna a Applicazioni Office Windows


Topic correlati a "trasporre tabella e colonne disunite in orizzontale":


Chi c’è in linea

Visitano il forum: Nessuno e 133 ospiti