Ignorar un espacio y detectar una cadena de caracteres " "
Publicado por Monica (1 intervención) el 23/03/2019 20:35:48
Condiciones:
Si el usuario al capturar sus datos inicia con un espacio, el resultado sólo muestre el mensaje con el nombre de pila. Si se introduce una cadena con caracteres ‘’ ‘’ sea detectado y regrese a la ventana de captura original.
Si el usuario al capturar sus datos inicia con un espacio, el resultado sólo muestre el mensaje con el nombre de pila. Si se introduce una cadena con caracteres ‘’ ‘’ sea detectado y regrese a la ventana de captura original.
1
2
3
4
5
6
7
8
9
10
Sub hola3()
Do Until nombreusuario <> ""
nombreusuario = InputBox("Escribe tu nombre completo: ", "Identificación")
Loop
primerespacio = InStr(nombreusuario, " ")
nombreusuario = Left(nombreusuario, primerespacio - 1)
MsgBox "Hola " & nombreusuario
End Sub
Valora esta pregunta
0
