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
Premere il tasto " Enter ".
4
Digitare quanto segue per creare le variabili :
Dim PTBL Come pivot
Dim wrkSheet come manuale
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
Avanti
Exit Sub
Programmazione © www.354353.com