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)
Excel - Dicas Microsoft Excel VBA Excel VBA - Zeros Excel planilha vba zeros a esquerda do numero
Excel planilha vba zeros a esquerda do numero
PROMOÇÃO DIDÁTICOS SABEREXCEL
Adquira já o Acesso Imediato
à Area de Membros
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
Contatos Equipe 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
Tags Populares
RSFirewallProtected
Google Associados
Depoimentos
Cirano Bispo
22 December 2012
Marciel
Curitiba(PR)
03 January 2013
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
Comentários
Gente pelo amor de DEUSSSS como eu coloco um zero a esquerda nesta seguencia se numeros?
395774000
Desde já agradeço,
' 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)
Assine o RSS dos comentários