Excel VBA: método Intersect com intervalo de vários nomes [closed]

O Intersect não funciona.

Dim NTit como intervalo Dim NInf como intervalo Dim NDat As Range

Dim WS como planilha Definir WS = ActiveSheet
   Set NTit = WS.Range("$A$1:$J$1")       
   Set NInf = WS.Range("$B$3:$F$3")       
   Set NDat = WS.Range("$A$5:$K$11")       
   NTit.Interior.Color = RGB(255, 0, 0)
   If Not Intersect(Target, NTit, NInf, NDat) Is Nothing Then

microsoft-excel vba

— Anao
fonte

Por favor, dedique um minuto para reformular essa questão de uma maneira que facilite a compreensão do que você está tentando e qual é a sua pergunta. Pode ser útil ler Como perguntar .

— CharlieRB

Quando eu executo o Evento de Mudança, normalmente a parte de interseção deve pular o código que segue se os dados de entrada estiverem na célula fora dos intervalos & amp; execute o código se os dados de entrada estiverem dentro dos intervalos, mas, de fato, saltem sobre o código a cada vez. Eu sei que cada Ranges está correto porque eu pinto então deve ser um erro na linha dentro do Intersect? Obrigado pela ajuda.

— Anao

o Intersect não está funcionando porque cada parâmetro deve ter uma célula ou células comuns. Não é uma situação de OR; é um AND. Você precisa essencialmente usar Target AND (NTit OR NInf OR NDat). Isso pode ser feito combinando Intersect com Union.

If Not Intersect(Target, Union(NTit, NInf, NDat)) Is Nothing Then

Isso parece que pode ser de um Worksheet_Change macro de eventos. Se esse for o caso, você não precisará declarar e atribuir WS. Você poderia simplesmente usar ME como o objeto da planilha. Há outras melhorias que eu poderia sugerir, mas você poderia editar sua pergunta e postar mais do seu código antes que eu pudesse ver como isso se relaciona com outros fatores.

— Jeeped
fonte

Essa é uma boa resposta.

— Raystafarian