Visual Basic - Semaforo

Life is soft - evento anual de software empresarial
 
Vista:

Semaforo

Publicado por Helmut (1 intervención) el 16/04/2017 00:45:13
Hola a todos
Estoy creando un semáforo con macros en excel, pudiesen ayudarme con lo siguiente, he seguido la siguiente formula encontrada en internet pero no me ha funcionado

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_change()
ActiveSheet.Shapes.Range(Array("verde", "rojo", "amarillo")).Visible = False
Select Case ComboBox1.Value
        Case "rojo"
        ActiveSheet.Shapes("verde").Visible = True
    Case "Verde"
        ActiveSheet.Shapes("rojo").Visible = True
    Case Else
        ActiveSheet.Shapes("amarillO").Visible = True
    End Selec
End Sub

Solo me aparece el color amarillo al seleccionar amarillo del combobox y no los otros colores.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Semaforo

Publicado por Christian Matias (713 intervenciones) el 29/04/2017 01:33:50
Tene en cuenta que cuando selecciones el rojo vas a tener que poner en false el amarillo y verde, luego con el amarillo en false el rojo y verde y con el verde,el rojo y el amarillo. Se entiende?

ActiveSheet.Shapes.Range(Array("verde", "rojo", "amarillo")).Visible = False

Esta parte ponela cuando se abre el libro excel.

saludos.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar