Descricao: |
Saberexcel o site de quem precisa aprender Macros Microsoft Excel VBA
![](/images/stories/excel/linazul.jpg) 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
![](/images/stories/excel/linazul.jpg) Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
![](/images/stories/jm_produtos.jpg)
Publicidade Compre com segurança, garantia e ótimos preços
![Eletrônicos - Submarino.com.br](http://i.s8.com.br/images/afiliados/banner/468x60_eletronicos.jpg)
|