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   

 
Guest
# Guest 15-03-2013 09:36
:cry: 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 | Citar
 
 
Expedito Marcondes_
# 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").For mulaR1C1 = "=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.Scr eenUpdating = False
'formatando texto
Selection.Numbe rFormat = "@"
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 | Citar
 

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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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