Excel VBA - Zeros

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    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: 161.96 KB
    Downloads: 830

    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


    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