Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Formatação de Percentual no VBA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
sosforce
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qui Jul 10, 2014 1:38 pm

Formatação de Percentual no VBA

Mensagem por sosforce »

Estou tendo um problema básico quando utilizo a formatação em percentual no VBA, da seguinte forma:

META.Text = Format(META / 100, "0,0%"), desta forma aparece corretamente no textbox. Exemplo 6,5%, porém quando eu transfiro para a planilha do Excel, o Excel não entende como percentual. Como a planilha alimenta um gráfico este gráfico não lê como percentual.
O estranho é que se você for no Excel e der um F2 e Enter o Excel volta a reconhecer como percentual.

O que estou fazendo de errado?
Quero formatar dentro do Texbox para depois enviar para a planilha

Desta forma o Excel reconhece como percentual, porém ele arredonda, se eu colocar 6,5% e arredonda para 7%.
REAL.Text = Format(REAL / 100, "##,00%")

Sou usuário iniciante no vba, qualquer ajuda será bem vinda.

Obrigado!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Formatação de Percentual no VBA

Mensagem por Reinaldo »

Básicamente, um Textbox passa, independente da formatação, uma informação como texto. Portanto ao "transferir" essa informação para o excel, na maioria das vezes, é preciso refazer a formatação pretendida.
Experimente ao passar a informação para o excel repetir a formatação desejada: +/- assim: SuaCelula=Format(Real.text,"0,0%) ou ainda SuaCelula=(Real/100.....


sosforce
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qui Jul 10, 2014 1:38 pm

Re: Formatação de Percentual no VBA

Mensagem por sosforce »

Valeu pela dica, tentei mas não funcionou.
Resolvi colocando uma função para transformar texto em número.
Assim deu certo.

Mas obrigado pela dica.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder