Weten hoe logica gebruiken in draaitabellen kunt u tijd besparen als je nodig hebt om wijzigingen aan vele draaitabellen maken . Draaitabellen worden vaak gebruikt in spreadsheet- toepassingen , zoals Microsoft Office Excel , om gegevens samen te vatten . U kunt Visual Basic for Applications ( VBA ) te programmeren logische gemakkelijk toe te passen en uit te voeren . VBA is een programmeertaal gebruikt om routinematige taken in Excel en andere Office-toepassingen te automatiseren . Wat je nodig hebt
Microsoft Office Excel
Toon Meer Aanwijzingen
1 Start Microsoft Office Excel en typ " FieldColumns " in " A1 ", " informatie " in " B1 , " " Kolom1 " in " A2 "," 15 " in " B2 "," Column2 " in " A3 "en " 25 "in" B3 ". Klik op " A1 ", druk op " Ctrl " en " A ", klikt u in het menu "Invoegen" en selecteer vervolgens " Draaitabel . " Druk op "OK . " Kopen van 2 Vink de vakjes aan naast " FieldColumns " en " Informatie . " Selecteer het tabblad " Developer " en klik op " Visual Basic . " Klik op het menu " Insert " , en selecteer
Type 3 van de volgende opties om een nieuwe procedure te creëren "Module . " : Private Sub executeTableLogic
( ) op Druk op ' Enter '.
Type 4 het volgende om uw variabelen te maken: Dim PTBL
als draaitabellen Dim wrkSheet als Aantekenvel
< br
> Type 5 het volgende aan lus door alle werkbladen en zoeken naar draaitabellen in uw werkmap :
voor Elke wrkSheet in ActiveWorkbook.Worksheets
voor Elke PTBL in wrkSheet.PivotTables < br Range > ( " A3 : B6 " ) . Selecteer
Type 6 het volgende te draaitabel opmaken :
met Ptbl.TableRange1
. Font.Bold = Vals
. Interior.ColorIndex = 0 Einde
met
Type 7 het volgende aan logica en hoogtepunt rijen toevoegen als pivot table waarden groter dan 10 :
voor Elke c In Ptbl.DataBodyRange.Cells
Als c.Value > 10 dan
Met Ptbl.TableRange1.Rows ( c.Row = - Ptbl.TableRange1.Row + 1 ) op Twitter . = True
. Interior.ColorIndex = End 6
Met End
Als < br Font.Bold > Volgende Exit Sub
Volgende PTBL
Volgende wrkSheet
Druk op " F5 " 8 om uw procedure uit te voeren. < br >
|
