Método Application.Intersect (Excel)

  • Artículo

Devuelve un objeto Range que representa la intersección rectangular de dos o más intervalos. Si se especifican uno o varios rangos de una hoja de cálculo diferente, se devuelve un error.

Sintaxis

expresión. Intersect (Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27 , Arg28, Arg29, Arg30)

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
Arg1 Obligatorio Range Rangos de intersección. Se deben especificar al menos dos objetos Range.
Arg2 Obligatorio Range Rangos de intersección. Se deben especificar al menos dos objetos Range.
Arg3–Arg30 Opcional Variant Intervalo de intersección.

Valor devuelto

Rango

Ejemplo:

En el ejemplo siguiente se selecciona la intersección de dos rangos con nombre, rg1 y rg2, en Sheet1. Si los rangos no se intersectan, se muestra un mensaje.

Worksheets("Sheet1").Activate 
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) 
If isect Is Nothing Then 
 MsgBox "Ranges don't intersect" 
Else 
 isect.Select 
End If

En el ejemplo siguiente se comparan la propiedad Worksheet.Range , el método Application.Union y el método Intersect .

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
Range("A1, A10").Select                           'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
Range("A1:A5 A5:A10").Select                      'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

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.