Pivottable'da Verileri Siralama
Code: Sub FloorCompareSetter Dim pt As PivotTable Dim pi As PivotItem Set pt = ActiveSheet.PivotTables('PinPointPivot') 'Speeds up code dramatically pt.ManualUpdate = True 'Set the floor comparison for managers, coaches, and reps ' Make sure all PivotItems along line are visible For Each pi In pt.PivotFields('Manager').PivotItems pi.Visible = True Next pi pt.ManualUpdate = False End SubAny Help is MUCH appreciated. Auto Merged Post Until 24 Hrs Passes; Also, note that I have used other techniques to speed up the process. Code: Sub ResetManager Dim pt As PivotTable Dim pi As PivotItem Set pt = ActiveSheet.PivotTables('PinPointPivot') 'Speeds up code dramatically pt.ManualUpdate = True ' Loop through and keep only certain items visible For Each pi In pt.PivotFields('Manager').PivotItems Select Case pi.Name Case Is = selectedManagerString pi.Visible = True Case Else pi.Visible = False End Select Next pi End SubThis option takes about 3 seconds per Pivot Item and there are about 500 of them.
Pivottable'da Verileri Salama
So it takes a LONG time. Option 2) If this is possible, I would like to hide everything first (the opposite of what we did before), THEN cycle through and make the correct option visible.
I tried the command '.ShowAllItems = False', but that did not seem to work. We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, personalize advertising, and to analyze site activity. We may share certain information about our users with our advertising and analytics partners. For additional details, refer to our. By clicking ' I AGREE' below, you agree to our and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.