Unidad 5. Programación usando objetos del Excel (XVI)

Ejemplo 06. Ingresar apellidos y nombres y luego separarlos

El siguiente ejemplo permite ingresar los apellidos y nombres de una persona y luego los separa, almacenándolos en celdas del Excel.

Sub Eje06

Sub Apellidos_Y_Nombres()

'

' Se ingresa los datos hacia una variable de cadena

'

Texto = InputBox("Ingresa tus apellidos y nombres (Ap Am, Nombres)")

'

' Se ingresa constantes de cadena en la primera columna

'

Range("A1") = Texto

Range("A3") = "Ap. Paterno"

Range("A4") = "Ap. Materno"

Range("A5") = "Nombres"

'

' Se extrae cada uno de los apellidos y nombres a partir del dato ingresado

'

Range("B3") = Left(Texto, InStr(Texto, " "))

Range("B4") = Mid(Texto, InStr(Texto, " "), Len(Texto) - InStr(Texto, ",") - 6)

Range("B5") = Right(Texto, Len(Texto) - InStr(Texto, ","))

End Sub

 Cursos Informática Gratuitos