Cada produto Microsoft Office principal , como o Microsoft Excel, vem com uma linguagem de programação chamada incluído o Visual Basic for Applications, ou VBA. Se você precisa para completar uma tarefa repetitiva em Excel , como alterar uma longa lista de células para mostrar os zeros à esquerda , você pode escrever um programa em VBA e completar a tarefa com apenas o clique de um botão. Quais são Zeros Leading ?
Zeros à esquerda são zeros que vêm antes de um número, como os dois zeros " 001234 ". Estes zeros não têm valor , obviamente , para que eles não alterar o número em qualquer forma real , pois eles só alterar a aparência do número. Os zeros à esquerda no Excel pode ser útil se você precisar de uma longa série de números que todos contêm o mesmo número de dígitos , independentemente do seu valor real , porque uma fórmula em algum lugar da planilha usa um determinado dígito para executar uma função.
requisitos Código VBA
Quando você está criando uma macro em VBA , como um para adicionar zeros à esquerda em um intervalo de números , existem apenas alguns requisitos que você tem que ficar direita. Primeiro, abra o editor de VBA com a tecla " Alt " e " F11 ", clique com o botão direito em sua planilha e inserir um módulo. Macros VBA são sempre registados em módulos. Clique no módulo e clique no espaço em branco do lado direito da tela. Digite o seguinte código:
Sub LZero ()
Change " LZero " para o nome que você quer que seu macro de ter. Pressione "Enter" e Excel adiciona automaticamente " End Sub " abaixo desta linha. Agora você tem todos os requisitos estabelecidos para o seu código VBA.
Função Right e Concatenate
Para adicionar zeros à esquerda para uma célula , você pode usar o Direito funcionar , junto com uma concatenação simples. Adicionando esta fórmula para uma nova coluna pode ser um processo simples em Excel, mas quando você precisa fazê-lo em VBA , torna-se um pouco mais complicado . Digite o seguinte código entre o "Sub Lzero ()" e "End Sub " linhas :
Dim x As Integer Dim y
As Integer
Para x = 1 To 10
y = Cells ( x , 1) . Valor
Cells ( x , 1). FormulaR1C1 = " = DIREITA (" "00000 " "& " & y & " , 6) "
Próxima
Alterar os números de " 1 a 10 " para ser igual para as linhas que você deseja iniciar e terminar a sua fórmula em . Então, se você quer começar no celular " A5 " e termina em " A15 ", você deve alterar isso para " 5-15 " :
Para x = 5 a 15
Altere o " 1 " em ambas as instâncias do " Cells ( x, 1) "para ser igual ao número da coluna para a qual você deseja adicionar os zeros à esquerda. Coluna " A" é o mesmo que " 1 ", e cada coluna mais à direita inclui uma mais para o número .
Finalmente , alterar o " 6 " no final do código a ser igual ao número de dígitos totais você deseja que o número de ter, e mude o "00000 " para ter um a menos do que o total de zero dígitos. Feche o editor VBA usando o " X " na parte superior da janela . Execute o seu código clicando no botão "Macro ", sob a guia do desenvolvedor .
Selection.NumberFormat
Você pode também alterar o formato numérico para exibir zeros à esquerda. Isso funciona da mesma forma que faria se estivesse a clicar com o botão direito sobre a célula , selecione " Formatar células " e criar um formato de número personalizado . Digite o seguinte código entre o "Sub Lzero " e "End Sub " linhas :
Selection.NumberFormat = " 000000"
Alterar o número de zeros a ser igual ao número total de dígitos desejar que os números de ter. Uma vez que este processo irá alterar o formato da célula, e não apenas o número, qualquer novo número que você digita para essas células terão seus zeros à esquerda . Antes de executar esta macro, você precisará selecionar as células que devem ser alterados pelo macro.
