Intersecção

Exercício Básico

Enunciado

Determine a área resultante da intersecção dos intervalos a seguir e preencha-a com a cor de fundo verde.

	Início	Offset	Resize
Intervalo "V"	"B3"	(4,1)	(11,5)
Intervalo "B"	"H3"	(-6,-3)	(8,4)
Intervalo "A"	"A21"	(-9,5)	(9,4)

Conceitos Sugeridos:

Dim - Declara variáveis.
Set - Associa uma referência de objeto a uma variável ou propriedade.
Names - Para nomeação de intervalos e simplificação do exercício.
Resize - Redimensiona o intervalo especificado.

Intersect - Função que retorna a interseção de intervalos.

Intersect(Range("A1:A2"), Range("A2:B2")).Value = 0
'Associa apenas ao resultado da interseção ("A2") o número 0

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Note que a propriedade Resize aceita apenas argumentos positivos.

Exercício Resolvido

Resolvendo o problema

Nomeie as áreas definidas no exercício

Names.Add Name:="V", RefersTo:=Range("B3").Offset(4, 1).Resize(11, 5)
Names.Add Name:="B", RefersTo:=Range("H3").Offset(3, -6).Resize(8, 4)
Names.Add Name:="A", RefersTo:=Range("A21").Offset(-8, 4).Resize(9, 4)

Declare e associe a uma variável (utilizando Set) o objeto resultante da interseção dos intervalos nomeados
```
Dim Rng As Range        
Set Rng = Intersect(Range("V"), Range("B"), Range("A"))
```
Altere a cor de fundo do intervalo definido pela variável
```
Rng.Interior.Color = RGB(140, 198, 63)
```

Código Consolidado

    Sub Resolucao()

    Dim Rng As Range

    Names.Add Name:="V", RefersTo:=Range("B3").Offset(4, 1).Resize(11, 5)
    Names.Add Name:="B", RefersTo:=Range("H3").Offset(3, -6).Resize(8, 4)
    Names.Add Name:="A", RefersTo:=Range("A21").Offset(-8, 4).Resize(9, 4)

    Set Rng = Intersect(Range("V"), Range("B"), Range("A"))
    Rng.Interior.Color = RGB(140, 198, 63)

    End Sub

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO