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

Ejemplo 08. Ingresar pareja de datos, separados por ",",  hacia dos columnas.

Sub Ej08()

Dim StDato As String

' Usaremos la columna A y B a partir de la fila 2

'

Row = 2

Col = 1

Range("A1") = "X"

Range("B1") = "Y"

'        

' La siguiente sentencia permite centrar el dato contenido en el rango

'

Range("A1:B1").HorizontalAlignment = xlCenter

'

' Ingreso de datos

'

nDat = InputBox("Número de datos")

For I = 1 To nDat

    Dato = InputBox("Dato: " & I)

    Cells(I + 1, 1) = Val(Mid(Dato, 1, InStr(Dato, ",") - 1))

    Cells(I + 1, 2) = Val(Mid(Dato, InStr(Dato, ",") + 1, Len(Dato) - InStr(Dato, ",")))

Next

End Sub

 Cursos Informática Gratuitos