Doorgaan naar hoofdcontent

Excel: Gannt chart met handleiding

Inleiding


Uitwerking

Voor ons voorbeeld gebruiken we de volgende gegevens:

Taak
Startdatum
Duur in dagen
Taak 1
3-2-2017
1
Taak 2
4-2-2017
1
Taak 3
4-2-2017
5
Taak 4
11-2-2017
1
Taak 5
11-2-2017
12
Taak 6
25-2-2017
3
Taak 7
28-2-2017
1
Taak 8
28-2-2017
4
Taak 9
6-3-2017
3
Taak 10
6-3-2017
6
Taak 11
12-3-2017
3
Taak 12
17-3-2017
3
Taak 13
20-3-2017
1
Taak 14
23-3-2017
5
Taak 15
26-3-2017
7
Taak 16
29-3-2017
4
Taak 17
1-4-2017
3
Taak 18
4-4-2017
6
Taak 19
7-4-2017
8
Taak 20
10-4-2017
9
Taak 21
13-4-2017
10
Taak 22
16-4-2017
12
Taak 23
19-4-2017
14
Taak 24
22-4-2017
15
Taak 25
25-4-2017
13
Taak 26
28-4-2017
5

§   Plaats deze data in A1:C27.
§   Plaats in D1 het label Einddatum.
§   Plaats in D2 de formule:

  =B2+C2

§   Plaats in E1:H1 de labels Voor, Na, Lijn, Breedte lijn.
§   Plaats in E2 de formule:

  =ALS(EN(B2<$J$1;D2<$J$1);C2;ALS(EN(B2<$J$1;D2>=$J$1);$J$1-B2;0))

§   Plaats in F2 de formule:

  =ALS(EN(B2>=$J$1;D2>=$J$1);C2;ALS(EN(B2<$J$1;D2>=$J$1);D2-$J$1;0))

§   Zet in J1 de formule:

  =VANDAAG()

§   Typ in K1 en M1 resp. Min datum en Max datum.
§   Typ in L1 en N1 resp. 3-2-2017 en 13-5-2017.
§   Type in G2 de formule:

  =$J$1

§   Typ in H2 de waarde 0,2.
§   Selecteer D2:H2.
§   Trek dit door tot D27:H27.
§   Voor de grafiek selecteer A1:C27.
§   Kies Invoegen Þ 2D staaf Þ gestapelde staaf.
§   Maad de ontstane grafiek groter.

We krijgen dan:


 §   Klik met de rechter muisknop op één van de staven.
§   Klik op Gegevens selecteren.

We krijgen dan:


 §   Klik op bewerken.



§   Verander de B in een A.
§   Klik op OK.
§   Klik op Toevoegen.
§   Laat de reeksnaam leeg.
§   Kies als reekswaarden B2:B27.


§   Verander de volgorde van de reeksen.


§   Klik op OK.
§   Klik met de rechter muisknop op de horizontale as.
§   Kies As opmaken.
§   Zet de minimum waarde op 42769 en de maximum waarde op 42868.

We hebben dan:


§   Klik met de rechter muisknop op één van de rode staven.
§   Kies Gegevenreeks opmaken.
§   Kies Opvulling en lijn.
§   Kies bij Opvulling voor Geen opvulling.
§   Klik met de rechter muisknop op de Y-as met Taak 1 – Taak 26.
§   Kies bij Opties voor as voor Categorieën in omgekeerde volgorde.

We hebben dan zoiets:


§   Klik met rechter muisknop op één van de blauwe staven.
§   Kies Gegevenslabels toevoegen.
§   Klik met rechter muisknop op één van de blauwe staven.
§   Kies Gegevensreeks opmaken.
§   Kies voor Opvulling en lijn.
§   Zet de kleur op lichtgroen.
§   Klik met de rechter muisknop op de bovenste as.
§   Klik op Secundaire rasterlijnen toevoegen.
§   Klik met de rechter muisknop op de secundaire rasterlijnen.
§   Kies raterlijnen opmaken.
§   Zet de kleur op donkerder grijs.

We hebben dan een simpel planbord.



We gaan deze nog verder uitbouwen met een datumbalk en verschillende kleuren voor voor en na deze datumbalk.

§   Klik met de rechter muisknop op één van de groene staven.
§   Kies Gegevens selecteren.


§   Verwijder de reeks Duur in dagen.
§   Klik op Toevoegen.
§   Voeg als Reekswaarden E2:E27 toe.
§   Klik op OK.
§   Klik nog eens op Toevoegen.
§   Voeg als Reekswaarden F2:F27 toe.
§   Klik op OK.

We krijgen dan:


§   Klik met de rechter muisknop op één van de groene staven.
§   Kies Gegevenlabels toevoegen.
§   Doe het zelfde bij de blauwe staven.

We zien dan steeds een hinderlijke 0 verschijnen.

§   We klikken met de rechter muisknop op één van de gegevenlabels.
§   We kiezen Gegevenlabels opmaken.
§   Bij Notatie kiezen we dan Categorie: aangepast en Notatiecode: 0;;.
§   Doe dat voor beide kleuren.

Ten slotte moeten we nog de datumlijn toevoegen.

§   Klik met de rechter muisknop op één van de groene staven.
§   Kies Gegevens selecteren.
§   Klik op Toevoegen.
§   Voeg als Reekswaarden toe G2:G27.
§   Klik op OK.
§   Klik nog eens op Toevoegen.
§   Voeg als Reekswaarden toe H2:H27.

Het resultaat is een behoorlijke bende!


§   Klik met de rechter muisknop op één van de staven.
§   Kies Ander type grafiekreeks.



§   Vink bij de onderste twee de Secundaire as aan.
§   Klik op OK.
§   Klik met de rechter muisknop op de horizontale as.
§   Kies As opmaken.
§   Zet de minimum waarde op 42769 en de maximum waarde op 42868.

We krijgen dan:


§   Klik met de rechter muisknop op één van de paarse staven.
§   Kies bij Opvulling en lijn voor Geen Opvulling.
§   Kies één van de blauwe staafjes.
§   Kies voor de kleur zwart.
§   Klik op Opties voor reeks.
§   Zet de Breedte tussenruimte op 0%.
§   Pas eventueel de linker as labels weer aan naar Taak 1 – Taak 26.

We zijn nu een heel eind.


Grafieken in Excel hebben het probleem dat de minimum en maximum waarde voor een as zich niet automatisch aanpassen. Dit moeten we doen met VBA en een knop.

§   Houd de ALT toets ingedrukt en druk op F11.

Het VBA scherm verschijnt.

§   Voeg bij het VBAProject van deze werkmap een module in.
§   Typ daar de volgende code:

  Sub SchaalAanpassen()
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.Axes(xlValue,xlSecondary).MinimumScale = Range("L1").Value
    ActiveChart.Axes(xlValue).MinimumScale = Range("L1").Value
    ActiveChart.Axes(xlValue,xlSecondary).MaximumScale = Range("N1").Value
    ActiveChart.Axes(xlValue).MaximumScale = Range("N1").Value
  End Sub

§   Sluit het VBA scherm weer via het kruisje rechtsboven.
§   Kies Ontwikkelaars Þ Invoegen Þ Knop.
§   Teken een knop in de cellen O1:P1.
§   Koppel de knop aan de macro SchaalAanpassen.
§   Verander het opschrift van de knop in Schaal aanpassen.


Een druk op de knop zal dan de minimum en maximum waarden van de horizontale schalen aanpassen op basis van de waarden in de cellen L1 en N1. Denk er wel aan de werkmap op te slaan als een XLSM bestand, met macro's.

Voor verder Excel tips klik hier.

Andere blogs over Excel


