VBA Lógico Operators: E, OU, NÃO, SE NÃO no Excel VBA
Excel VBA lógico Operatoros
Digamos que você queira processar um pedido de cliente. Para isso, você deve primeiro verificar se o produto encomendado existe ou não. Em caso afirmativo, você também deseja verificar se a quantidade disponível é suficiente. Os operadores lógicos são úteis nesses casos. Os operadores lógicos são usados para avaliar mais de uma condição.
Os principais operadores lógicos do Excel VBA AND, OR, NOT estão listados na tabela abaixo:
S / N | Operator | Descrição | Exemplo | saída |
---|---|---|---|---|
1 | E | AND: Isso é usado para combinar mais de uma condição. Se todas as condições forem verdadeiras, AND será avaliado como verdadeiro. Se alguma das condições for falsa, AND será avaliado como falso | Se verdadeiro = verdadeiro E falso = verdadeiro ENTÃO | falso |
2 | OR | OU: Isto é usado para combinar mais de uma condição. Se alguma das condições for avaliada como verdadeira, OR retornará verdadeiro. Se todos eles forem falsos, OR retorna falso | Se verdadeiro = verdadeiro OU verdadeiro = falso ENTÃO | verdadeiro |
3 | NÃO | NÃO: Este funciona como uma função inversa. Se a condição for verdadeira, retorna falso, e se a condição for falsa, retorna verdadeiro. | Se NÃO (verdadeiro) Então | falso |
VBA Lógico OperaExemplo de código-fonte
Por uma questão de simplicidade, compararemos números codificados.
Adicione botões ActiveX à planilha a partir da “opção Inserir”.
Defina as propriedades conforme mostrado na imagem abaixo
A tabela a seguir mostra as propriedades que você precisa alterar e os valores que você também precisa atualizar.
S / N | Controlar | Imóvel | Valor |
---|---|---|---|
1 | BotãoComando1 | Nome | btnAND |
Subtítulo | E Operator (0 = 0) | ||
2 | BotãoComando2 | Nome | btnOU |
Subtítulo | OR Operator (1 = 1) Ou (5 = 0) | ||
3 | BotãoComando3 | Nome | btnNÃO |
Subtítulo | NÃO Operapara Não (0 = ) |
Adicione o seguinte código a btnAND_Click
Private Sub btnAND_Click() If (1 = 1) And (0 = 0) Then MsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator" Else MsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator" End If End Sub
VBA se E Operator
- “Se (1 = 1) E (0 = 0) Então” a instrução if usa o operador lógico AND para combinar duas condições (1 = 1) e (0 = 0). Se ambas as condições forem verdadeiras, o código acima da palavra-chave 'Else' será executado. Se ambas as condições não forem verdadeiras, o código abaixo da palavra-chave 'Else' será executado.
Adicione o seguinte código a btnOR_Click
Private Sub btnOR_Click() If (1 = 1) Or (5 = 0) Then MsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator" Else MsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator" End If End Sub
VBA se OU Operator
- “Se (1 = 1) ou (5 = 0) Então” a instrução if usa o operador lógico OR para combinar duas condições (1 = 1) e (5 = 0). Se alguma das condições for verdadeira, o código acima da palavra-chave Else será executado. Se ambas as condições forem falsas, o código abaixo da palavra-chave Else será executado.
Adicione o seguinte código a btnNOT_Click
Private Sub btnNOT_Click() If Not (0 = 0) Then MsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator" Else MsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator" End If End Sub
VBA se NÃO Operator
- “Se não (0 = 0) então” a função If Not do VBA usa o operador lógico NOT para negar o resultado da condição da instrução if. Se as condições forem verdadeiras, o código abaixo da palavra-chave 'Else' será executado. Se a condição for verdadeira, o código acima da palavra-chave Else será executado.
Baixe o Excel contendo o código acima