Un diagrama de tallo y hojas (también llamado un diagrama de tallos ) es un tipo de diagrama usado para mostrar datos estadísticos. Es una manera de mantener los puntos de datos individuales en un diagrama que con frecuencia desaparecen con otros métodos gráficos tales como gráficos de sectores e histogramas . Por ejemplo, si se traza los números 10,11,12,13 , y 14 en un gráfico circular, los números se colocan en una categoría y no se puede ver los números individuales en el gráfico. Con un tallo y hoja, se llega a ver todos los números originales. Instrucciones
1
renombrar una hoja de cálculo Excel en blanco "Datos " , haga clic en la pestaña inferior de la hoja de cálculo y escriba el nuevo nombre.
2
Rename otra hoja de cálculo de Excel en blanco en el libro " madre " , haga clic en la pestaña inferior para que la hoja de cálculo y escriba el nuevo nombre.
3
Escriba su lista de números en la columna a de la hoja de cálculo "Data" .
4 Pulse
" Alt" y " F11 " al mismo tiempo para abrir el editor de Visual Basic .
5
Doble click "Este libro de trabajo " en objetos de Microsoft Excel en el panel de navegación izquierdo . para abrir una ventana de código en blanco
6
Pega el siguiente código de VBA en la ventana en blanco : StemAndLeaf Sub ( ) DataColumn = 1
'Clean todo de los worksheet.Worksheets madre ( " madre ") . Cells.Clear
' Mira la worksheet.Worksheets datos ( "Datos") . Activar
' Buscar el máximo value.rowPointer = 2do Hasta Cells ( . RowPointer , 1 ) Valor = "" RowPointer = RowPointer + 1LoopMaximum = Cells ( RowPointer - . 1 , DataColumn ) Valor
' Establecer el divisor a quitarse leaves.divisor = 1Do hasta máxima /divisor < ; = 10divisor = divisor * 10Loop
" Si el primer dígito del valor más grande es inferior a 5, then'use un divisor más pequeño. " de lo contrario, podría terminar con cuatro o menos filas de la plot.If Fijar (Máximo /divisor) < 5 Entonces divisor = divisor * 10
' Calcular value.topStem del tronco superior = Fix (Máximo /divisor)
' Configure las worksheet.Worksheets madre ( " madre ") . ActivateCells ( 1 , 1 ) . Valor = Cells " Count " ( 1 , 2 ) . Valor = " Stem Cells " ( 1 , 3 ) . Valor = "Hojas " Para RowPointer = 2 Para topStem + 2Cells ( RowPointer , 2 ) Valor = RowPointer - 2Cells ( RowPointer , 3 ) Valor = . . "
