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)