Eis me aqui novamente meus caros.
Dessa vez trago a seguinte questão:
Private Sub CommandButton1_Click()
sVal1 = TextBox1.Value
sVal2 = txt_desc.Value
'1º caso - txtResultado = Format(Round(Round((sVal1 / sVal2) * 100, 4) * 100, 2)) & "%"
'como faço para aplicar este metodo de calculo quando o resulta da divisão de sVal1/sVal2 tiver dois 00 após a virgula - exemplo 0,002780
'2º caso - txtResultado = Format(Round(Round((sVal1 / sVal2) * 100, 4), 2)) & "%"
'como faço para aplicar este metodo de calculo quando o resulta da divisão de sVal1/sVal2 não contiver zeros após a virgula - exemplo 0,3272
End Sub
na realidade o que eu quero é uma forma em que quando dividisse meu sVal1 / sVal2, independente do valor (lógico, obedecendo a lógica de cálculo de porcentagem, menor pelo maior), o valor visualizado no "txtResultado" fosse uma porcentagem com duas casas decimais após a virgula, pois se eu calcular o "Exemplo1" com o "1º caso" do código o resultado será 27,73%, todavia se realizar o calculo do "Exemplo1" com o "2º caso" o resultado será 0,28% e vise-versa.
Exemplo1→ 22.000,00/7.931.000,00 = 0,002773 se eu utilizar o "1 - caso" terei como resultado 27,73%
Porém se calcular:
Exemplo2= 21.600,00/66.000,00 = 3272,73% (1º caso); se eu utilizar o "2 - caso" terei como resultado 32,72% -
e ai teria "o solicitado", isto é, um resulta exibindo em porcentagem, com duas casas decimais após a virgula
Espero ter sido objetivo!
Em anexo a planilha!
quem puder contribuir com algum raciocínio ou exemplo de outro código de outras planilhas serei muito grato!
calculo.rar