Une tige et la feuille de terrain (aussi appelé stemplot) est un type de diagramme utilisé pour afficher les données statistiques. Il est une façon de retenir les points de données individuels dans un diagramme qui disparaissent souvent avec d`autres méthodes graphiques tels que les diagrammes circulaires et les histogrammes. Par exemple, si vous tracez les numéros 10,11,12,13 et 14 dans un graphique circulaire, les numéros sont placés dans une catégorie et vous ne pouvez pas voir les numéros individuels sur le graphique. Avec une tige et feuille, vous pouvez voir tous les numéros originaux.
Renommer une feuille de calcul Excel vide "Données" en cliquant sur l`onglet en bas de la feuille de calcul et en tapant le nouveau nom.
Renommer une autre feuille de calcul Excel vide dans le classeur "Tige" en cliquant sur l`onglet en bas de cette feuille de calcul et en tapant le nouveau nom.
Entrez votre liste de numéros dans la colonne A de la "Données" feuille de travail.
presse "Alt" et "F11" en même temps pour ouvrir l`éditeur Visual Basic.
Double-cliquez "Ce classeur" sous Objets Microsoft Excel dans le volet de navigation de gauche pour ouvrir une fenêtre de code vide.
Collez le code VBA suivant dans la fenêtre vide:
Sous StemAndLeaf ()
dataColumn = 1«Nettoyer tout hors de la feuille de calcul de la tige.
Des feuilles de calcul("Tige") .Cells.Clear«Regardez la feuille de données.
Des feuilles de calcul("Données").Activer«Trouver la valeur maximale.
RowPointer = 2
Faire jusqu`à Cells (RowPointer, 1) .Value = ""
RowPointer = RowPointer + 1
Boucle
Maximum = cellules (RowPointer - 1, DataColumn) .Value«Régler le diviseur à dépouiller les feuilles.
divisor = 1
Do Until Maximum / divisor lt; = 10
divisor = diviseur * 10
Boucle`Si le premier chiffre de la plus grande valeur est inférieure à 5, puis
`Utiliser un diviseur plus petit.
«Sinon, vous pourriez vous retrouver avec quatre ou moins de lignes dans la parcelle.
Si Fix (Maximum / diviseur) lt; 5 Puis diviseur = diviseur * 10«Calculer la valeur de la tige supérieure.
topStem = Fix (Maximum / diviseur)«Mettre en place la feuille de calcul de la tige.
Des feuilles de calcul("Tige").Activer
Les cellules (1, 1) .Value = "Compter"
Les cellules (1, 2) .Value = "Tige"
Les cellules (1, 3) .Value = "Feuilles"
Pour RowPointer = 2 Pour topStem + 2
Cellules (RowPointer, 2) .Value = RowPointer - 2
Cellules (RowPointer, 3) .Value = "|"
RowPointer Suivant«Calculer les chiffres.
`Le code suivant est plus lent qu`il doit être,
`Mais un code plus rapide serait plus difficile à lire et à comprendre.
Des feuilles de calcul("Données").Activer
RowPointer = 2
Faire jusqu`à Cells (RowPointer, DataColumn) .Value = ""
mesure = cellules (RowPointer, dataColumn) .Value
Tige = Fix (mesure / diviseur)
Des feuilles de calcul("Tige") .Cells (Stem + 2, 1) .Value = Worksheets ("Tige") .Cells (Stem + 2, 1) .Value + 1
RowPointer = RowPointer + 1
Boucle`Calculer le facteur de rétrécissement.
Des feuilles de calcul("Tige").Activer
maximumCount = 0
Pour RowPointer = 2 Pour topStem + 2
Si les cellules (RowPointer, 1) .Value gt; maximumCount PuismaximumCount = cellules (RowPointer, 1) .ValueFin si
RowPointer SuivantshrinkFactor = Fix (maximumCount / 50)
Si shrinkFactor lt; 1 Alors shrinkFactor = 1
Les cellules (1, 4) .Value = "Chaque chiffre représente" + Str (shrinkFactor) + " les cas."«Retour aux données, et remplir les feuilles à la lumière des valeurs dans les données.
Des feuilles de calcul("Données").Activer
RowPointer = 2
Faire jusqu`à Cells (RowPointer, DataColumn) .Value = ""
mesure = cellules (RowPointer, dataColumn) .Value
Tige = Fix (mesure / diviseur)
leaf = mesure - Tige diviseur
leaf = Fix (feuille 10 / diviseur)Des feuilles de calcul("Tige") .Cells (Stem + 2, 3) .Value = Worksheets ("Tige") .Cells (Stem + 2, 3) .Value + trim (Str (feuille))
RowPointer = RowPointer + shrinkFactor
Boucle«Apprenez à la feuille de calcul de la tige.
Des feuilles de calcul("Tige").Activer
End Subpresse "F5" pour exécuter le code. Votre tige et la feuille de terrain apparaît dans la "Tige" feuille de travail.
Conseils & Avertissements
- Si vous modifiez vos données et besoin de générer une nouvelle parcelle de tige et la feuille, il suffit de lancer à nouveau la macro StemAndLeaf.
