Notifications
Clear all

retornar formato textbox

10 Posts
3 Usuários
0 Reactions
1,980 Visualizações
(@rarph84)
Posts: 39
Trusted Member
Topic starter
 

Boa tarde,
Galera preciso que o valor de um textbox retorne no formato #,##% (porcentagem), alguém consegue me ajudar, segue arquivo em anexo o textbox é 'txtpercdesc' no campo % DESC.

Tentei usar esse código, mas o resultado sai 1200% ao invés de 12,00%

Private Sub txtpercdesc_Change1()
Me.txtpercdesc.Value = Format(Val(txtpercdesc.Value) / 100, "##%")
txtpercdesc.SelStart = Len(txtpercdesc.Value) - 1
End Sub

Obrigado.

 
Postado : 23/11/2017 1:14 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

rarph84,

Boa tarde!

Substitua seu código por este. Não testei mas... creio que dará certo.

Private Sub txtpercdesc_Change()
    txtpercdesc.Text = Format(Val(txtpercdesc.Value), "#,##0.00")
    txtpercdesc.Text = txtpercdesc.Text & "%"
End Sub

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 : 23/11/2017 2:16 pm
(@rarph84)
Posts: 39
Trusted Member
Topic starter
 

Primeiro mto obrigado Wagner,

Ainda não deu, fiz um teste incluindo 5% de desconto, mas no BD registrou 500,%

Tô quebrando a cabeça com isso desde cedo, tens outra sugestão?

 
Postado : 23/11/2017 3:03 pm
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Veja se é dessa forma...!?

Att,

Francisco

 
Postado : 23/11/2017 5:18 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

rarph84,

Boa noite!

Não sei o que está acontecendo, particularmente, com seu arquivo. Inclusive, tanto no trabalho quando em casa, eu tive problemas para abrir e rodar seu arquivo. Ele apresenta uma série de erros e travamentos. Pode ser que seja porque trabalho com o Excel 2007 e a sua versão deve ser mais nova.

Desse modo, fiz um pequeno exemplo que calcula o desconto de um valor qualquer e registra os resultados na planilha.Veja que estou utilizando a mesma técnica que informei para você no post anterior. Todavia, não estou utilizando no evento Change e sim no evento Exit dos textbox.

Ainda assim, veja que não há nenhum mistério nisso e tudo funciona normalmente.

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 : 23/11/2017 5:37 pm
(@rarph84)
Posts: 39
Trusted Member
Topic starter
 

Bom dia,

Mto obrigado Francisco, era exatamente isto.

Mto obrigado Wagner, realmente eu uso o excel 2016, mas seu exemplo abriu minha mente para aprimorar ainda mais meu frm.

Grande abraço.

 
Postado : 24/11/2017 6:00 am
(@rarph84)
Posts: 39
Trusted Member
Topic starter
 

Wagner/Francisco,

Peço desculpas pelas falhas no código apresentado, isso acontece pq ainda estou aprendendo e entrando nesse mundo chamado VBA.
Diante disso eu gostaria de saber se vc consegue me ajudar no seguinte (ou vc tbm Francisco, caso tenha essa disponibilidade) no textbox 'unidade' eu preciso de uma função que me dê a diferença entre o 'preço tabela' e o 'preço novo' e na textbox 'valor produto' colocar uma função que me retorne o valor de tabela com o desconto aplicado (acredito que para isso eu nem precise de textbox e gostaria que me orientassem a como eu posso incluir um campo que some a coluna 'DESC COLGATE' mostrando o total investido.

obg

 
Postado : 24/11/2017 6:28 am
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Boa-tarde

Veja se é o que precisa...!?
Mais acho que voltou o probleminha da ListView, vou verificando aqui

Att,

Francisco

 
Postado : 24/11/2017 2:09 pm
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Boa-tarde

Alterado a porcentagem na listview.

Att,

Francisco

 
Postado : 25/11/2017 11:53 am
(@rarph84)
Posts: 39
Trusted Member
Topic starter
 

Bom dia,

Perfeito!!! Era exatamente isso, muito obrigado.

 
Postado : 27/11/2017 5:50 am