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.


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

Publicidade
Compre com segurança, garantia e ótimos preços