Excel VBA não funciona
As funções lógicas são úteis para os cálculos que requerem várias condições ou critérios para teste. Em nossos artigos anteriores, vimos as condições “VBA IF”, “VBA OR” e “VBA AND”. Neste artigo, discutiremos o “VBA NOT” com a função IF no Excel. Para entendê-lo primeiro, precisamos examinar a função “NÃO VBA”.
Exemplos
Exemplo 1
A função NOT também está disponível no VBA e funciona exatamente da mesma forma que a função Excel. Por exemplo, observe o conjunto de código VBA abaixo.
Código:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
No código acima, declaramos a variável “k” como uma string.
Dim k As String
Em seguida, atribuímos o valor por meio da função NOT. A função NÃO diz se o número 45 é igual a 45 ou não?
k = Não (45 = 45)
Em seguida, atribuímos o valor retornado pela função NOT à variável “k” na caixa de mensagem.
MsgBox k
Execute o código e veja qual é o resultado.
Exemplo # 2 - NÃO com função IF
Como eu disse em um dos artigos anteriores, “IF com outras funções lógicas são os melhores pares no Excel”.
Da mesma forma, NOT with IF é útil de várias maneiras. Com IF, podemos ter nossos próprios resultados em vez dos resultados padrão TRUE ou FALSE.
Pegue o mesmo código de exemplo acima, e aplicaremos NOT com a função IF.
Código:
Sub NOT_Example2 () Dim k As String If Not (45 = 45) Then k = "O resultado do teste é VERDADEIRO" Else k = "O resultado do teste é FALSO" End If MsgBox k End Sub
No código acima, alteramos os resultados padrão de “O resultado do teste é FALSO” e “O resultado do teste é VERDADEIRO”. Se o teste lógico fornecido for verdadeiro, ele retornará “O resultado do teste é FALSO” e se o teste lógico fornecido for falso, ele retornará. “O resultado do teste é VERDADEIRO.”
No código acima, temos o valor 45 = 45, então obteremos a resposta da seguinte maneira.
Exemplo # 3 - Avançado NÃO
A função NOT é melhor utilizada com a função IF. Podemos usar esta função para ocultar todas as folhas, exceto uma folha em particular.
Temos várias planilhas, conforme segue em nosso excel.
Abaixo está o código de exemplo para ocultar todas as folhas, exceto uma folha específica.
Código:
Sub NOT_Example3 () Dim Ws As Worksheet Para Cada Ws In ActiveWorkbook.Worksheets If Not (Ws.Name = "Data Sheet") Then Ws.Visible = xlSheetVeryHideen End If Next Ws End Sub
O código acima oculta todas as planilhas, exceto a planilha “Folha de Dados”.
Você pode usar este código VBA para ocultar todas as planilhas, exceto uma planilha específica, alterando o nome da planilha para o nome da planilha.
Por exemplo, como também podemos exibir planilhas no Excel. O código a seguir exibirá todas as folhas, exceto o nome da folha "Folha de dados".
Código:
Sub NOT_Example4 () Dim Ws As Worksheet Para Cada Ws In ActiveWorkbook.Worksheets If Not (Ws.Name = "Data Sheet") Then Ws.Visible = xlSheetVisible End If Next Ws End Sub
O código a seguir exibirá apenas o nome da planilha “Data Sheet”.
Código:
Sub NOT_Example3 () Dim Ws As Planilha Para Cada Ws Em ActiveWorkbook.Worksheets If Not (Ws.Name "Data Sheet") Then Ws.Visible = xlSheetVisible End If Next Ws End Sub
