Visual Basic para Aplicaciones - cadena de texto, devolver un resultado

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 6
Ha aumentado su posición en 8 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

cadena de texto, devolver un resultado

Publicado por luisa (3 intervenciones) el 11/10/2017 17:51:54
Hola
En el campo 1 de un formulario suelo escribir textos como por ejemplo:
"perro verde" o "perro azul" o "perro amarillo"

Quisiera escribir un código que detectara en la cadena de texto la palaba perro; y si fuera sí, devolviera otra frase, en el campo 2; como por ejemplo: "efectivamente hay un perro"

Es decir: escribo en el campo 1: el perro verde de juan

y quiero que si existe la palabra perro en la frase anterior
en el campo 2, aparaceciera la frase: efectivamente hay un perro

Alguien puede decirme que código debo usar con el if..then??

Muchas 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

cadena de texto, devolver un resultado

Publicado por JuanC (565 intervenciones) el 11/10/2017 18:19:38
1
2
3
4
5
Dim s$
s = "perro verde"
If VBA.InStr(1, s, "perro") > 0 Then
   MsgBox "hay perro"
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 6
Ha aumentado su posición en 8 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

cadena de texto, devolver un resultado

Publicado por luisa (3 intervenciones) el 11/10/2017 18:25:38
Hola
Mil gracias
La "s" sería el campo1?
y el mgbox, el campo2??
Un saludo!
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

cadena de texto, devolver un resultado

Publicado por JuanC (565 intervenciones) el 11/10/2017 18:36:03
digamos que sí (supongo que con el ejemplo es suficiente...)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 6
Ha aumentado su posición en 8 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

cadena de texto, devolver un resultado

Publicado por luisa (3 intervenciones) el 12/10/2017 09:40:51
Gracias!!!!!!!!
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