Acest sfat permite utilizatorilor dvs. de rapoarte să aleagă între mai multe formate de tabel pivot folosind butoane de opțiune și apoi actualizează automat tabelul pivot! (Vine la îndemână atunci când utilizatorii au preferințe de formatare a raportului fără a fi nevoie să meargă la bara de instrumente a tabelului pivot și să aleagă una de fiecare dată)
Primul pas:
Plasați un buton de opțiune (sau mai multe) oriunde pe foaia de lucru a raportului tabelului pivot și denumiți-le, cum ar fi „Raport format 1”, „Raport format 2”, etc …
Faceți acest lucru accesând „Vizualizare> Bare de instrumente> Formulare”, alegeți „butonul Opțiune” din caseta de instrumente și trageți-l în raport.
Pasul doi:
Creați macrocomanda accesând „Instrumente> Macro> Macro”, tastați un nume precum „Format2” și apoi „Creați”
Tastați sau tăiați și lipiți următorul cod VB. (Notă: asigurați-vă că tabelul pivot este etichetat cu numele implicit „PivotTable1” făcând clic dreapta oriunde în tabelul pivot, alegeți „Opțiuni tabel” și uitați-vă la câmpul „Nume”. În caz contrar, va trebui să înlocuiți numele tabelului pivot din codul de mai jos cu cel pe care îl numește tabelul pivot):
Sub Format2 ()
„Format2 Macro
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Format xlReport6
Celule. Selectați
Cu Selecție
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = Fals
.Orientare = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Se termina cu
Cu Selecție
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientare = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Se termina cu
Celule.Selectați
Selecție.Coloane.Autofit
Range ("A1"). Selectați
Sfârșitul Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Puteți crea macrocomenzi de format diferite folosind același cod și singura linie pe care trebuie să o modificați este „Format xlReport6”. Există aproximativ 15 formate de rapoarte pentru a alege. Pur și simplu schimbați „xlReport (număr)” de la 1 la 15.
Codul de mai sus adaptează automat coloanele și centrează textul după ce raportul a fost formatat.
Pasul trei:
Atribuiți macrocomanda la butonul de opțiune făcând clic dreapta pe butonul de opțiune, alegeți „Atribuiți macrocomanda” și pur și simplu alegeți macrocamera pe care tocmai ați creat-o. Faceți acest lucru pentru fiecare dintre butoanele de opțiune
Asta e! Acum, când un utilizator face clic pe un buton de opțiune, tabelul pivot se va actualiza automat la format pe baza opțiunii de format care a fost utilizată în macro. Testați mai multe stiluri de raport pentru a vedea care se potrivesc nevoilor dvs. și apoi atribuiți-le macrourilor și butoanelor de opțiune.
Utilizatorii dvs. vor fi recunoscători și destul de impresionați!
Noroc!
~ CJ