Propiedad Application.Range (Excel)

Devuelve un objeto Range que representa una celda o un rango de celdas.

Sintaxis

expresión. Rango (Cell1, Cell2)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Cell1	Obligatorio	Variant	El nombre del intervalo. Debe ser una referencia de estilo A1 en el lenguaje de la macro. Puede incluir el operador de rangos (un punto y coma), el operador de intersección (un espacio) o el operador de unión (una coma). También puede incluir signos de dólar, pero se omiten. Use un nombre definido localmente en cualquier parte del intervalo. Si se usa un nombre, se da por supuesto que está en el lenguaje de la macro.
Cell2	Opcional	Variant	La celda del vértice superior izquierdo e inferior derecho del rango. Puede ser un objeto a Range que contenga una sola celda, una columna completa o una fila completa, o bien ser una cadena que asigna nombre a una sola celda en el lenguaje de la macro.

Comentarios

Cuando se usa sin un calificador de objeto, esta propiedad es un acceso directo para ActiveSheet.Range (devuelve un rango de la hoja activa; si la hoja activa no es una hoja de cálculo, se produce un error en la propiedad ).

Cuando se aplica a un objeto Range, la propiedad está relacionada con el objeto Range. Por ejemplo, si la selección es la celda C3, Selection.Range("B1") devuelve la celda D3 porque es relativa al objeto Range devuelto por la propiedad Selection. En cambio, el código ActiveSheet.Range("B1") siempre devuelve la celda B1.

Ejemplo

En este ejemplo se establece el valor de la celda A1 de Sheet1 como 3.14159.

Worksheets("Sheet1").Range("A1").Value = 3.14159

Este ejemplo crea una fórmula en la celda A1 de Sheet1.

Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

Este ejemplo realiza un bucle en las celdas A1:D10 de Sheet1. Si una de las celdas presenta un valor inferior a 0,001, el código reemplaza dicho valor por un 0 (cero).

For Each c in Worksheets("Sheet1").Range("A1:D10") 
 If c.Value < .001 Then 
 c.Value = 0 
 End If 
Next c

En este ejemplo se recorre en bucle el rango denominado TestRange y se muestra el número de celdas vacías en el rango.

numBlanks = 0 
For Each c In Range("TestRange") 
 If c.Value = "" Then 
 numBlanks = numBlanks + 1 
 End If 
Next c 
MsgBox "There are " & numBlanks & " empty cells in this range"

Este ejemplo configura el estilo de fuente en las celdas A1:C5 de Sheet1 en cursiva. El ejemplo usa Syntax 2 de la propiedad Range.

Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _ 
 Font.Italic = True 

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.