Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Copiare tabella escludendo gli zeri

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

[Excel] Copiare tabella escludendo gli zeri

Postdi gik » 07/12/06 10:44

Salve a tutti, ho una tabella in cui ogni cella è formata dall'unione di quattro celle adiacenti. Ora ho la necessità di copiare la suddetta tabella in un'altro foglio e di diagrammare i risultati.

Purtroppo, poiché le celle sono unite, anzicché avere un diagramma a superficie avrò un diagramma a "picchi", poiché il grafico legge i valori nelle singole celle e perciò anche gli zeri che si trovano nelle celle unite.

Per spiegarmi meglio allego un disegnino..

Avevo pensato di superare il problema ricopiando solo i valori della tabella letti con uno step 2


Codice: Seleziona tutto
Sub Grafico_Avanza_t()

Sheets("Grafici").Select
Set SUSCITA = Range("G30")
'in G30 riscrivo la tabella origiaria (TuttoT)
Set t = Range("A15")
'in A15 c'è la variabile tempo t

Nr = Range("TuttoT").Rows.Count
i = 0
j = 0

For r = 1 To Range("TuttoT").Rows.Count Step 2
    For C = 1 To Range("TuttoT").Columns.Count Step 2

            SUSCITA.offset(i, j).Value = Range("TuttoT").offset(t * (Nr + 1), 0).Cells(r, C).Value - 273
'Scorre tra le varie matrici secondo il valore di t

            j = j + 1
    Next
    j = 0
    i = i + 1
Next
Range("D15").Value = "T" & t
End Sub


Purtoppo è lentissima...
Potete aiutarmi a rendere la macro più rapida oppure a diadrammare direttamente la matrice originaria?
Grazie.

Purtroppo penso non sia la macro lenta, ma un po' tutto.
Non capisco perché..

Immagine
" ... e come il sol che fulvo scema attergo il cupo mare, negli occhi miei, tu, riverberi radiosa"
GIK
gik
Utente Junior
 
Post: 86
Iscritto il: 18/07/06 16:41
Località: Gaeta

Sponsor
 

Postdi gik » 07/12/06 10:45

ecco un'immagine di esempio

Immagine
" ... e come il sol che fulvo scema attergo il cupo mare, negli occhi miei, tu, riverberi radiosa"
GIK
gik
Utente Junior
 
Post: 86
Iscritto il: 18/07/06 16:41
Località: Gaeta

Postdi gik » 07/12/06 10:46

" ... e come il sol che fulvo scema attergo il cupo mare, negli occhi miei, tu, riverberi radiosa"
GIK
gik
Utente Junior
 
Post: 86
Iscritto il: 18/07/06 16:41
Località: Gaeta

Postdi gik » 07/12/06 10:49

Il link precedente non funziona, provate questo:

http://gik77.altervista.org/_altervista ... hot049.jpg
" ... e come il sol che fulvo scema attergo il cupo mare, negli occhi miei, tu, riverberi radiosa"
GIK
gik
Utente Junior
 
Post: 86
Iscritto il: 18/07/06 16:41
Località: Gaeta

Postdi gik » 07/12/06 10:50

Ho fatto un casino, potete cancellare i post inutili :oops:
scusate
" ... e come il sol che fulvo scema attergo il cupo mare, negli occhi miei, tu, riverberi radiosa"
GIK
gik
Utente Junior
 
Post: 86
Iscritto il: 18/07/06 16:41
Località: Gaeta

Postdi Anthony47 » 11/12/06 01:04

Ciao gik,
potresti fare cosi':
1) Supponiamo che la tua tabella con celle unite parta da D10.
2) In un' area libera, supponiamo da L22, ti fai una tabella con in orizzontale, come intestazione di colonna (celle M22:T22), una serie 0,1,2,3,4,5,6,7; analogamente in verticale, come intestazione di riga (celle L23:L29): 0,1,2,3,4,5,6. Larghezza e altezza sono arbitrarie.
3) in U22 (o altrove) metti quante righe sono unite e in U23 quante colonne sono unite nella tua tabella di origine.
4) in M23 inserisci la formula
Codice: Seleziona tutto
=SCARTO($D$10;$L23*$U$22;M$22*$U$23)

che poi copi in orizzontale e in verticale.
La tua nuova tabella dati e' pronta, e puoi usarla per i grafici

Aiuta?
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

Postdi gik » 15/12/06 17:39

Grazie mille, proverò, ma sono certo che funzionerà benissimo come al solito.
Grazie ancora,
GiK
" ... e come il sol che fulvo scema attergo il cupo mare, negli occhi miei, tu, riverberi radiosa"
GIK
gik
Utente Junior
 
Post: 86
Iscritto il: 18/07/06 16:41
Località: Gaeta


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Copiare tabella escludendo gli zeri":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti