Excel VBA Code à afficher zéros

Quels sont zéros?

• Les zéros de tête sont des zéros qui viennent avant un certain nombre, comme les deux zéros "001234." Ces zéros ont pas de valeur, de toute évidence, ils ne changent pas le nombre réel de toute waypoint ils ont juste changer l'apparence du nombre. Les zéros de tête dans Excel peuvent être utiles si vous avez besoin d'une longue plage de nombres qui contiennent tous le même nombre de chiffres, indépendamment de leur valeur réelle, car une formule quelque part sur la feuille de calcul utilise un certain chiffres pour exécuter une fonction.

Exigences code VBA

• Lorsque vous créez une macro VBA, comme celle d'ajouter des zéros à gauche sur une plage de numéros, il ya seulement quelques exigences que vous devez obtenir le droit. Tout d'abord, ouvrir l'éditeur VBA en appuyant "Alt" et "F11," puis cliquez-droit sur votre feuille de calcul et insérer un module. Macros VBA sont toujours enregistrées dans les modules. Cliquez sur le module et cliquez sur l'espace blanc sur le côté droit de l'écran. Tapez le code suivant:

  Sous LZero ()

  Changement "LZero" pour le nom que vous voulez que votre macro à avoir. Appuyez "Entrer" et Excel ajoutera automatiquement "End Sub" sous cette ligne. Vous avez maintenant toutes les exigences énoncées pour votre code VBA.

Fonction de droite et Concatenate

• Pour ajouter des zéros devant une cellule, vous pouvez utiliser la fonction droite, avec un enchaînement simple. L'ajout de cette formule pour une nouvelle colonne peut être un processus simple dans Excel, mais quand vous avez besoin de le faire dans VBA, il devient un peu plus compliqué. Entrez le code suivant entre le "Sous Lzero ()" et "End Sub" lignes:

  Dim x As Integer

  Dim y As Integer

  Pour x = 1 à 10

  
  
  
  
  

  y = cellules (x, 1) .Value

  Cellules (x, 1) = .FormulaR1C1 "= DROITE (""00000"" & " & y & ", 6)"

  Suivant

  Changez les numéros en "1 à 10" d'être à la hauteur des lignes que vous souhaitez pour commencer et terminer votre formule sur. Donc, si vous voulez commencer sur la cellule "A5" et se terminera le "A15," vous souhaitez changer cela en "5 à 15":

  Pour x = 5 à 15

  Changer la "1" dans les deux cas de "Les cellules (x, 1)" être égal au nombre de la colonne à laquelle vous souhaitez ajouter les zéros. Colonne "UN" est le même que "1," et chaque colonne plus à droite ajoute une plus le nombre.

  Enfin, changer le "6" à la fin du code pour être égal au nombre total de chiffres que vous voulez le nombre d'avoir, et de changer le "00000" d'avoir un de moins que le total de zéro chiffres. Fermez l'éditeur VBA utilisant le "X" dans la partie supérieure de la fenêtre. Exécuter votre code en cliquant sur le "Macro" bouton sous l'onglet Développeur.

Selection.NumberFormat

• Vous pouvez également modifier le format de nombre pour afficher les zéros de tête. Cela fonctionne exactement comme il le ferait si vous deviez cliquez-droit sur la cellule, sélectionnez "Format de cellule" et de créer un format de nombre personnalisé. Entrez le code suivant entre le "Sous Lzero" et "End Sub" lignes:

  Selection.NumberFormat = "000000"

  Changez le nombre de zéros à être égal au nombre de chiffres totaux vous voulez que les numéros d'avoir. Depuis ce processus va changer le format de la cellule, et pas seulement le nombre, tout nouveau numéro que vous tapez dans ces cellules aura vos zéros de tête. Avant d'exécuter cette macro, vous devrez sélectionner les cellules qui doivent être modifiés par la macro.