Come usare tabella pivot Logic

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.

istruzione

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.