Excel VBA tem a construção IF Then Else que você pode usar para analisar várias condições e executar códigos com base nessas condições.
Outra construção semelhante que permite que você verifique várias condições é a instrução SELECT CASE.
Selecionar caso é útil quando você tem três ou mais condições que deseja checar. Você também pode usar isso com duas condições (mas acho que If Then Else é mais fácil de usar nesses casos).
Um exemplo simples onde a instrução Select Case é útil quando você deseja obter a nota de um aluno com base nas notas que ele / ela obteve (coberto como um exemplo mais tarde neste tutorial).
Nota: Todos os códigos de exemplo cobertos neste tutorial devem ser colocados em um módulo no VBA.
Este tutorial cobre:
Select Case Syntax
Abaixo está a sintaxe do Select Case no Excel VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression: esta é a expressão cujo valor analisamos usando diferentes casos (explicados melhor com os exemplos abaixo).
- Condition_1, Condition_2,…: estas são as condições nas quais a expressão de texto é testada. Se atender à condição, o bloco de código para a condição fornecida é executado.
Para cada instrução Select Case que você usa, é necessário usar a instrução End Select.
Nota: Assim que uma condição for atendida, o VBA sai da construção de seleção de caso. Portanto, se você tiver cinco condições e a segunda condição for atendida, o VBA sairá do Select Case – e o restante das condições não será testado.
Select Case Examples
Agora para Para entender melhor como usar a instrução Select Case no VBA, vamos examinar alguns exemplos.
Observe que a maioria dos exemplos neste tutorial tem o objetivo de explicar o conceito. Essa pode ou não ser a melhor maneira de fazer o trabalho.
Vamos começar com um exemplo simples de como o Select Case nos permite verificar as condições.
Exemplo 1 – Verifique os números
No exemplo abaixo, o código pede ao usuário para inserir qualquer número entre 1 e 5 e, em seguida, mostra uma caixa de mensagem com o número que o usuário inseriu.
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more