Skapa ett stam- och bladdiagram i Excel 2007

En stam- och bladplot (även kallad stemplot) är ett diagram som visar statistiska data på ett sätt som bevarar varje enskilt värde. I kontrast till exempelvis pajdiagram eller histogram försvinner ofta de individuella siffrorna i dessa diagram. Med en stam- och bladplot kan du se alla ursprungliga värden.

Steg för att skapa ett stam- och bladdiagram

1. Ge en tom arbetsboksvin i Excel namn Data genom att klicka på fliken längst ner och skriva in det nya namnet.

2. Ge en annan tom arbetsboksvin namn Stem på samma sätt.

3. Mata in din lista med tal i kolumn A i fliken Data.

4. Öppna Visual Basic‑redigeraren genom att trycka Alt + F11.

5. Dubbelklicka på This Workbook i den vänstra navigeringsrutan för att öppna ett tomt kodfönster.

6. Klistra in följande VBA‑kod:

Sub StemAndLeaf()
    dataColumn = 1
    'Rensa all data i fliken Stem
    Worksheets("Stem").Cells.Clear
    'Gå till fliken Data
    Worksheets("Data").Activate
    'Hitta maxvärdet
    rowPointer = 2
    Do Until Cells(rowPointer, 1).Value = ""
        rowPointer = rowPointer + 1
    Loop
    Maximum = Cells(rowPointer - 1, dataColumn).Value
    'Bestäm divisor för att ta bort blad
    divisor = 1
    Do Until Maximum / divisor <= 10
        divisor = divisor * 10
    Loop
    If Fix(Maximum / divisor) < 5 Then divisor = divisor * 10
    topStem = Fix(Maximum / divisor)
    'Förbered fliken Stem
    Worksheets("Stem").Activate
    Cells(1, 1).Value = "Count"
    Cells(1, 2).Value = "Stem"
    Cells(1, 3).Value = "Leaves"
    For rowPointer = 2 To topStem + 2
        Cells(rowPointer, 2).Value = rowPointer - 2
        Cells(rowPointer, 3).Value = "|"
    Next rowPointer
    'Räkna antal
    Worksheets("Data").Activate
    rowPointer = 2
    Do Until Cells(rowPointer, dataColumn).Value = ""
        measurement = Cells(rowPointer, dataColumn).Value
        Stem = Fix(measurement / divisor)
        Worksheets("Stem").Cells(Stem + 2, 1).Value = Worksheets("Stem").Cells(Stem + 2, 1).Value + 1
        rowPointer = rowPointer + 1
    Loop
    'Beräkna shrink‑faktor
    Worksheets("Stem").Activate
    maximumCount = 0
    For rowPointer = 2 To topStem + 2
        If Cells(rowPointer, 1).Value > maximumCount Then maximumCount = Cells(rowPointer, 1).Value
    Next rowPointer
    shrinkFactor = Fix(maximumCount / 50)
    If shrinkFactor < 1 Then shrinkFactor = 1
    Cells(1, 4).Value = "Each digit represents" + Str(shrinkFactor) + " cases."
    'Fyll i blad
    Worksheets("Data").Activate
    rowPointer = 2
    Do Until Cells(rowPointer, dataColumn).Value = ""
        measurement = Cells(rowPointer, dataColumn).Value
        Stem = Fix(measurement / divisor)
        leaf = measurement - Stem * divisor
        leaf = Fix(leaf * 10 / divisor)
        Worksheets("Stem").Cells(Stem + 2, 3).Value = Worksheets("Stem").Cells(Stem + 2, 3).Value + Trim(Str(leaf))
        rowPointer = rowPointer + shrinkFactor
    Loop
    Worksheets("Stem").Activate
End Sub

7. Tryck F5 för att köra koden. Ett stam- och bladdiagram kommer att skapas i fliken Stem.

Tips

Om du ändrar dina data och vill generera ett nytt diagram, kör bara makrot StemAndLeaf igen.