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

Ejemplo 07. Almacenar n datos en un rango de celdas ingresados por teclado

Sub Ej07()

'

N = InputBox("Nro. de datos")

CeldaIn = InputBox("A partir de qué celda (Ej: B2, M12)?")

'

' Primero convertimos la fila y columna en variables

'

' La función Ucase convierte a mayúscula el carácter

' La función ASC devuelve el valor ASCII del carácter

' La función VAL convierte a valor la cadena que contiene números

'

Select Case Len(CeldaIn)

    Case 2: Y = Val(Asc(UCase(Left(CeldaIn, 1))) - 64)

            X = Val(Right(CeldaIn, 1))

    Case 3: Y = Val(Asc(UCase(Left(CeldaIn, 1))) - 64)

            X = Val(Right(CeldaIn, 2))

End Select

'

' Ahora ingresamos los datos usando Cells(x,y)

'

For I = 1 To N

    Cells(X + I - 1, Y) = InputBox("Ingrese el dato: " & I)

Next

End Sub

 Cursos Informática Gratuitos