Cum să creezi un diagrama Stem & Leaf în Excel 2007

Introducere

\n

Un diagramă Stem & Leaf (cunoscută și sub denumirea de stemplot) este un instrument vizual folosit pentru a reprezenta datele statistice într-un mod detaliat. Spre deosebire de graficele circulare sau histogramele, această diagramă păstrează fiecare valoare individuală, oferind o perspectivă mai clară asupra distribuției.

\n\n

Pas cu pas – crearea diagramei în Excel 2007

\n\n

1. Pregătirea foilor de lucru

\n

1.1. Deschide un nou workbook Excel și redenumește prima foaie în „Data” (fă clic pe fila de jos și tastează noul nume).

\n

1.2. Creează o altă foaie goală și redenumește‑o în „Stem”.

\n\n

2. Introducerea datelor

\n

Introdu lista de numere în coloana A a foii „Data”.

\n\n

3. Accesarea editorului VBA

\n

Apasă simultan Alt + F11 pentru a deschide Visual Basic Editor.

\n

În panoul din stânga, dă dublu clic pe „ThisWorkbook” sub „Microsoft Excel Objects” pentru a deschide o fereastră de cod goală.

\n\n

4. Codul VBA pentru diagrama Stem & Leaf

\n

Sub StemAndLeaf()\n    Dim dataColumn As Long, rowPointer As Long, measurement As Double\n    Dim stem As Long, leaf As Long, divisor As Long\n    Dim topStem As Long, maximum As Double\n    Dim maximumCount As Long, shrinkFactor As Long\n\n    'Curăță foaia „Stem”\n    Worksheets("Stem").Cells.Clear\n\n    'Accesează foaia „Data”\n    Worksheets("Data").Activate\n\n    'Găsește valoarea maximă\n    rowPointer = 2\n    Do Until Cells(rowPointer, 1).Value = ""\n        rowPointer = rowPointer + 1\n    Loop\n    maximum = Cells(rowPointer - 1, dataColumn).Value\n\n    'Determină divisorul pentru frunze\n    divisor = 1\n    Do Until maximum / divisor <= 10\n        divisor = divisor * 10\n    Loop\n    If Fix(maximum / divisor) < 5 Then divisor = divisor * 10\n\n    'Calculează stema de vârf\n    topStem = Fix(maximum / divisor)\n\n    'Configurează foaia „Stem”\n    Worksheets("Stem").Activate\n    Cells(1, 1).Value = "Count"\n    Cells(1, 2).Value = "Stem"\n    Cells(1, 3).Value = "Leaves"\n    For rowPointer = 2 To topStem + 2\n        Cells(rowPointer, 2).Value = rowPointer - 2\n        Cells(rowPointer, 3).Value = "|"\n    Next rowPointer\n\n    'Contează valorile\n    Worksheets("Data").Activate\n    rowPointer = 2\n    Do Until Cells(rowPointer, dataColumn).Value = ""\n        measurement = Cells(rowPointer, dataColumn).Value\n        stem = Fix(measurement / divisor)\n        Worksheets("Stem").Cells(stem + 2, 1).Value = Worksheets("Stem").Cells(stem + 2, 1).Value + 1\n        rowPointer = rowPointer + 1\n    Loop\n\n    'Determină factorul de reducere\n    Worksheets("Stem").Activate\n    maximumCount = 0\n    For rowPointer = 2 To topStem + 2\n        If Cells(rowPointer, 1).Value > maximumCount Then maximumCount = Cells(rowPointer, 1).Value\n    Next rowPointer\n    shrinkFactor = Fix(maximumCount / 50)\n    If shrinkFactor < 1 Then shrinkFactor = 1\n    Cells(1, 4).Value = "Each digit represents " & shrinkFactor & " cases."\n\n    'Adaugă frunzele\n    Worksheets("Data").Activate\n    rowPointer = 2\n    Do Until Cells(rowPointer, dataColumn).Value = ""\n        measurement = Cells(rowPointer, dataColumn).Value\n        stem = Fix(measurement / divisor)\n        leaf = measurement - stem * divisor\n        leaf = Fix(leaf * 10 / divisor)\n        Worksheets("Stem").Cells(stem + 2, 3).Value = Worksheets("Stem").Cells(stem + 2, 3).Value & Trim(Str(leaf))\n        rowPointer = rowPointer + shrinkFactor\n    Loop\n\n    'Întoarce-te la foaia „Stem”\n    Worksheets("Stem").Activate\nEnd Sub

\n\n

5. Rularea macrocomenzii

\n

Apasă F5 pentru a executa codul. Diagrama Stem & Leaf va fi generată în foaia „Stem”.

\n\n

Sfat

\n

Dacă modifici datele și dorești să generezi o diagramă nouă, rulați din nou macrocomanda StemAndLeaf.

\n\n
URL:https://ro.whycomputer.com/software-ul/100516907.html