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 |
|