Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie: vio69
| Femeie 25 ani Botosani cauta Barbat 25 - 50 ani |
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 775
|
|
Usually I choose Design - Report Layout - Do not repeat item labels.
But sometimes when I use formulas to work with data inside Pivot tables, I need "repeat item labels" enabled for just one field, not all.
The following macro is a toggle to show / hide item labels for the active cell field - click on a cell in the desired field and press the button in QAT.
Sub PIVOT_repeat_labels() Application.ScreenUpdating = False
pt = ActiveCell.PivotTable.Name fld = ActiveCell.PivotField.Name
If ActiveSheet.PivotTables(pt).PivotFields(fld).RepeatLabels = True Then ActiveSheet.PivotTables(pt).PivotFields(fld).RepeatLabels = False Else ActiveSheet.PivotTables(pt).PivotFields(fld).RepeatLabels = True End If
pt = "" fld = ""
Application.ScreenUpdating = True End Sub |
|
|
pus acum 1 an |
|
Mrrrr
AdMiN
Inregistrat: acum 17 ani
Postari: 2215
|
|
To repeat all labels, you can use the following:
Sub PIVOT_repeat_ALL_labels() Application.ScreenUpdating = False PT = ActiveCell.PivotTable.Name ActiveSheet.PivotTables(PT).RepeatAllLabels xlRepeatLabels PT = "" Application.ScreenUpdating = True End Sub |
_______________________________________
|
|
pus acum 2 zile |
|