Notifications
Clear all

VALOR POR EXTENSO

20 Posts
1 Usuários
0 Reactions
5,898 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom Dia !

Me deparei com um problema em relação aos recibos que preciso e estou tentando fazer o preenchimento automatico dos valores por extenso...

Tenho um recibo em 2 vias que fiz, estou utilizando um contador numérico para cada vez que abre o recibo e também botão de imprimir, mais me deparei com uma questão e não sei com fazer.

Ao preencher o recibo para o cliente, temos que colocar o valor e depois escrever por extenso os valores, mais desta forma alguns acabam preenchendo com erros ou mesmo esquecem de colocar o valor correto.

Tem como colocar apenas o valor e depois o preenchimento automaticamente por extenso. ?

Ex: 1.560$00 ( Um mil, quinhentos e sessenta escudos )

NOTA: Os valores tem que ser desta forma relatada logo acima, pois a moeda corrente do País é Escudos.
A casa decimal é separada por ($) e não por vírgula, portanto a escrita numérica fica assim 1.560$00

Vejam o modelo que estamos utilizando até agora

 
Postado : 15/02/2012 8:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Zague

Eu uso a muito tempo e estou satisfeito, pois tem muitas opções para prenchimentos.

acesse o site e baixe. No site tem tutorial de como baixar e como usar.

http://www.vextenso.com.br/

Dê retorno.

Abraço.

 
Postado : 15/02/2012 10:22 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Baixei e instalei, mais não estou conseguindo associar a célula que tenho o valor descrito para que ao digitar apenas o valor numérico apareça o valor por extenso.

Ja tentei de várias formas mais não estou conseguindo, por favor veja o modelo de recibo que utilizamos aqui e ve se tem como me ajudar a fazer a adaptação que preciso.

 
Postado : 15/02/2012 11:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Acho que estou conseguindo...vou fazer algumas mudanças e ver se consigo atingir o esperado...

Assim que tiver um resultado volto a postar...ok

 
Postado : 15/02/2012 11:34 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!!

Baixe o arquivo e faça as adaptações necessárias.

 
Postado : 15/02/2012 11:36 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

consegui
fazer as alterações
muito obrigado...agora deu tudo certo

 
Postado : 15/02/2012 11:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!!

Marque o tópico como resolvido!

at ++++ ;)

 
Postado : 15/02/2012 11:40 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Zague

É que vc não leu as intruções

Vamos dizer que vc digitou o número na célula "J3"

Na célula onde vc quer que apareço por extenso é só digitar =VExtenso(J3)

Para escrever com as primeiras letras Maiúsculas =SUBSTITUIR(SUBSTITUIR(PRI.MAIÚSCULA(VExtenso(J3));" E "; " e "); " De "; " de ")

Só clicar em qual instrução vc quer que aparece:

http://www.vextenso.com.br/
http://www.vextenso.com.br/planilha/16/ ... rgula.html

Dê retorno.

Um abraço.

 
Postado : 15/02/2012 11:43 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Tarde Patropi, eu li sim as explicações só não havia encontrado as ilustrações e depois que vi consegui realizar o que pretendia...

Obrigado pela ajuda e desculpe, mais é que estou aprendendo algumas coisinhas no exel e quando me deparo com esses problemas sempre peço um socorro a todos vocês, pois sempre me ajudaram com muita destreza e agradeço por isso...

Valeu pelas dicas...

 
Postado : 15/02/2012 12:47 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Tarde Patropi,
Veja no http://www.vextenso.com.br/ o VExtenso contém um erro na descrição, pois ao solicitar um valor ( dezessete ) está aparecendo ( dezassete ), você sabe como eu corrijo isso ?

 
Postado : 15/02/2012 2:26 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Zague

Tem um link para suporte:

http://www.remoto.net.br/vextenso.html

Abraço.

 
Postado : 15/02/2012 5:12 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!!

Entre no editor VB, use as teclas Alt + F11, e faça e dição

Ex. Procure no código algo assim...

Dim nContador, nTamanho As Integer
Dim CValor, CPArte, CFinal, Etiq As String
ReDim aGrupo(4), aTexto(4) As String
ReDim aUnid(19) As String

aUnid(1) = "Um "
aUnid(2) = "Dois "
aUnid(3) = "Três "
aUnid(4) = "Quatro "
aUnid(5) = "Cinco "
aUnid(6) = "Seis "
aUnid(7) = "Sete "
aUnid(8) = "Oito "
aUnid(9) = "Nove "
aUnid(10) = "Dez "
aUnid(11) = "Onze "
aUnid(12) = "Doze "
aUnid(13) = "Treze "
aUnid(14) = "Quatorze "
aUnid(15) = "Quinze "
aUnid(16) = "Dezesseis "
aUnid(17) = "Dezessete "
aUnid(18) = "Dezoito "
aUnid(19) = "Dezenove "
 
Postado : 15/02/2012 5:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não consigo entrar no código e editar...pois esta pedindo senha

 
Postado : 17/02/2012 12:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

boa noite!!!

Poderia tentar com o que eu te mandei...

 
Postado : 17/02/2012 5:16 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Me desculpe Alexandre, mais não estou entendendo como posso fazer dessa forma, pois estou utilizando o VExtenso instalado nas máquinas e ao tentar acessar o código VExtenso, sempre aparece para digitar uma senha.

Você diz para usar esse que você mandou, mais usar de que forma se não estou conseguindo acessar o código e fazer essas alterações...

Tem como você me ajudar com esses detalhes, pois não sei como fazer isso ?

Att;

 
Postado : 18/02/2012 5:02 am
Página 1 / 2