✅ Cómo crear y mostrar un gráfico en una celda

Tabla de contenido

Este es un tutorial sencillo sobre cómo crear y mostrar un gráfico de barras en una celda; una técnica que funciona muy bien a la hora de crear informes de gestión.

Pasos:

1. En la columna A ingrese los valores que desea mostrar, es decir, en la celda A1 ingrese el valor 10, en la celda A2 20, etc.

2. En la columna B1 ingrese la siguiente fórmula: = REPT (“n”, A1). Esta fórmula simplemente le dice a Excel que repita el valor almacenado entre "" por el número en la celda A1.

3. Cambie la fuente a "Wingdings".

4. Consulte el ejemplo 1 en el archivo de Excel adjunto.

5. Si desea reducir la longitud del gráfico de barras, simplemente divida “A1” en la fórmula anterior por 10 o por el número que tenga más sentido. A modo de ejemplo, la fórmula se vería así = REPT (“n”, A1 / 10). Vea el ejemplo 2 en el archivo de Excel adjunto.

Cabe señalar que al cambiar la “n” en la fórmula mencionada anteriormente, puede mostrar diferentes imágenes. Por ejemplo, la "J" mayúscula mostrará una cara sonriente, mientras que la "L" mayúscula mostrará una cara triste. Vea el ejemplo 3 en el archivo de Excel adjunto.

Lidiar con los valores negativos

Las fórmulas anteriores funcionan bien cuando se trata de valores positivos. Sin embargo, si el valor de la columna A es negativo, el gráfico de la columna B cambiará a una cadena formada por varios símbolos diferentes, perdiendo así el efecto deseado (consulte el ejemplo 4 en la hoja de cálculo adjunta).

Una forma de superar esta limitación es mediante una declaración IF como:

= SI (A21 <0, REPT ("n", ABS (A21 / 10)), REPT ("n", A21 / 10))

Explicación de la fórmula anterior:

1. Suponga que el valor que intenta mostrar en un gráfico de barras se encuentra en la celda A21. Este valor también es negativo.

2. La fórmula comienza diciendo si el valor en A21 es menor que 0, es decir, negativo, luego repita "n" por el valor absoluto (ABS) contenido en la celda A21 y luego divida este número por 10. Usando el valor absoluto, está dígale a Excel que ignore el signo negativo y trate el número como un valor positivo.

3. La siguiente parte de la fórmula le dice a Excel qué hacer si el valor es mayor que 0.

4. Consulte el ejemplo 4 en el archivo adjunto.

Las adiciones interesantes a lo anterior serían usar formato condicional para cambiar el color del gráfico para que diga rojo para valores negativos y azul para valores positivos. ¡Deja que tu imaginación te guíe!

El siguiente tutorial describirá cómo crear un gráfico en una celda como la que se muestra en la tabla anterior debajo de la columna "Tendencia".

El gráfico se crea utilizando una función llamada "CellChart". La ingresaría en Excel como cualquier otra función estándar, es decir, SUMA, PROMEDIO o BUSCARV, etc. Esta función se denomina "Función definida por el usuario" y no es una función estándar disponible en Microsoft Excel. Debe ser creado por el usuario usando VBA.

Cuando se ingresa en Excel, la función CellChart se ve así:

Al observar más de cerca la función CellChart, el rango del gráfico se define en la primera parte de la función, C3: F3 en el ejemplo anterior. A continuación, se define el color del gráfico, 203 utilizando el ejemplo anterior.

Ahora para las cosas de VBA

1. Ingrese a la ventana del proyecto VBA haciendo clic derecho en el nombre de una hoja y seleccionando "Ver código" o seleccionando "ALT, F11".

2. En el lado derecho, haga clic con el botón derecho en el nombre de su proyecto y seleccione el "módulo" insertado.

3. Copie y pegue el siguiente código en el nuevo módulo que acaba de crear:

'Crea una nueva función llamada Cell Chart Function CellChart (Plots As Range, Color As Long) As String' Define las variables que se usarán más adelante en el código Const cMargin = 2 Dim rng As Range, arr () As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape 'A continuación, se calculan las gráficas que se utilizarán para el gráfico Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Si j = 0 Entonces j = i ElseIf Plots (, j)> Plots (, i) Entonces j = i End If If k = 0 Then k = i ElseIf Plots (, k) 
 0 Then .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Define las variables que se usarán más adelante en el código Dim rng As Range, shp As Shape, blnDelete As Boolean For Each shp En rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Si no rng es nada, entonces si rng .Address = Range (shp.TopLeftCell, shp.BottomRightCell) .Address Then blnDelete = True End If If blnDelete Then shp.Delete Next End Sub

4. Haga clic en el botón guardar.

5. Haga clic en el pequeño icono de Excel en la parte superior derecha debajo del menú "Archivo" para salir de la ventana del proyecto VBA y volver a Excel.