Pregunta al azar

25/06/2004 - 17:56 por Camilo Villa | Informe spam
Existe en excel alguna forma de cambiar el color a una serie de un grafico
segun el resultado medido comparado con el deseado... esto con el fin de
aplicarlos a indicadores de Gestion; es decir "X" empresa tiene como meta
que el número de no conformidades por producto no conforme, no supere 4% del
total de no conformidades reportadas durante un periodo "Y".. de modo tal
que si el porcentaje medido es igual o supera la meta, esta serie aparezca
en rojo; si por el contrario es menor que la meta pero mayor que 2% aparezca
anaranjado; y de lo contrario aparesca en verde.


Alguno de ustedes sabria como hacerlo,


Gracias, de antemano por la ayuda.



Cordialmente.

CAMILO VILLA
Analista y Programador - Microsoft 3 DCE
 

Leer las respuestas

#1 Individuo Desconocido
25/06/2004 - 18:54 | Informe spam
"Camilo Villa" escribió...
Existe en excel alguna forma de cambiar el color a una serie de un grafico
segun el resultado medido comparado con el deseado... esto con el fin de
aplicarlos a indicadores de Gestion; es decir "X" empresa tiene como meta
que el número de no conformidades por producto no conforme, no supere 4%


del
total de no conformidades reportadas durante un periodo "Y".. de modo tal
que si el porcentaje medido es igual o supera la meta, esta serie aparezca
en rojo; si por el contrario es menor que la meta pero mayor que 2%


aparezca
anaranjado; y de lo contrario aparesca en verde.


Alguno de ustedes sabria como hacerlo,





Se puede hacer mediante una macro, suponiendo que
el porcentaje aparezca en la celda A1
y aplicando la macro en el evento Change de la hoja.
esto quiere decir que cada vez que cambie el porcentaje
se aplicará la función para ver si hay que cambiar el color
o no.


Private Sub Worksheet_Change(ByVal Target As Range)

porcentaje = Range("A1").Value

If porcentaje > 4 Then
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Interior.ColorIndex = 3
ElseIf porcentaje >= 2 And porcentaje <= 4 Then
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Interior.ColorIndex = 45
ElseIf porcentaje < 2 Then
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Interior.ColorIndex = 43
End If
Range("a1").Select
End Sub

Preguntas similares