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

Ejemplo 04. Uso de nombres de rango

El siguiente ejemplo permite dar nombre a celdas individuales, ingresar una cantidad y luego almacenar en otra, una fórmula de cálculo. Define a C2 como "Tasa"; a D2 como "Capital" y a E2 como "Monto".

Sub Ej04()

' Activa la hoja 1

'

Sheets(1).Activate

'

' Ingresa constants en algunas celdas

'

Range("C2").Name = "Tasa"

Range("Tasa") = 0.19

Range("D2").Name = "Capital"

Range("E2").Name = "Monto"

'

' Pide ingresar un dato por teclado hacia una celda que tiene nombre de rango

'

Range("Capital") = InputBox("Ingrese el capital")

'

' Multiplica dos celdas por sus nombre de rango

'

Range("Monto") = "=Tasa*Capital"

End Sub

 Cursos Informática Gratuitos