Descrição

A função Switch em VBA é usada para simplificar expressões condicionais que envolvem múltiplas opções. Ela permite avaliar uma série de condições e retornar um valor com base na primeira condição verdadeira encontrada.

Exemplos de Uso:

    Function ClassificarNota(nota As Integer) As String
        ClassificarNota = Switch(nota >= 90, "A", nota >= 80, "B", nota >= 70, "C", nota >= 60, "D", True, "F")
    End Function
    

    Function CalcularDesconto(total As Double) As Double
        CalcularDesconto = total * Switch(total >= 1000, 0.1, total >= 500, 0.05, True, 0)
    End Function
    

    Sub Saudacao(periodo As String)
        Dim mensagem As String
        mensagem = Switch(periodo = "manhã", "Bom dia!", periodo = "tarde", "Boa tarde!", periodo = "noite", "Boa noite!")
        MsgBox mensagem
    End Sub
    

    Sub VerificarDiaSemana(dia As String)
        Dim mensagem As String
        mensagem = Switch(dia = "segunda", "Início da semana", dia = "sexta", "Fim de semana", True, "Dia comum")
        MsgBox mensagem
    End Sub
    

    Function ValidarIdade(idade As Integer) As String
        ValidarIdade = Switch(idade < 0, "Idade inválida", idade >= 18, "Maior de idade", idade < 18, "Menor de idade")
    End Function
    

Descrição Detalhada:

A função Switch em VBA é uma ferramenta valiosa para simplificar expressões condicionais em que múltiplas opções devem ser avaliadas. Ela permite que você especifique uma série de condições e seus valores correspondentes, retornando o valor da primeira condição verdadeira encontrada. Isso torna o código mais conciso e legível, reduzindo a necessidade de aninhar várias estruturas condicionais. Os exemplos apresentados demonstram como utilizar a função Switch em situações diversas, como classificação de notas, cálculo de descontos, saudações com base no período do dia, verificação do dia da semana e validação de idade. Compreender e aplicar a função Switch no VBA aprimorará sua capacidade de criar código eficiente e claro em suas macros e automações.