Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
definição de valore...
 
Notifications
Clear all

definição de valores em arquivo texto

 
2024 - VBA & Macros
Post Recente por edurdstm 8 anos atrás
9 Posts
4 Usuários
0 Reactions
1,346 Visualizações
RSS
 edurdstm
(@edurdstm)
Posts: 4
New Member
Topic starter
 

Pessoal , necessito de uma ajuda no excel vba .

Tenho um campo valor com um tamanho de 14 posições , gostaria de trazer o numero da planilha completando com zeros a esquerda e o campo decimal com virgula e duas casas decimais .

o valor que estou testando é 311.682,91

com o codigo

.VALOR__DO_DOCUMENTO = Format(Int(AreaTrab.Cells(i, 8).Value * 100), "00000000000000")

o retorno do arquivo traz 00000031168290

gastaria de trazer 000000311682,91

 
Postado : 15/07/2016 1:03 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Faltou o arquivo txt para testes.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 15/07/2016 3:25 pm
 vbajr10
(@vbajr10)
Posts: 34
Eminent Member
 

Boa noite amigo. Primeiro vc está usando a função int que retorna números inteiros se vc quer decimais com duas casas? Depois vc multiplica por 100 que novamente elimina decimais? Desnecessário. Por fim para sua conversão utilize o format "0000000000000.00" com a quantidade de números que deseja sem multiplicar.

 
Postado : 15/07/2016 5:01 pm
 edurdstm
(@edurdstm)
Posts: 4
New Member
Topic starter
 

Marcelo ,
primeiramente muito obrigado !!!
Esta opção resolveu em parte , porem o valor retornado é de 00000311682,00 mas não traz o centavos de maneira correta o valor que gostaria de retorno é 00000311682,91.

Att.

 
Postado : 18/07/2016 6:04 am
 vbajr10
(@vbajr10)
Posts: 34
Eminent Member
 

Tenta então "0000000.##", o número de zeros que desejar;

 
Postado : 18/07/2016 6:35 am
 vbajr10
(@vbajr10)
Posts: 34
Eminent Member
 

Outra coisa, como falei você não pode usar int, se não ele sempre vai retornar números inteiros. ou seja 00 no final.

 
Postado : 18/07/2016 6:37 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite amigo. Primeiro vc está usando a função int que retorna números inteiros se vc quer decimais com duas casas? Depois vc multiplica por 100 que novamente elimina decimais? Desnecessário. Por fim para sua conversão utilize o format "0000000000000.00" com a quantidade de números que deseja sem multiplicar.

Concordo com o que o colega já citou, e como desconherço o arq testo, tente desta forma :

VALOR__DO_DOCUMENTO = Format(AreaTrab.Cells(i, 8), "0000000000000.00")

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/07/2016 7:08 am
 edurdstm
(@edurdstm)
Posts: 4
New Member
Topic starter
 

Marcelo/Mauro , deu certo

Muito obrigado pelo ajuda .

Não sei o que aconteceu mas enviei o arquivo segue o arquivo regularizado

ABRAÇOS

Eduardo

 
Postado : 18/07/2016 8:05 am
 edurdstm
(@edurdstm)
Posts: 4
New Member
Topic starter
 

Marcelo/Mauro , deu certo

Muito obrigado pelo ajuda .

Não sei o que aconteceu mas enviei o arquivo segue o arquivo regularizado

ABRAÇOS

Eduardo

 
Postado : 18/07/2016 8:09 am
Forum Jump:
  Tópico Anterior
Próximo Tópico