Notifications
Clear all

Ajuda Formatar Célula

4 Posts
2 Usuários
0 Reactions
1,060 Visualizações
(@azorfreire)
Posts: 0
New Member
Topic starter
 

Bom dia amigos.

Desenvolvi um aplicativo em Visual Basic 6, neste aplicativo localizamos as informações em um banco de dados e é gerada uma planilha no formato excel com todas as informações.

Estou com um problema em uma das células da planilha, onde a informação que vem do banco dados vem no seguinte formato:
informação = "000120" (Zeros à esquerda)
Na planilha fica assim:
informação="120"

Esta informação é do tipo texto no banco de dados, vocês pode me ajudar me dizendo como faço para enviar um comando VBA que deixe a informação com zeros à esquerda (000120)?

Desde já muito obrigado.

 
Postado : 05/12/2016 6:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Qual o tipo definido para esse campo? use string (para que o excel veja como texto).
Att

 
Postado : 05/12/2016 6:53 am
(@azorfreire)
Posts: 0
New Member
Topic starter
 

Bom dia!!

Qual o tipo definido para esse campo? use string (para que o excel veja como texto).
Att

Bom dia Alexandre!

Alexandre no banco de dados este campo está definido como texto (string), tem alguma formatação (via código) que eu possa fazer para o excel entender que é um texto e manter os zeros à esquerda?

 
Postado : 05/12/2016 6:57 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Azor, seguem duas opções :

Sem VBA, utilizando a formatação das celulas :
Selecione a coluna em que tem os numeros, vá em "Formatar Celulas", selecione "Personalizado" e na Caixa "Tipo" digite "6 zeros" e de OK, com esta formatação se a qde de digitos forem menor que 6 serão completados com zeros a esquerda.

Com VBA :
Selecione a Coluna com os numeros e execute a rotina abaixo :

Sub Formatar_zeros_6_digitos()

    'Qde de digitos
    Selection.NumberFormat = " 000000"

End Sub

Agora, se já utiliza alguma rotina de VBA para gerar a planilha, poste o código que utiliza para ver ode teríamos de ajustar para formatar na criação.

[]s

 
Postado : 05/12/2016 8:37 am