Como criar e exibir um gráfico em uma célula

Este é um tutorial simples sobre como criar e exibir um gráfico de barras em uma célula; uma técnica que funciona muito bem na criação de relatórios gerenciais.

Passos:

1. Na coluna A, insira os valores que deseja exibir, ou seja, na célula A1 insira o valor 10, na célula A2 20 etc.

2. Na coluna B1, insira a seguinte fórmula: = REPT (“n”, A1). Esta fórmula simplesmente informa ao Excel para repetir o valor armazenado entre ““ pelo número na célula A1.

3. Altere a fonte para “Wingdings”.

4. Consulte o exemplo 1 no arquivo Excel anexado.

5. Se desejar diminuir o comprimento do gráfico de barras, simplesmente divida “A1” na fórmula acima por 10 ou por qualquer número que faça mais sentido. A título de exemplo, a fórmula ficaria assim = REPT (“n”, A1 / 10). Veja o exemplo 2 no arquivo Excel anexado.

Deve-se notar que alterando o “n” na fórmula mencionada acima, você pode exibir imagens diferentes. Por exemplo, “J” maiúsculo exibirá um rosto sorridente, enquanto um “L” maiúsculo exibirá um rosto triste. Veja o exemplo 3 no arquivo Excel anexado.

Lidando com Valores Negativos

As fórmulas acima funcionam bem quando você está lidando com valores positivos. No entanto, se o valor na coluna A for negativo, o gráfico na coluna B mudará para uma string composta de vários símbolos diferentes, perdendo assim o efeito desejado (ver exemplo 4 na planilha anexa).

Uma maneira de superar essa limitação é por meio de uma declaração IF como:

= SE (A21 <0, REPT (“n”, ABS (A21 / 10)), REPT (“n”, A21 / 10))

Explicação da fórmula acima:

1. Suponha que o valor que você está tentando mostrar em um gráfico de barras está localizado na célula A21. Este valor também é negativo.

2. A fórmula começa dizendo se o valor em A21 é menor que 0, ou seja, negativo, então repita “n” pelo valor absoluto (ABS) contido na célula A21 e então divida este número por 10. Usando o valor absoluto você está diga ao Excel para ignorar o sinal negativo e tratar o número como um valor positivo.

3. A próxima parte da fórmula informa ao Excel o que fazer se o valor for maior que 0.

4. Consulte o exemplo 4 no arquivo anexo.

Adições interessantes ao acima seriam usar a formatação condicional para alterar a cor do gráfico para dizer vermelho para valores negativos e azul para valores positivos. Deixe sua imaginação guiá-lo!

O tutorial a seguir descreve como criar um gráfico em uma célula como a exibida na tabela acima na coluna “Tendência”.

O gráfico é criado usando uma função chamada “CellChart”. Você deve inseri-la no Excel como qualquer outra função padrão, por exemplo, SOMA, MÉDIA ou VLOOKUP etc. Esta função é chamada de “Função definida pelo usuário” e não é uma função padrão disponível no Microsoft Excel. Ele deve ser criado pelo usuário usando o VBA.

Quando inserida no Excel, a função CellChart se parece com isto:

Olhando mais de perto a função CellChart, o intervalo do gráfico é definido na primeira parte da função, C3: F3 no exemplo acima. Em seguida, a cor do gráfico é definida, 203 usando o exemplo acima.

Agora, para as coisas do VBA

1. Entre na janela do projeto VBA clicando com o botão direito no nome da folha e selecionando “View Code” ou selecionando “ALT, F11”.

2. No lado direito, clique com o botão direito no nome do seu projeto e selecione a inserção “módulo”.

3. Copie e cole o seguinte código no novo módulo que você acabou de criar:

'Cria uma nova função chamada Cell Chart Function CellChart (Plots As Range, Color As Long) As String' Define as variáveis ​​que serão usadas posteriormente no 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 'O seguinte calcula os gráficos a serem usados ​​para o gráfico Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Se j = 0 Então j = i ElseIf Plots (, j)> Plots (, i) Então j = i End If If k = 0 Então k = i ElseIf Plots (, k) 
 0 Then .Line.ForeColor.RGB = Cor Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Define as variáveis ​​que serão usadas posteriormente no código Dim rng As Range, shp As Shape, blnDelete As Boolean Para Cada shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Se Not rng Is Nothing Then If rng .Address = Range (shp.TopLeftCell, shp.BottomRightCell) .Address Then blnDelete = True End If If blnDelete Then shp.Delete Next End Sub 

4. Clique no botão Salvar.

5. Clique no pequeno ícone do Excel no canto superior direito do menu “Arquivo” para sair da janela do projeto VBA e retornar ao Excel

6. Insira a função CellChart em qualquer célula, conforme exibido acima.

7. Consulte a pasta de trabalho em anexo para obter um exemplo prático do acima.

Para obter mais informações sobre este tipo de gráfico de células, visite:

In Cell Charting