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

Somando Porcentagem na textBox

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
1,706 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Buenas dias Planilheiros!

Estou com uma dúvida sobre como faço para colocar o resultado de uma porcentagem em um textbox.

Exemplo

TXTPORCENTAGEM = 2
TXTVALORSOMAR = 45
RESULTADO = 45,9

Quero que o resultado seja somado com valor presente no campo TXTVALORSOMAR
Agora vejam o código.

pgto = Variavel
O1 = Variavel
P1 = Variavel
txtO1 = Objeto (textbox)

pgto1 = (O1 * P1 / 100)
txtO1.Text = PO1 + pgto1

Esta aparecendo apenas o valor 0,9 que é porcentagem em cima de 45... mais quero que apresenta o valor inteiro 45,9
Desde já um grande abraço!

 
Postado : 17/01/2012 11:44 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja se assim funciona....

TextBox3.Value = CDbl(TextBox1.Value) +CDbl(TextBox2.Value)
 
Postado : 17/01/2012 11:53 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A logica seria :

pgto1 = (45 * 2 / 100) + 45

ou

txtO1.Value = (45 * 2 / 100) + 45

É só adaptar os numeros com as Variaveis, seguindo a dica do Alexandre da conversão de Tipos, uma vez que estamos trabalhnado com o Controle TextBox (CDbl)

[]s

 
Postado : 17/01/2012 12:01 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ainda não deu certo...
Veja como está o código inteiro.

Private Sub btnCalcPorcentagem_Click()

'Variaveis

Dim O1
Dim P1

Transformar Variavel em Objeto

O1 = txtO1
P1 = txtP1

'Resultado e soma das operações

pgto1 = (O1 * P1 / 100)
txtO1.Value = CDbl(PO1) + CDbl(pgto1)

Sub end

*No seu exemplo os 3 são objetos (TextBox)
*Observa que nãs minhas variaveis em não declaro do tipo delas, tem alguma problema?

Obrigado!

 
Postado : 17/01/2012 12:05 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro Coutinho
Vou tentar agora, só um momento!

 
Postado : 17/01/2012 12:07 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado!

Mauro Coutinho
Alexandrevba

Deu certo!

pgto1 = (O1 * P1 / 100) + O1
txtO1.Value = CDbl(PO1) + CDbl(pgto1)

Grandes pessoas!
Abraços!

 
Postado : 17/01/2012 12:16 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico