Realizar árbol de decisión con msgbox
Hola que tal, quisiera hacer un árbol de decisiones con msgboz (Yes/No)
Por ejemplo:
Un msgbox que pregunte tiene automovil?
SI / NO
Si la respuesta es si entonces : abrir otro msgbox que diga ¿El carro es Nuevo?
Si la respuesta es NO entonces abrir otro msgbox que diga ¿Planea adquirir uno próximamente?
Espero puedan auxiliarme.
Gracias.
Por ejemplo:
Un msgbox que pregunte tiene automovil?
SI / NO
Si la respuesta es si entonces : abrir otro msgbox que diga ¿El carro es Nuevo?
Si la respuesta es NO entonces abrir otro msgbox que diga ¿Planea adquirir uno próximamente?
Espero puedan auxiliarme.
Gracias.
1 Respuesta
Respuesta de Luis_P
1
Acá esta:
Sub preguntas()
Dim respuesta As Integer
respuesta = MsgBox(" tiene automovil ?", vbQuestion + vbYesNo)
If respuesta = 6 Then
respuesta = MsgBox(" ¿El carro es Nuevo?", vbQuestion + vbYesNo)
Else
respuesta = MsgBox(" ¿Planea adquirir uno próximamente?", vbQuestion + vbYesNo)
End If
End Sub
Favor cerrar pregunta
Sub preguntas()
Dim respuesta As Integer
respuesta = MsgBox(" tiene automovil ?", vbQuestion + vbYesNo)
If respuesta = 6 Then
respuesta = MsgBox(" ¿El carro es Nuevo?", vbQuestion + vbYesNo)
Else
respuesta = MsgBox(" ¿Planea adquirir uno próximamente?", vbQuestion + vbYesNo)
End If
End Sub
Favor cerrar pregunta
