Home Excel - Dicas Microsoft Excel VBA Excel VBA - Zeros Excel planilha vba zeros a esquerda do numero

Excel planilha vba zeros a esquerda do numero

E-mail Imprimir PDF

Saberexcel o site de quem precisa aprender Macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), com o Evento_Change(ao digitar), insere zeros a direita de números de apenas 1 digito, abaixo inserí um objeto ComboBox, para facilitar no teste, ajudar no teste, ao desbilitar também desabilita a condição de formatação e ao habilitar a combobox no valor(TRUE) VERDADEIRO, o evento change entra em ação formatando números de apenas um digito, ao digitar números maiores ou igual a dois dígitos não acontece a formatação com zeros à esquerda nas células da folha de planilha.
também há um exemplo com fórmulas:  '=SE(A1<=10;("00000000000"&A1*1);A1)

Private Sub Worksheet_Change(ByVal Target As Range)
'If Len(Target.Value) = 1 Then
 If Saber1.CheckBox1.Value = True Then
    If Len(Target.Value) < 2 Then 'observe que formatará somente números de um dígitos.(1-9)
       Target.Value = "'000000000000000000" & Target.Value
    End If
 Else
 Exit Sub
 End If
End Sub

Na folha de planilha inserí um checkbox(visual basic) para auxilar no teste,
quando estiver acionado (valor =True), vai inserir formatação com zeros a esquerda em toda a planilha
caso seja desabilitado, a formatação em toda a planilha será normal.

 Private Sub CheckBox1_Click()
If Saber1.CheckBox1.Value = True Then
   Saber1.CheckBox1.Caption = "Formatando células zeros esquerda"
   Saber1.CheckBox1.BackColor = &H4000&
   Saber1.CheckBox1.ForeColor = &HFFFF&
Else
   Saber1.CheckBox1.Caption = "Números sem formatação"
   Saber1.CheckBox1.BackColor = &H80FF&
   Saber1.CheckBox1.ForeColor = &HFFFFFF
End If
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de planilha com procedimentos e macros acima
Excel planilha vba zeros a esquerda do numero (161.96 KB)

Última atualização em Ter, 16 de Outubro de 2012 11:08  

Comentários  

 
# 15/03/2013 09:36
Estou aqui quebrando a cabeça...

Gente pelo amor de DEUSSSS como eu coloco um zero a esquerda nesta seguencia se numeros?

395774000

Desde já agradeço,
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes_ 03/05/2013 10:49
'esta macro insere uma autonumeração na célula (G1)
' e uma fórmula Range("").value = Texto(G1;"0000")
'enumerando os numeros acrescido de zero a esquerda
'..............................'
Sub autonumeração()
[G1].Value = ([G1] + 1)
Range("F2").FormulaR1C1 = "=TEXT(R[-1]C[1],""0000"")"
Range("H6").Select
End Sub
'..............................'
Uma solução, é claro, é simplesmente mudar o formato de exibição usado para células CEP. Isso pode funcionar para a tela, mas a base
'...................................................'
sub Formatar_celula s_cod_cpostal

Dim ThisCell As Range
Application.ScreenUpdating = False
'formatando texto
Selection.NumberFormat = "@"
For Each ThisCell In Selection
'Strip the leading apostrophe, if any
If Left(ThisCell, 1) = "'" Then
ThisCell = Mid(ThisCell, 2, 99)
End If
'esta formatação é para CEP cod 5 digito
If Len(ThisCell)
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje334
mod_vvisit_counterOntem4536
mod_vvisit_counterEsta Semana334
mod_vvisit_counterSemana passada34300
mod_vvisit_counterEsse mês48363
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10471192
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA