Excel VBA - Zeros

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    Excel planilha vba zeros a esquerda do numero Excel planilha vba zeros a esquerda do numero

    popular!
    Adicionado em: 18/05/2011
    Modificado em: 18/05/2011
    Tamanho: Vazio
    Downloads: 1057

    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
    Eletrônicos - Submarino.com.br

    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