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

Ejemplo 01

Asignar un texto a la celda B3

Sub Ej01()

'   Primera forma

Workbooks("Libro1").Worksheets(2).Range("B1") = "Hola Mundo B1 !!!"

'   Segunda forma

Worksheets(2).Range("B2") = "Hola Mundo B2 !!!"

'   Tercera forma

Worksheets(2).Activate

Range("B3") = "Hola Mundo B3 !!!"

'   Cuarta forma

Worksheets(2).Select

Range("B4").Select

Range("B4").Value = "Hola Mundo B4 !!!"

'   Quinta forma

Worksheets(2).Select

Range("B5").Formula = "Hola Mundo B5 !!!"

'   Sexta forma

Worksheets(2).Select

Range("B6").FormulaR1C1 = "Hola Mundo B6 !!!"

End Sub

Ejemplo 02

Ingresar datos desde el teclado hacia una celda

Sub Ej02

' Primera forma

XDat1 = InputBox("Ingresa un número")

Range("B1") = XDat1

' Segunda forma

Range("B1") = InputBox("Ingresa un número")

' Tercera forma

Cells(3, 2) = InputBox("Ingresa un número")

' Cuarta forma                   Indicar en qué celda se guardará

Celda = InputBox("En que celda deseas almacenar el dato?")

XDat1 = InputBox("Ingresa el dato")

Range(Celda) = XDat1

'  Quinta forma

Celda = InputBox("Ingresa la celda donde se guardará")

Range(Celda) = InputBox("Ingresa el dato a ser guardado")

End Sub

 Cursos Informática Gratuitos