Método Application.Intersect (Excel)

  • Artigo

Retorna um objeto Range que representa a interseção retangular de dois ou mais intervalos. Se um ou mais intervalos de uma planilha diferente forem especificados, um erro será retornado.

Sintaxe

expressão. 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, Arg26, Arg27 , Arg28, Arg29, Arg30)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Arg1 Obrigatório Range Os intervalos de interseção. Pelo menos dois objetos Intervalo devem ser especificados.
Arg2 Obrigatório Range Os intervalos de interseção. Pelo menos dois objetos Intervalo devem ser especificados.
Arg3-Arg30 Opcional Variantes Um intervalo da interseção.

Valor de retorno

Intervalo

Exemplo

O exemplo a seguir seleciona a interseção de dois intervalos nomeados rg1 e rg2 na Planilha1. Se os intervalos não formam uma interseção, exemplo exibe uma mensagem.

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

O exemplo a seguir compara a propriedade Worksheet.Range , o método Application.Union e o 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.

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.