Chaque produit majeur de Microsoft Office , tels que Microsoft Excel, est livré avec un langage de programmation inclus appelé Visual Basic pour Applications, ou VBA. Si vous avez besoin pour effectuer une tâche répétitive dans Excel , comme changer une longue liste de cellules à afficher des zéros , vous pouvez écrire un programme en VBA et compléter la tâche avec juste le clic d'un bouton. Quelles sont les zéros ?
Les zéros sont des zéros qui viennent avant un certain nombre , comme les deux zéros " 001234 ". Ces zéros n'ont aucune valeur , évidemment , de sorte qu'ils ne changent pas le nombre réel de quelque façon , ils ont juste changer l'apparence du numéro. Les zéros dans Excel peut être utile si vous avez besoin d'une longue série 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 chiffre d'exécuter une fonction .
code VBA exigences
Lorsque vous créez une macro en VBA , comme celle d'ajouter des zéros sur une plage de nombres , il ya seulement quelques exigences que vous avez à faire droit . Tout d'abord, ouvrir l'éditeur VBA en appuyant sur " Alt" et " F11 ", puis clic-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 sur "Entrée " et Excel ajoute automatiquement "End Sub " sous cette ligne. Vous avez maintenant toutes les exigences de votre code VBA.
Fonction Droite et Concatenate
Pour ajouter des zéros à une cellule, vous pouvez utiliser le droit fonction, le long d'une simple concaténation . L'ajout de cette formule pour une nouvelle colonne peut être un processus simple dans Excel, mais quand vous avez besoin de le faire en VBA , il devient un peu plus compliqué . Entrez le code suivant entre le «sous Lzero ()" et "End Sub " lignes : Trouvez
x As Integer
y As Integer
Pour x = 1 To 10 & y =
Cells ( x , 1). Valeur
Cells ( x , 1). FormulaR1C1 = " = RIGHT (" " 00000 " "& " & y & ", 6) "
Suivant
Changer les numéros en " 1 à 10 " pour être égal aux lignes que vous souhaitez commencer et terminer votre formule sur . Donc, si vous souhaitez démarrer sur la cellule "A5" et à la fin sur " A15 ", vous devez changer cela en " 5 à 15 ":
Pour x = 5 à 15
changer le " 1 " dans les deux cas de« cellules (x, 1) " pour être égal au nombre de la colonne à laquelle vous souhaitez ajouter des zéros . Colonne «A» est le même que "1", et chaque colonne vers la droite ajoute un plus à ce numéro.
Enfin, changer le "6" à la fin du code à être égale à la nombre total de chiffres que vous voulez le nombre d'avoir, et de changer le "00000" d'avoir un moins zéro que le total des chiffres. Fermez l'éditeur VBA en utilisant le " X " en haut de la fenêtre. Exécuter votre code en cliquant sur le bouton "Macro" sous l'onglet Développeur .
Selection.NumberFormat
Vous pouvez également modifier le format numérique pour afficher des zéros . Cela fonctionne exactement comme il le ferait si vous étiez à un clic 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 lignes de " End Sub " :
Selection.NumberFormat = "000000"
Changer le nombre de zéros pour être égal au nombre de total des chiffres vous voulez que les numéros à avoir. Comme ce processus va changer le format de la cellule , et pas seulement le nombre , tout nouveau numéro que vous entrez dans ces cellules aura vos zéros . Avant d'exécuter cette macro, vous devrez sélectionner les cellules qui doivent être changées par la macro .
