Range (propiedad)

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

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

Sintaxis

expresión .Range(Cell1, Cell2)

expresión Variable que representa un objeto WorkSheet.

Parámetros

Name	Necesario/Opcional	Tipo de datos	description
Cell1	Obligatorio	Variante	Nombre del rango. Debe ser una referencia de estilo A1 en el lenguaje de la macro. Puede incluir un operador de rango (dos puntos), de intersección (espacio) o de unión (coma). Admite signos de dólar, pero no se tendrán en cuenta. Se puede usar un nombre local definido en cualquier parte del rango. Si se usa un nombre, se supone que está en el lenguaje de la macro.
Cell2	Opcional	Variante	Celda de las esquinas superior izquierda e inferior derecha del rango. Puede ser un objeto Range que contiene una sola celda, una columna completa o una fila completa; o bien una cadena que hace referencia a una sola celda en el lenguaje de la macro.

Notas

Si no hace referencia a ningún objeto, esta propiedad es una abreviatura de ActiveSheet.Range (devuelve un rango de la hoja activa; si la hoja activa no es una hoja de cálculo, la propiedad no funciona).

Cuando se aplica a un objeto Range, los valores de la propiedad son relativos al objeto Range. Por ejemplo, si la celda C3 está seleccionada, Selection.Range("B1") devuelve la celda D3 porque es el valor relativo al objeto Range devuelto por la propiedad Selection. Por otro lado, 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

Ejemplo

En este ejemplo se crea una fórmula en la celda A1 de Sheet1.

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

Ejemplo

En este ejemplo se ejecuta un bucle sobre las celdas A1:D10 de Sheet1. Si una de las celdas tiene un valor menor que 0.001, el código sustituye el valor por 0 (cero).

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

Ejemplo

En este ejemplo se ejecuta un bucle en el rango denominado "TestRange" y se muestra el número de celdas vacías del 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"

Ejemplo

En este ejemplo se establece en cursiva el estilo de fuente de las celdas A1:C5 de Sheet1. El ejemplo usa la sintaxis 2 de la propiedad Range.

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

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.