Új hozzászólás Aktív témák

• #49468 Mutt senior tag nihill #49466

  Új Válasz 2022-08-24 18:35:16 #49468

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz nihill #49466 üzenetére

  Szia,

  Pivot táblában át engedi írni az excel az értékeket, pl. "kutya"-t "macska"-ra.
  28 év Excel használata során nem használtam ezt a dolgot, szóval tanultam vmit.
  Nem találtam róla semmit, de ezzel a VBA kóddal a munkalap összes kimutatását rendbe tudod tenni.

  Sub GetBackTheOriginalItemNames()
Dim WB As Workbook
Dim WS As Worksheet
Dim PT As PivotTable
Dim PF As PivotField
Dim PI As PivotItem

Set WB = ThisWorkbook

For Each WS In WB.Worksheets
For Each PT In WS.PivotTables
For Each PF In PT.RowFields
For Each PI In PF.PivotItems
If PI.Name <> PI.SourceName Then PI.Name = PI.SourceName
Next PI
Next PF
Next PT
Next WS
End Sub

  üdv

Új hozzászólás Aktív témák