Em vez de várias declarações If Then em Excel VBA, você pode usar o Selecione a estrutura do caso.
Situação:
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. Primeiro, declare duas variáveis. Uma variável do tipo Integer denominada score e uma variável do tipo String denominada result.
Dim score As Integer, result As String
2. Inicializamos a pontuação da variável com o valor da célula A1.
pontuação = intervalo ("A1"). Valor
3. Adicione a estrutura Selecionar Caso.
Selecione a pontuação do caso
Caso é> = 80
resultado = "muito bom"
Caso é> = 70
resultado = "bom"
Caso é> = 60
resultado = "suficiente"
Case Else
resultado = "insuficiente"
End Select
Explicação: O Excel VBA usa o valor da variável score para testar cada instrução Case subsequente para ver se o código sob a instrução Case deve ser executado.
4. Escreva o valor do resultado variável na célula B1.
Intervalo ("B1"). Valor = resultado
5. Teste o programa.
Resultado quando você clica no botão de comando na planilha:
Nota: O Excel VBA executa o código na segunda instrução Case para todos os valores maiores ou iguais a 70 e menores que 80.