Saper utilizzare la logica nelle tabelle pivot consente di risparmiare tempo se è necessario apportare modifiche a molte tabelle pivot . Le tabelle pivot vengono spesso utilizzati nelle applicazioni di foglio di calcolo , ad esempio Microsoft Office Excel , per riepilogare i dati . È possibile utilizzare Visual Basic, Applications Edition (VBA ) per applicare ed eseguire la logica di programmazione facilmente . VBA è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in Excel e altre applicazioni di Office . Cose che ti serviranno
Microsoft Office Excel
Mostra più istruzioni
1

Avviare Microsoft Office Excel , e di tipo " FieldColumns " a " A1 ", "Informazioni" nel " B1 ", " Column1 " a " A2 ", " 15 " a " B2 ", " Colonna2 " a " A3 "e " 25 " a " B3 ". Fare clic su " A1 ", premere il tasto "Ctrl " e "A ", fare clic sul menu "Inserisci" e selezionare " tabella pivot ". Premere il tasto " OK ".
2

Controllare le caselle accanto a " FieldColumns " e " Informazioni ". Selezionare la scheda " Sviluppo " , e quindi fare clic su " Visual Basic ". Fai clic sul menu "Inserisci" e selezionare
3

digitare quanto segue per creare una nuova procedura di "Modulo ". :

Private Sub executeTableLogic ( ) per < p > Premere il tasto " Enter ".
4

Digitare quanto segue per creare le variabili :

Dim PTBL Come pivot

Dim wrkSheet come manuale
< br > 5

digitare quanto segue per scorrere tutti i fogli di lavoro e la ricerca di tabelle pivot nella cartella di lavoro :

Ogni wrkSheet in ActiveWorkbook.Worksheets

Ogni PTBL in wrkSheet.PivotTables < br Gamma

> ( "A3 : B6 " ) . Seleziona
6

Digitare quanto segue per formattare tabella pivot :

Ptbl.TableRange1

. Font.Bold = False

. Interior.ColorIndex = 0

End With
7

digitare quanto segue per aggiungere righe di logica e di evidenziare se i valori della tabella pivot sono maggiori oltre 10:

Ogni c In Ptbl.DataBodyRange.Cells

c.Value > = 10 Poi

Ptbl.TableRange1.Rows ( c.Row - Ptbl.TableRange1.Row + 1 ) per

. Font.Bold = True

. Interior.ColorIndex = 6

End With

End If < br >

Avanti

Exit Sub