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