Textbox Formulário VBA (Porcentagem)
Enviado: 15 Fev 2019 às 08:02
Olá amigos, bom dia!
Estou com um problema em um formulário que estou desenvolvendo para otimizar uma atividade aqui do setor.
Preciso que no textbox seja inputado MANUALMENTE o percentual que será rateado. Contudo, queria que o usuário somente colocasse os números.
Estou utilizando o código abaixo, e ele atende. Contudo, quando há casas decimais o formulário não as interpreta.
Ex: 100% ele fica OK.
Porém, 99,99% ele não permite a inclusão da vírgula.
Private Sub txt_desc_Change()
Me.txt_desc.Value = Format(Val(txt_desc.Value) / 100, "##%")
txt_desc.SelStart = Len(txt_desc.Value) - 1
End Sub
Agradeço se poderem me ajudar!
Estou com um problema em um formulário que estou desenvolvendo para otimizar uma atividade aqui do setor.
Preciso que no textbox seja inputado MANUALMENTE o percentual que será rateado. Contudo, queria que o usuário somente colocasse os números.
Estou utilizando o código abaixo, e ele atende. Contudo, quando há casas decimais o formulário não as interpreta.
Ex: 100% ele fica OK.
Porém, 99,99% ele não permite a inclusão da vírgula.
Private Sub txt_desc_Change()
Me.txt_desc.Value = Format(Val(txt_desc.Value) / 100, "##%")
txt_desc.SelStart = Len(txt_desc.Value) - 1
End Sub
Agradeço se poderem me ajudar!