Voor het beste overzicht verwijs ik naar een pagina van mijn website: http://www.walmar.nl/spreadsheets.asp
Labels:

Reacties

Anoniem zei…
Baccarat | Play Baccarat, Baccarat - Worrione
Learn about Baccarat 제왕카지노 online casino and play the baccarat game that 메리트카지노총판 is played on your smartphone or tablet. Enjoy worrione the best free casino games online.
28 januari 2022 om 19:08
Een reactie posten

Populaire posts van deze blog

Excel: VBA script om wachtwoord te verwijderen

Af en toe krijg ik een vraag om een wachtwoord van een Excel blad te halen. Doodsimpel met VBA. Hier een script dat ik gebruik: Sub WachtwoordCrack()     Dim a As Integer, b As Integer, c As Integer, d As Integer, _     e As Integer, f As Integer, g As Integer, h As Integer, _  I As Integer, j As Integer, k, m As Integer     Dim begin As Date, eind As Date     Dim duur As String     Dim objSheet As Worksheet     begin = TimeValue(Time)     On Error Resume Next     For Each objSheet In Application.Worksheets         For a = 65 To 66: For b = 65 To 66: For c = 65 To 66             For d = 65 To 66: For e = 65 To 66: For f = 65 To 66                 For g = 65 To 66: For h = 65 To 66: For I = 65 To 66                     For j = 65 To 66: For k = 65 To...
1 reactie
Meer lezen

Excel 2013: uniek aantal in draaitabel

Tot en met versie 2010 was het in Excel lastig om in een draaitabel een uniek aantal (DISTINCT COUNT) te tellen. We geven een voorbeeld op basis van een verkoperslijst. In deze lijst kunnen we zien welke verkopers welke artikelen hebben verkocht. Willen we nu in een draaitabel laten zien hoeveel artikelen een verkoper heeft verkocht, dan krijgen we wel de aantallen maar niet de unieke aantallen te zien. Om toch de unieke aantallen te laten zien, hebben we een aantal stappen nodig. Op het moment dat we de draaitabel invoegen, krijgen we in Excel 2013 dit dialoogvenster: Onderaan zien we daar een nieuwe optie: Deze gegevens toevoegen aan het gegevensmodel . Deze optie moeten we aanvinken, voor we op OK klikken. We krijgen dan een iets ander beeld dan normaal: Normaliter krijgen we alleen de veldnamen. Nu zien we er het woord Bereik boven staan. Voor het voorbeeld heb ik nu Verkoper toegevoegd aan Rijen en Artikelomschrijving aan Waarden . Het resultaat is identiek...
Een reactie posten
Meer lezen

Excel: laatste datum voor een groep, draaitabel of matrixformule?

Via een Excel groep krijg ik de vraag hoe je de laatste datum voor een groep er uit kunt pikken. We geven hier even de voorbeelddata: Voor zover ik kan zien zijn er in ieder geval twee mogelijkheden: met matrixformules en met een draaitabel . Oplossing: draaitabel We zullen het in dit voorbeeld maar even helemaal volgens de regels van de Excel kunst doen. Voor het maken van de draaitabel heb ik de lijst eerst omgezet naar een tabel ( INVOEGEN => DRAAITABEL ). De naam veranderen we dan even van Tabel1 in draaitabel . Vervolgens maken we de draaitabel. Via Waardeveldinstellingen kiezen we dan voor het datumveld voor Max en bij Getalnotatie voor Datum . De kopjes zetten we even om naar Naam en Laatste datum . Klaar. Oplossing: matrixformules Voor dat we de matrixformules gaan maken, creëren we eerst namen met flexibele bereiken: datum =VERSCHUIVING(Blad1!$B$2;0;0;AANTALARG(Blad1!$B:$B)-1;1) naam =VERSCHUIVING(Blad1!$A$2;0;0;AANTALARG(Blad1!$A:$A...
Een reactie posten
Meer lezen