Tratamento de valores em VBA (excel)

[fabriciokraus]

ola,

 

Estou realizando uma programação em vba (excel) para realizar uma declaração a um ente federal. Meu problema é tratar os valores numericos (removendo as pontuações ("," e "."), por exemplo o valor 1285,88 deve virar 00000000128588. Pensei em subtituir a pontuação (Replace ( string1, find, replacement, [start, [count, [compare]]] )) e repitir os valores ("0") ate fechar as posições )Range("b1") = Application.WorksheetFunction.Rept(Range("a1"), 3)). Funcionou perfeitamente até obter valores inteiros ("262,00"), com isso ele entende como 262 e logo faz 00000000000262 deixando de ser 262,00 e passando a ser 2,62. 

 

Como posso contornar esta situação? 

 

[CasaDoHardware]

Disponibilize um arquivo como modelo

 

Junto com o codigo completo

[Edson Luiz Branco]

Fabrício, boa noite

você pode usar a propriedade Text do Range (ao invés de Value - Default) para trazer o valor da célula como ele está aparecendo lá na célula, e não somente seu conteúdo numérico. Supondo que seu valor 262,00 esteja na célula A1 da Planilha1, uma forma de fazer seria assim:

 

Sub TrataValor()
   Dim ValNum As String
     ValNum = Worksheets("Planilha1").Range("A1").Text
     ValNum = Replace(ValNum, ",", "") 'Elimina a vírgula se houver
     ValNum = Replace(ValNum, ".", "") 'Elimina o ponto, se houver
     ValNum = Format(ValNum, String(14, "0")) 'Formata com 14 posições
End Sub

ValNum conterá então o resultado "00000000026200"

[fabriciokraus]

Bom dia Edson Luiz

 

O código atendeu exatamente o meu problema.

 

Obrigado pela ajuda.