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

Cambiar el nombre de una hoja de Excel en blanco “datos” haciendo clic en la pestaña inferior de la hoja de trabajo y escribiendo el nuevo nombre.

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

Introduzca su lista de números en la columna A de la hoja de “Datos”.

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

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.

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
No hasta que las células (RowPointer, 1) .Value = ""
RowPointer = RowPointer + 1

Video: 06.- Todas las revisiones con programación en Excel

`Establecer el divisor de 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.

Video: Part 2 - Jane Eyre Audiobook by Charlotte Bronte (Chs 07-11)

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

`Configuración de la hoja del tallo.
Hojas de trabajo ( "raíz"). Activar
Las células (1, 1) .Value = "Count"
Las células (1, 2) .Value = "tallo"
Células (1, 3) .Value = "hojas"
Para RowPointer = 2 Para topStem + 2
Las células (RowPointer, 2) .Value = RowPointer - 2
Las células (RowPointer, 3) .Value = "|"
Siguiente RowPointer

`Calcular los conteos.
`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 que las células (RowPointer, DataColumn) .Value = ""
de medición = células (RowPointer, DataColumn) .Value
Stem = Fix (medición / divisor)
Hojas de trabajo ( "tallo"). Las células (Stem + 2, 1) .Value = Hojas de trabajo ( "tallo"). Las células (STEM + 2, 1) .Value + 1

Video: Hexágono conociendo la medida del lado (Polígonos)

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

maximumCount = células (RowPointer, 1) .Value

Terminara si
Siguiente RowPointer

shrinkFactor = Fix (maximumCount / 50)
Si shrinkFactor < 1 Then 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 que las células (RowPointer, DataColumn) .Value = ""
de medición = células (RowPointer, DataColumn) .Value
Stem = Fix (medición / divisor)
hoja = medición - Stem divisor
hoja = Fix (hoja 10 / divisor)

Hojas de trabajo ( "tallo"). Las células (Stem + 2, 3) .Value = Hojas de trabajo ( "tallo"). Las células (STEM + 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

Pulse la tecla “F5” para ejecutar el código. Su diagrama de tallo y hoja aparecerán en la hoja de trabajo “madre”.