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.
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
