Condividi:        

testo in pivot

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

testo in pivot

Postdi bismark » 08/07/15 15:32

Buon giorno

avrei bisogno di sapere come si può modificare questa macro che ho creato con il registratore per impostare come titolo delle colonne il dato riportato nel file dal quale prelevo i dati

Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Foglio1!R1C1:R5C4", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Foglio5!R3C1", TableName:="Tabella_pivot2", _
        DefaultVersion:=xlPivotTableVersion12
    Sheets("Foglio5").Select
    Cells(3, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("nome")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabella_pivot2").AddDataField ActiveSheet.PivotTables( _
        "Tabella_pivot2").PivotFields("alba"), "Conteggio di alba", xlCount
    ActiveSheet.PivotTables("Tabella_pivot2").AddDataField ActiveSheet.PivotTables( _
        "Tabella_pivot2").PivotFields("cuneo"), "Conteggio di cuneo", xlCount
    With ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("Conteggio di alba")
        .Caption = "Somma di alba"
        .Function = xlSum
    End With
    With ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("Conteggio di cuneo" _
        )
        .Caption = "Somma di cuneo"
        .Function = xlSum
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub


inquesto caso la caption diventa somma di alba oppure somma di cuneo, come si può impostare la macro perchè si imposti in automatico il valore riportato nella cella c1 (alba) oppure d1(cuneo) presente nell'archivio dati?

mi auguro di aver reso comprensibile la mia esigenza

p.s come posso fare ad allegare eventulamente un file d'esempio
grazie
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03

Sponsor
 

Re: testo in pivot

Postdi Flash30005 » 09/07/15 01:13

Non entro in merito alla creazione della tabella di Pivot con la macro
ma mi soffermerei un attimo sulla condizione che vorresti impostare
bismark ha scritto:come si può impostare la macro perchè si imposti in automatico il valore riportato nella cella c1 (alba) oppure d1(cuneo)


Fornisci due riferimenti a celle e due variabili quindi dovrai spiegare tu stesso il motivo per il quale scegli se prendere in considerazione la cella C1 o la D1.

Diverso sarebbe stato se avessi detto
come si può impostare la macro perché si imposti in automatico il valore riportato nella cella se C1 = a "alba" oppure C1 = a "cuneo"


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: testo in pivot

Postdi Anthony47 » 09/07/15 01:41

Credo che dovrebbe funzionare con queste modifiche:
invece di With ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("nome")
Codice: Seleziona tutto
    myF1 = Sheets("Foglio1").Range("A1").Value
   With ActiveSheet.PivotTables("Tabella_pivot2").PivotFields(myF1)


E analogamente per ognuno degli gli altri campi:
Codice: Seleziona tutto
    myF1 = Sheets("Foglio1").Range("B1").Value
    ActiveSheet.PivotTables("Tabella_pivot2").AddDataField ActiveSheet.PivotTables( _
        "Tabella_pivot2").PivotFields(myF1), "Conteggio di " & myF1, xlCount


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

Re: testo in pivot

Postdi bismark » 09/07/15 08:30

prima di tutto grazie a flash e anthony per esservi interessati alla mia richiesta

forse non sono riuscito a spiegare bene il mio problema se però mi aiutate a capire come allegare un file vi invio quanto desidererei ottenere

scusate ho capito come allegare

http://www.filedropper.com/cartel1_1

ancora una precisazione il mio file ha circa 20 colonne e quidi volevo evitare che su ognuno di esse ci fosse la scritta somma ma solo il nome della città di riferimento che si trova nella prima riga del folgio dei dati


Grazie
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03

Re: testo in pivot

Postdi bismark » 09/07/15 12:49

Perfetto

grazie per l'aiuto
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03

Re: testo in pivot

Postdi Anthony47 » 10/07/15 01:20

Per evitare equivoci, hai quindi risolto lavorando sugli spunti che hai ricevuto, vero?
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: testo in pivot

Postdi bismark » 10/07/15 07:59

Si l'ho adattato alle necessità del file che stavo utilizzando

alla prossima e grazie
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03


Torna a Applicazioni Office Windows


Topic correlati a "testo in pivot":


Chi c’è in linea

Visitano il forum: Nessuno e 118 ospiti