Gathering of Tweakers

TheovdS

dummy@example.com (TheovdS) — Fri, 18 Apr 2008 08:37:59 GMT

vrijdag 18 april 2008 10:37
Sinds kort werk ik met draaitabellen in Excel 2003. Werkt echt heerlijk, ideale tool

[Achtergrond-info]
Ik heb een Excel-applicatie gemaakt die de het aantal serviceorders van een klant per jaar optelt. Het aantal jaren is variabel en de typen serviceorders zijn ook variabel.

Er wordt ruwe data uit Navision gekopieerd naar Excel en van de ruwe data worden de gewenste gegevens gefilterd (vba) en in een draaitabel + draaigrafiek gegoten.

Ik heb de volgende draaitabel:

Daarvan heb ik de volgende draaigrafiek:

Ziet er goed uit en werkt ook goed.

[Probleem]
In de tabel worden netjes de totalen (per jaar) weergeven, maar ik wil die totalen ook in de grafiek zien. Dit is tot nu toe nog niet gelukt.

Het zou mooi zijn als er een totaal-lijn getekend werd in de grafiek en dat, als je bepaalde types serviceorders selecteert, het totaal wijzigt, net zoals dit gebeurt in een draaitabel.

[Wat ik heb geprobeerd]
* Een Calculatie-item aangemaakt, maar het type serviceorders is variabel
* De grafiek-source aanpassen, maar dit is niet mogelijk bij een DraaiGrafiek
* Een gestapelde kolomgrafiek gemaakt, maar dit is niet gewenst, omdat je dan niet kan zien hoeveel serviceorders je van een bepaald type serviceorder hebt

Wie heeft er een idee?

TheovdS

dummy@example.com (TheovdS) — Mon, 21 Apr 2008 07:36:17 GMT

maandag 21 april 2008 09:36
Heeft er iemand (in het weekend) een helder idee gekregen?
Ik i.i.g. niet

pedorus

dummy@example.com (pedorus) — Mon, 21 Apr 2008 16:57:59 GMT

maandag 21 april 2008 18:57
Volgens mij is je server tamelijk traag/onbereikbaar, waardoor de plaatjes niet zichtbaar zijn. Dat maakt deze vraag er niet makkelijker op.

Misschien helpt een oplossing met dynamic ranges en gewone grafieken:

Maak eerst een normale grafiek te aan van het juiste type, waarbij het handig is als je ook wat dummy-data hebt, zodat je straks de serie kan aanklikken.

Daarna maak je via name->define de naam "pivottablesheet!values" aan, en dan zet je daar als formule "=OFFSET(pivottablesheet!$B$1,2,0,COUNTA(pivottablesheet!$B:$B)-2,1)" neer.

Dan ga je terug naar de grafiek en zet je de formule van "Series 1" naar "=SERIES(pivottablesheet!$B$2,pivottablesheet!$A$3:$A$32000,pivottablesheet!values,1)"

(Aangenomen dat je pivottable op sheet pivottablesheet staat en de getallen op cel B3 beginnen.)

TheovdS

dummy@example.com (TheovdS) — Tue, 22 Apr 2008 07:23:56 GMT

dinsdag 22 april 2008 09:23
Bedankt voor je reactie!

Eerst had ik gewone grafieken, maar toen kwam de wens om bepaalde ordertypen en/of orderjaren te filteren. Toen ben ik naar een draaigrafiek gaan kijken, waarmee je heel makkelijk velden aan/uit kan vinken. Als ik weer terugval op een gewone grafiek is dit niet meer mogelijk.

Ik zoek dus een oplossing i.c.m. een draaigrafiek.

edit:

Ik heb geprobeerd wat jij zei, maar als je cellen uit een draaiTabel wil gebruiken voor een gewone grafiek, wordt het automatisch een draaiGrafiek.

pedorus

dummy@example.com (pedorus) — Tue, 22 Apr 2008 10:40:17 GMT

dinsdag 22 april 2008 12:40
Je kan wel degelijk een gewone grafiek maken uit een draaitabel. Je moet dan alleen zorgen dat je niet bij "Data Range" naar de Pivottable verwijst, maar gewoon naar wat dummy data, een rijtje 1-en ofzo. Later kan je de data van de Series wel naar de Pivottable laten verwijzen.

TheovdS

dummy@example.com (TheovdS) — Tue, 22 Apr 2008 12:57:00 GMT

dinsdag 22 april 2008 14:57
Het is gelukt, maar niet precies wat ik wil, omdat ik nu niet de mogelijkheid heb om velden aan/uit te zetten.

Iemand een idee om iets gelijks met een draaiGrafiek voor elkaar te krijgen?

TheovdS

dummy@example.com (TheovdS) — Mon, 28 Apr 2008 09:12:41 GMT

maandag 28 april 2008 11:12
Niemand?

TheovdS

dummy@example.com (TheovdS) — Fri, 16 May 2008 13:25:00 GMT

vrijdag 16 mei 2008 15:25
Zo mensen het is eindelijk gelukt. Ik heb het met VBA opgelost.

Ik heb een Calculated-item toegevoegd die het Eindtotaal berekend en ik gebruik VBA om de formule dynamisch op te bouwen.

Ik gebruik de volgende Sub:
Visual Basic:

Sub addCalculatedItem(thePivotTable As PivotTable)

    '

    'method to add a grand-total-calculated-item to a (given) pivotTable

    'if you use the build-in grand-total function of Excel, this is only showd in the pivotTabel, but NOT in the pivotChart

    '

    

    'vars

    Dim aColumn As Range

    Dim columnName As Variant

    Dim calculatedFormula As String

        calculatedFormula = "=" 'prepare formula

    

    'loop to loop trough the column, to build the formula based on used columns

    For Each aColumn In thePivotTable.ColumnRange

        columnName = aColumn.Text 'get column-name

        

        If columnName <> "" And _

           columnName <> "Ordertype" And _

           columnName <> "_Eindtotaal" _

           Then 'not for empty-cells or the cell of 'Ordertype', '_Eindtotaal'

                calculatedFormula = calculatedFormula & "+" & aColumn.Text 'fill up formula

        End If

    Next aColumn

    

    calculatedFormula = Replace(calculatedFormula, "=+", "=") 'replace first '+'

    calculatedFormula = Replace(calculatedFormula, "(leeg)", "'(blank)'") 'replace the empty-ordertype-text with the Englisch version (and with quotes)

    

    thePivotTable.PivotFields("Ordertype").CalculatedItems("_Eindtotaal").StandardFormula = calculatedFormula 'set formula for calculated-item

    

End Sub 'addCalculatedItem

De code is nog niet definitief, maar ik ben nu iig een grote stap verder

edit:

--22 mei '08
VBA method update