|
Un diagramme à tiges et feuilles (également appelé stemplot ) est un type de schéma utilisé pour afficher des données statistiques. C'est une façon de conserver les points de données individuels dans un schéma qui disparaissent souvent avec d'autres méthodes graphiques telles que des camemberts et histogrammes . Par exemple, si vous tracez les numéros 10,11,12,13 , et 14 en forme de camembert , les numéros sont placés dans une catégorie et vous ne pouvez pas voir les numéros individuels sur la carte. Avec une tige et feuille, vous pouvez voir tous les numéros originaux . Instructions
1 renommer une feuille de calcul vide "Données " Excel en cliquant sur l'onglet en bas de la feuille de calcul et en tapant le nouveau nom.
2 Renommer une autre feuille de calcul Excel vierge dans le classeur "Stem " en cliquant sur l'onglet en bas de cette feuille de calcul et en tapant le nouveau nom.
3 Entrez votre liste de nombres dans la colonne A de la feuille "Données" .
4 Appuyez sur " Alt" et "F11" en même temps pour ouvrir l'éditeur Visual Basic .
5 double clic " Ce classeur " sous Microsoft Excel Objets dans le volet de navigation de gauche . pour ouvrir une fenêtre de code vide
6 Collez le code VBA suivant dans la fenêtre vide : StemAndLeaf Sub ( ) dataColumn = 1
'Clean tout sur les worksheet.Worksheets souches ( "Stem " ) . Cells.Clear
' examiner les données worksheet.Worksheets ("Données" ) . Activer
« trouver le maximum value.rowPointer = 2Do Jusqu'à Cells ( . RowPointer , 1) Value = " " RowPointer = RowPointer + 1LoopMaximum = Cells ( RowPointer - . Valeur
1 , dataColumn ) ' Définir le diviseur de dépouiller leaves.divisor = 1Do Jusqu'à maximum /diviseur < ; = 10divisor = diviseur * 10Loop
«Si le premier chiffre de la plus grande valeur est inférieure à 5 , then'use un diviseur plus petit. " Sinon, vous pourriez vous retrouver avec quatre ou moins de lignes dans la plot.If Fix ( maximum /diviseur) <5 Puis diviseur = diviseur * 10
'Calculer le value.topStem du haut souches = Fix (Maximum /diviseur)
« Mettre en place les worksheet.Worksheets souches ( "Stem " ) . ActivateCells (1, 1 ) . Value = Cells "count" (1, 2 ) . Value = Cells " souches " ( 1, 3) . value = " feuilles" Pour RowPointer = 2 pour topStem + 2Cells ( RowPointer , 2) Valeur = RowPointer - 2Cells ( RowPointer , 3) Valeur = . . "
|
