Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Calculo Porcentagem...
 
Notifications
Clear all

Calculo Porcentagem com numero decimal

 
2024 - VBA & Macros
Post Recente por Wagner Morel 9 anos atrás
5 Posts
3 Usuários
0 Reactions
1,380 Visualizações
RSS
victorsam
 victorsam
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Queria uma ajudinha aqui de vocês

Estou tentando fazer um calculo aqui com uma porcentagem e eu já tentei de tudo varias forma da net e não estou conseguindo

é mais ou menos assim tem um valor em MOEDA e outro valor em porcentagem, o que eu quero é subtrair a porcentagem do valor de moeda
ou seja MOEDA menos a PORCENTAGEM.
O que ta acontecendo é que o código abaixo esta pegando apenas o primeiro numero da porcentagem

Textbox1 = resultado
Textbox2 = moeda
Textbox3 = porcentagem = 3,19

 
    sVal1 = CLng(Textbox2.Value)

    sVal2 = Format(Val(Textbox3.Text), "#,##")

    'Calcula o Resultado, formata como Moeda e coloca o resultado no textbox
    Textbox1.Value = Format(sVal1 - (sVal1 * sVal2 / 100), "Currency")

desde já agradeço

Tentar não é saber, é ter a certeza que vai descobrir

Dicas excel, vba, Access http://vbaedit.blogspot.com.br/

 
Postado : 30/10/2015 7:30 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Bom Dia!

Altere para esse código:

    sVal1 = CLng(TextBox2.Value)

    sVal2 = CDbl(TextBox3.Text)

    'Calcula o Resultado, formata como Moeda e coloca o resultado no textbox
    TextBox1.Value = Format(sVal1 - (sVal1 * sVal2 / 100), "Currency")

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 30/10/2015 7:47 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Este exemplo foca só o calculo.

Não considera formato em moeda e nem se na TexBox3 está com o formato em porcentagem.

TextBox1.Value = TextBox2.Value - (TextBox2.Value * TextBox3.Value) / 100

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/10/2015 7:53 am
victorsam
 victorsam
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Valew Wagner ficou perfeito

CDbl - Formata um valor em Porcentagem!?

E Alenxandre eu tentei esse seu ai mais não funciona é como se fosse para numero inteiros ele só pega o primeiro numero

tem que formatar Cdbl

Me.txtMenosPorc1 = CDbl(Me.txtValReceb1 - (Me.txtValReceb1 * Me.txtTaxa) / 100)

Tentar não é saber, é ter a certeza que vai descobrir

Dicas excel, vba, Access http://vbaedit.blogspot.com.br/

 
Postado : 30/10/2015 9:03 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

victorsam,

CDbl formata para números Double (números fracionários com casas decimais).

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 30/10/2015 9:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico