Cómo hacer un tallo y de la hoja Parcela en Excel 2007

Un diagrama de tallo y hoja (también llamado un diagrama de tallos) es un tipo de diagrama usado para mostrar datos estadísticos. Es una manera de retener los puntos de datos individuales en un diagrama que a menudo desaparecen con otros métodos gráficos tales como gráficos circulares e histogramas. Por ejemplo, si se trazan 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 hojas, se llega a ver todos los números originales.

Instrucciones

1 Cambiar el nombre de un espacio en blanco hoja de cálculo de Excel "Datos" haciendo clic en la pestaña inferior de la hoja de trabajo y escribiendo el nuevo nombre.

2 Cambiar el nombre de otra hoja de cálculo de Excel en blanco en el libro "Tronco" haciendo clic en la pestaña inferior para que la hoja de trabajo y escribiendo el nuevo nombre.

3 Introduzca su lista de números en la columna A de la hoja de cálculo "Data".

4 Pulse la tecla "Alt" y "F11" al mismo tiempo para abrir el Editor de Visual Basic.

5 Doble clic "Este libro de trabajo" en Objetos de Microsoft Excel en el panel de navegación de la izquierda para abrir una ventana de código en blanco.

6 Pegue el siguiente código VBA en la ventana en blanco:
Sub StemAndLeaf ()
DataColumn = 1

'Limpiar todo fuera de la hoja del tallo.
Hojas de trabajo ( "raíz"). Cells.Clear

'Mira la hoja de datos.
Hojas de trabajo ( "Datos"). Activar

"Encontrar el valor máximo.
RowPointer = 2
Hacer hasta Cells (RowPointer, 1) .Value = ""
RowPointer = 1 + RowPointer
Lazo
Máximo = Cells (RowPointer - 1, DataColumn) .Value

'Establecer el divisor a quitarse las hojas.
divisor = 1
Hacer hasta Máximo / divisor <= 10
divisor = divisor * 10
Lazo

"Si el primer dígito del valor más grande es inferior a 5, a continuación,
'Utilizar un divisor más pequeño.
"De lo contrario, podría terminar con cuatro o menos filas de la trama.
Si Fix (Máximo / divisor) <5 Entonces divisor divisor = 10 *

'Calcular el valor de la parte superior del tallo.
topStem = Fix (Máximo / divisor)

'Configure una hoja de tallo.
Hojas de trabajo ( "raíz"). Activar
Las células (1, 1) .Value = "Count"
Las células (1, 2) .Value = "Tronco"
Células (1, 3) .Value = "hojas"
Para RowPointer = 2 + 2 Para topStem
Las células (RowPointer, 2) .Value = RowPointer - 2
Las células (RowPointer, 3) .Value = "|"
Siguiente RowPointer

'Calcular los recuentos.
'El siguiente código es más lento de lo que debe ser,
'Sino un código más rápido sería más difícil de leer y entender.
Hojas de trabajo ( "Datos"). Activar
RowPointer = 2
Hacer hasta Cells (RowPointer, DataColumn) .Value = ""
Las células de medición = (RowPointer, DataColumn) .Value
Tallo = Fix (medición / divisor)
Hojas de trabajo ( "raíz"). Las células (Stem + 2, 1) .Value = Hojas de trabajo ( "raíz"). Las células (tallo + 2, 1) .Value + 1
RowPointer = 1 + RowPointer
Lazo

"Se calcula el factor de contracción.
Hojas de trabajo ( "raíz"). Activar
maximumCount = 0
Para RowPointer = 2 + 2 Para topStem
Si las células (RowPointer, 1) .Value> Luego maximumCount

maximumCount = Cells(rowPointer, 1).Value

Terminara si
Siguiente RowPointer

shrinkFactor = Fix (maximumCount / 50)
Si shrinkFactor <1 Entonces shrinkFactor = 1
Las células (1, 4) .Value = "Cada dígito representa" + Str (shrinkFactor) + "casos".

"Retorno a los datos, y rellenar las hojas a la luz de los valores de los datos.
Hojas de trabajo ( "Datos"). Activar
RowPointer = 2
Hacer hasta Cells (RowPointer, DataColumn) .Value = ""
Las células de medición = (RowPointer, DataColumn) .Value
Tallo = Fix (medición / divisor)
hoja de medición = - Stem

divisor
hoja = Fix (hoja de 10 / divisor)

Hojas de trabajo ( "raíz"). Las células (Stem + 2, 3) .Value = Hojas de trabajo ( "raíz"). Las células (tallo + 2, 3) .Value + Trim (Str (hoja))
RowPointer = RowPointer + shrinkFactor
Lazo

"Llegar a la hoja de trabajo de vástago.
Hojas de trabajo ( "raíz"). Activar
End Sub

7 Pulse la tecla "F5" para ejecutar el código. Su diagrama de tallo y hoja aparecerán en la hoja de "tallo".

Consejos y advertencias

• Si cambia sus datos y la necesidad de generar un nuevo diagrama de tallo y hoja, sólo tiene que ejecutar la macro StemAndLeaf nuevo.