April 16
Saper usare la logica nelle tabelle pivot in grado di risparmiare tempo se è necessario apportare modifiche a molte tabelle pivot. Le tabelle pivot vengono spesso utilizzati in applicazioni di fogli di calcolo, come ad esempio Microsoft Office Excel, per riassumere i dati. È possibile utilizzare Visual Basic, Applications Edition (VBA) per applicare ed eseguire la programmazione logica facilmente. VBA è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Excel e altre applicazioni di Office.
1 Avviare Microsoft Office Excel e digitare "FieldColumns" a "A1", "Informazioni" in "B1", "Column1" a "A2", "15" a "B2", "Colonna2" a "A3" e "25 B3 "in". " Fai clic su "A1", premere "Ctrl" e "A", fare clic sul menu "Inserisci", quindi selezionare "tabella pivot". Premere il tasto "OK".
2 Seleziona le caselle accanto a "FieldColumns" e "Informazioni". Selezionare la scheda "Sviluppatore", e quindi fare clic su "Visual Basic". Fare clic sul menu "Inserisci" e selezionare "Modulo".
3 Digitare la seguente per creare una nuova procedura:
Private Sub executeTableLogic ()
Premere Invio."
4 Digitare la seguente per creare le variabili:
Dim PTBL Come pivot
Dim wrkSheet Come foglio di lavoro
5 Digitare quanto segue per scorrere tutti i fogli di lavoro e la ricerca di tabelle pivot nella cartella di lavoro:
For Each wrkSheet In ActiveWorkbook.Worksheets
Per ogni PTBL In wrkSheet.PivotTables
Range ( "A3: B6") Selezionare.
6 Digitare il seguente formato tabella pivot:
With Ptbl.TableRange1
.Font.Bold = False
.Interior.ColorIndex = 0
End With
7 Digitare quanto segue per aggiungere la logica e evidenziare le righe se i valori delle tabelle pivot sono maggiori di 10:
For Each c In Ptbl.DataBodyRange.Cells
Se c.Value> = 10 Poi
Con Ptbl.TableRange1.Rows (c.Row - Ptbl.TableRange1.Row + 1)
.Font.Bold = True
.Interior.ColorIndex = 6
End With
Finisci se
Il prossimo
Exit Sub
Successivo PTBL
Successivo wrkSheet
8 Premere il tasto "F5" per eseguire la procedura.