Excel VBA κώδικα να εμφανίζονται μηδενικά

Κάθε κύριο προϊόν του Microsoft Office , όπως το Microsoft Excel , έρχεται με ένα συμπεριλαμβάνονται γλώσσα προγραμματισμού Visual Basic for Applications ή VBA . Εάν χρειάζεστε για να ολοκληρώσετε μια επαναλαμβανόμενη εργασία στο Excel , όπως η αλλαγή ενός μακρύ κατάλογο των κυττάρων για να δείξει μηδενικά μπροστά , μπορείτε να γράψετε ένα πρόγραμμα σε VBA και να ολοκληρώσει το έργο μόνο με το πάτημα ενός κουμπιού . Τι είναι το αρχικό μηδενικά ;
Η

μηδενικά που προηγούνται είναι μηδενικά που έρχονται πριν από έναν αριθμό , όπως τα δύο μηδενικά στο " 001234 ". Αυτά τα μηδενικά δεν έχουν καμία αξία , προφανώς , έτσι ώστε να μην αλλάξει τον αριθμό σε κάθε πραγματικό τρόπο ? Απλά να αλλάξετε την εμφάνιση του αριθμού . Κορυφαίοι μηδενικά στο Excel μπορεί να είναι χρήσιμο εάν χρειάζεστε μια μακρά σειρά των αριθμών που περιλαμβάνουν όλες τον ίδιο αριθμό ψηφίων , ανεξάρτητα από την πραγματική τους αξία , γιατί ένας τύπος κάπου στο φύλλο εργασίας χρησιμοποιεί ένα ορισμένο ψηφίο να εκτελέσει μια λειτουργία .
< br >
απαιτήσεις κώδικα VBA
Η

Όταν δημιουργείτε μια μακροεντολή στη VBA , όπως μία για να προσθέσετε μηδενικά μπροστά σε μια σειρά αριθμών , υπάρχουν μόνο λίγες απαιτήσεις που πρέπει να πάρετε σωστά . Πρώτα, ανοίξτε το πρόγραμμα επεξεργασίας VBA πατώντας το πλήκτρο " Alt " και " F11 ", στη συνέχεια, κάντε δεξί κλικ στο φύλλο εργασίας σας και τοποθετήστε μια μονάδα . Μακροεντολές VBA είναι πάντα καταγράφονται σε ενότητες . Κάντε κλικ στη μονάδα και κάντε κλικ στο λευκό χώρο στη δεξιά πλευρά της οθόνης . Πληκτρολογήστε τον ακόλουθο κώδικα : Sub

LZero ( )

Αλλαγή " LZero " σε ό, τι όνομα θέλετε μακροοικονομική σας για να έχετε . Πατήστε το πλήκτρο " Enter" και το Excel θα προσθέσει αυτόματα " End Sub" κάτω από αυτή τη γραμμή . Τώρα έχετε όλες τις απαιτήσεις για τον κωδικό σας VBA .

Η Δεξιά Λειτουργία και Συνένωση
Η

Για να προσθέσετε αρχικά μηδενικά σε ένα κελί , μπορείτε να χρησιμοποιήσετε το σωστό λειτουργεί , μαζί με μια απλή αλληλουχία . Η προσθήκη αυτού του τύπου σε ένα νέο στήλη μπορεί να είναι μια απλή διαδικασία στο Excel , αλλά όταν θα πρέπει να το κάνουμε σε VBA , γίνεται λίγο πιο περίπλοκη . Πληκτρολογήστε τον ακόλουθο κώδικα μεταξύ του " Sub Lzero ( ) " και " End Sub " γραμμές :

Dim x As Integer

y As Integer Dim

Για x = 1 Για να 10

y = Cells ( x , 1 ) . Value

Cells ( x , 1 ) . FormulaR1C1 = " = RIGHT ( " " 00000 " " & " & y & " , 6 ) "

Επόμενο

Αλλάξτε τους αριθμούς σε " 1 μέχρι 10 " να είναι ίσες με τις γραμμές που θέλετε να ξεκινήσει και να τελειώσει τον τύπο σας . Έτσι, εάν θέλετε να ξεκινήσετε σε κελί " A5 " και λήγει στις " Α15 ", θα αλλάξει αυτό " 5-15 " :

Για x = 5 Σε 15

Αλλαγή της " 1 " και στις δύο περιπτώσεις " Cells ( x , 1 ) " να είναι ίσος με τον αριθμό της στήλης στην οποία θέλετε να προσθέσετε μηδενικά . Στήλη "Α " είναι το ίδιο με το " 1 ", και κάθε στήλη περαιτέρω προς τα δεξιά προσθέτει ένα ακόμη στον αριθμό .

Τέλος , η αλλαγή του " 6 " στο τέλος του κώδικα για να είναι ίσο με το συνολικό αριθμό των ψηφίων που θέλετε ο αριθμός σας να έχει , και να αλλάξει το " 00000 " να έχουν ένα λιγότερο από το μηδέν τα ψηφία συνολικά . Κλείστε το πρόγραμμα επεξεργασίας VBA χρησιμοποιώντας το " Χ " στο πάνω μέρος του παραθύρου . Εκτελέστε τον κωδικό σας , κάνοντας κλικ στο κουμπί "Macro " κάτω από την καρτέλα Προγραμματιστής .
Εικόνων Selection.NumberFormat
Η

Μπορείτε επίσης να αλλάξετε τη μορφή αριθμού για να εμφανίζονται μηδενικά . Αυτό λειτουργεί ακριβώς όπως θα κάνατε αν ήσασταν στο δεξί κλικ στο κελί , επιλέξτε " Μορφοποίηση κελιών " και να δημιουργήσετε μια προσαρμοσμένη μορφή αριθμού . Πληκτρολογήστε τον ακόλουθο κώδικα μεταξύ της « Υπο Lzero " και " End Sub " γραμμές :

Selection.NumberFormat = " 000000 "