Visual Basic Condição de avaliação VBA

[Marcello Filho]

gostaria de ajuda para seguinte situação

tenho a texbox1 e textbox 2

na textbox 1 = será obtido um valor de 1% a 100%

e gostaria que na textbox2 =retornasse uma avaliação conforme abaixo

 

ruin 1% a 15%

regular 16% a 49%

bom 50% a 70%

ótimo 71% a 89%

excelente 91% a 100%

 

poderia ser na função if ou qualquer outra.

desde ja agradeço a atençaõ dos senhores

[Edson Luiz Branco]

Bom dia, @Marcello Filho, bem vindo

 

Supondo que você entre as porcentagens como inteiro na TextBox1, uma ideia para o trecho do código seria:

 
 With TextBox1
   TextBox2.Value = Switch((.Value >= 1) And (.Value <= 15), "Ruim", _
                          (.Value >= 16) And (.Value <= 49), "Regular", _
                          (.Value >= 50) And (.Value <= 70), "Bom", _
                          (.Value >= 71) And (.Value <= 89), "Ótimo", _
                         (.Value >= 91) And (.Value <= 100), "Excelente")
 End With

Obs.: Dá uma revisada nas faixas de valores, tá meio estranho, por exemplo, de 89 pulou pro 91 então o valor 90 ficou fora. É isso mesmo?

PS: Penso que sua pergunta seria mais rapidamente respondida se postada na área dos  Pacotes de Escritório - Microsoft Office  

[Marcello Filho]

funcionou perfeitamente, obrigado.