Jak stworzyć wykres trzpienia i liścia w Excelu 2007

Wykres trzpienia i liścia (ang. stem‑and‑leaf plot) to prosty sposób prezentacji danych statystycznych, który zachowuje wszystkie wartości indywidualne.

Krok 1 – przygotowanie arkuszy

W dolnym pasku kart zmień nazwę pierwszego, pustego arkusza na Data. Utwórz kolejny arkusz i nazwij go Stem.

Krok 2 – wprowadzenie danych

W kolumnie A arkusza Data wpisz listę liczb, które mają zostać przedstawione na wykresie.

Krok 3 – otwarcie edytora VBA

Jednocześnie naciśnij klawisze Alt + F11. W lewym panelu znajdź ThisWorkbook pod „Microsoft Excel Objects” i dwukrotnie kliknij, aby otworzyć pusty okno kodu.

Krok 4 – wklejenie makra

Skopiuj poniższy kod i wklej go do okna:

Sub StemAndLeaf()
    Dim dataColumn As Long: dataColumn = 1
    ' Wyczyść arkusz Stem
    Worksheets("Stem").Cells.Clear

    ' Aktywuj arkusz Data
    Worksheets("Data").Activate

    ' Znajdź maksymalną wartość
    Dim rowPointer As Long: rowPointer = 2
    Do Until Cells(rowPointer, 1).Value = ""
        rowPointer = rowPointer + 1
    Loop
    Dim Maximum As Double: Maximum = Cells(rowPointer - 1, dataColumn).Value

    ' Ustal dzielnik (wartość liścia)
    Dim divisor As Double: divisor = 1
    Do Until Maximum / divisor <= 10
        divisor = divisor * 10
    Loop
    If Fix(Maximum / divisor) < 5 Then divisor = divisor * 10

    ' Górny trzpień
    Dim topStem As Long: topStem = Fix(Maximum / divisor)

    ' Przygotuj nagłówki w arkuszu Stem
    Worksheets("Stem").Activate
    Cells(1, 1).Value = "Count"
    Cells(1, 2).Value = "Stem"
    Cells(1, 3).Value = "Leaves"
    Dim i As Long
    For i = 2 To topStem + 2
        Cells(i, 2).Value = i - 2
        Cells(i, 3).Value = "|"
    Next i

    ' Zlicz wystąpienia
    Worksheets("Data").Activate
    rowPointer = 2
    Do Until Cells(rowPointer, dataColumn).Value = ""
        Dim measurement As Double: measurement = Cells(rowPointer, dataColumn).Value
        Dim Stem As Long: Stem = Fix(measurement / divisor)
        Worksheets("Stem").Cells(Stem + 2, 1).Value = _
            Worksheets("Stem").Cells(Stem + 2, 1).Value + 1
        rowPointer = rowPointer + 1
    Loop

    ' Określ współczynnik zmniejszający (max 50 znaków w liściu)
    Worksheets("Stem").Activate
    Dim maximumCount As Long: maximumCount = 0
    For i = 2 To topStem + 2
        If Cells(i, 1).Value > maximumCount Then maximumCount = Cells(i, 1).Value
    Next i
    Dim shrinkFactor As Long: shrinkFactor = Fix(maximumCount / 50)
    If shrinkFactor < 1 Then shrinkFactor = 1
    Cells(1, 4).Value = "Każda cyfra = " & shrinkFactor & " przypadków"

    ' Wstaw liście
    Worksheets("Data").Activate
    rowPointer = 2
    Do Until Cells(rowPointer, dataColumn).Value = ""
        measurement = Cells(rowPointer, dataColumn).Value
        Stem = Fix(measurement / divisor)
        Dim leaf As Double: 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

Krok 5 – uruchomienie makra

W edytorze VBA naciśnij F5. W arkuszu Stem pojawi się gotowy wykres trzpienia i liścia.

Wskazówki

• Po zmianie danych wystarczy ponownie uruchomić makro StemAndLeaf.
• Jeśli wykres jest zbyt szeroki, zmień wartość shrinkFactor w kodzie.