Ir ao conteúdo
  • Cadastre-se
felipe silva dos santos

Formatação em textbox no formato porcenagem

Recommended Posts

Bom dia galera, 

 

Preciso de uma ajuda de vocês.

 

Hoje me deparei com um problema no sisteminha que fiz em excel vba.

Bem vamos lá...

 

Tenho um userform onde digito algumas informações que depois são armazenas em um certo "banco de dados", bem em uma das textbox eu preciso digitar um carto valor em formato de porcentagem para que no meu banco de dados fique salvo no formato porcentagem pois nesse formato vou utilizar em uma outra planilha esses dados. Pois bem no momento estou utilizando o seguinte código de formatação: 

 

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

 

Bem até ai beleza, eu consigo digitar um numero na textbox11, porém ao digitar um valor: por exemplo: 0,75%, a testbox não permite, só consigo digitar números inteiros no caso de 0 a 99%.

quando eu preciso digitar um valor menor entre "0 e 1, exemplo 0,75%" eu não consigo.

 

Já tentei o código:

 

BC1.Value = Format(BC1.Value, "0.00%") 

e

Private Sub TexTbox11_change()
Me.TextBox11.Value = Format(Val(TextBox11.Value) / 100, "0,00%")
TextBox11.SelStart = Len(TextBox11.Value) - 1
End Sub

Só que até agora não consegui nada!

 

Se alguém puder me da essa força eu agradeço desde então...

 

Abraço!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×