Compartir a través de

Cómo: Hacer referencia a varios rangos

  • Artículo

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í.

Usando el método apropiado, puede hacer referencia fácilmente a varios rangos. Use los métodos Range y Union para hacer referencia a cualquier grupo de rangos. Use la propiedad Areas para hacer referencia al grupo de rangos seleccionado en una hoja de cálculo.

Usar la propiedad Range

Puede hacer referencia a varios rangos con la propiedad Range, pero insertando comas entre dos o más referencias. El siguiente ejemplo borra el contenido de los tres rangos de la hoja Sheet1.

Sub ClearRanges()
    Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _
        ClearContents
End Sub

Los rangos con nombre facilita el uso de la propiedad Range con varios rangos. El siguiente ejemplo funciona cuando los tres rangos con nombre están en la misma hoja.

Sub ClearNamed()
    Range("MyRange, YourRange, HisRange").ClearContents
End Sub

Usar el método Union

Puede combinar varios rangos en un objeto Range utilizando el método Union. El siguiente ejemplo crea un objeto Range denominado myMultipleRange, los define como A1:B2 y C3:D4 y, a continuación, asigna el formato de negrita a los rangos combinados.

Sub MultipleRange()
    Dim r1, r2, myMultipleRange As Range
    Set r1 = Sheets("Sheet1").Range("A1:B2")
    Set r2 = Sheets("Sheet1").Range("C3:D4")
    Set myMultipleRange = Union(r1, r2)
    myMultipleRange.Font.Bold = True
End Sub

Usar la propiedad Areas

Puede utilizar la propiedad Areas para hacer referencia al rango o conjunto de rangos seleccionados en una selección de varias áreas. El siguiente procedimiento cuenta las áreas de la selección. Si existe más de un área, se muestra un mensaje de advertencia.

Sub FindMultiple()
    If Selection.Areas.Count > 1 Then
        MsgBox "Cannot do this to a multiple selection."
    End If
End Sub

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.