VBA Intersect

Excel VBA Intersect

O VBA Intersect  é usado para obter um objeto de intervalo que é uma interseção de dois ou mais intervalos. O mínimo de dois intervalos deve ser fornecido para encontrar o ponto de interseção do intervalo. Todos os outros argumentos são opcionais com base no requisito.

Abaixo está a sintaxe da fórmula VBA INTERSECT.

  • Arg1 como intervalo: primeiro intervalo de interseção.
  • Arg2 como intervalo: segundo intervalo de interseção.

Nos exemplos abaixo, veremos algumas das técnicas úteis.

Exemplos

Você pode baixar este modelo VBA Intersect Excel aqui - Modelo VBA Intersect Excel

Exemplo 1

Por exemplo, use os dados abaixo.

Etapa 1: declare a variável como variante.

Código:

 Sub Intersect_Example () Dim MyValue As Variant End Sub 

Passo 2: Para esta variável atribua o valor por meio da fórmula Intersect.

Código:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub 

Etapa 3: selecione o primeiro intervalo de B2 a B9.

Código:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), End Sub 

Etapa 4: selecione o segundo intervalo de A5 a D5.

Código:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub 

Etapa 5: estamos testando apenas com dois intervalos aqui. Feche a fórmula e selecione o método como um endereço de célula VBA.

Código:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Endereço End Sub 

Etapa 6: Mostrar o valor na caixa de mensagem em VBA.

Código:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Endereço MsgBox MyValue End Sub 

Ok, terminamos e vemos o que teremos na caixa de mensagem.

Obtivemos o resultado como B5, ou seja, o endereço da célula do ponto de interseção do intervalo fornecido.

Assim, usando o método VBA INTERSECT, podemos fazer muito mais coisas.

Exemplo # 2

Selecione a célula de interseção

Para selecionar a célula de interseção do intervalo fornecido, use o código abaixo.

Código:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Selecione End Sub 

Isso selecionará a célula de interseção do intervalo fornecido.

Exemplo # 3

Limpar o conteúdo da célula de interseção: Para limpar o conteúdo da célula de interseção do intervalo fornecido, use o código abaixo.

Código:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents End Sub 

Exemplo # 4

Altere a cor do plano de fundo da célula e a cor da fonte da célula de interseção: Para alterar a cor de plano de fundo da célula de interseção e a cor da fonte do valor da célula de interseção usando o código abaixo.

Código:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Cells.Interior.Color = rgbBlue Intersect (Range ("B2: B9"), Range ("A5: D5" )). Cells.Font.Color = rgbAliceBlue End Sub 

Alterar o valor da célula de interseção: Usando a função Intersect, também podemos alterar o valor dessa célula para outra coisa.

Nos dados acima, o valor de interseção do intervalo “B2: B9” e “A5: D5” é a célula B5, ou seja, marcada com a cor azul. Agora, ao fornecer esse intervalo para a função de interseção, podemos realmente alterar o valor para outra coisa.

O código abaixo mudará o valor de 29398 para “Novo valor”.

Código:

 Sub Intersect_Example3 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Value = "New Value" End Sub 

Execute o código acima e obteremos a palavra “Novo valor” no lugar de 29398.

Assim, usando a função Intersect, podemos brincar com o valor da posição intermediária do intervalo fornecido.

Coisas para lembrar

  • In excel to get the intersect value of the range, we need to give space character in between two ranges.
  • By using VBA coding we can highlight, format, delete or change, and do many other things to the intersection value.
  • If the multiple rows and columns supplied to the intersect function then we will get the middle two values.