Πώς να γράψετε ένα Macro Κωδικοποίηση MS Excel

μακροεντολές είναι κομμάτια κώδικα που μπορεί να τρέξει επαναλαμβανόμενες εργασίες μέσα από το βιβλίο εργασίας του Excel . Μαθαίνοντας να γράψει ένα Macro για το Excel θα σας δοθεί η δυνατότητα να αναλάβει τον έλεγχο των εγγράφων και δεδομένων που λειτουργούν σε καθημερινή βάση . Εν ολίγοις , αυτό το άρθρο θα καθοδηγήσει τον αναγνώστη για το πώς να δημιουργήσει τα κομμάτια του κώδικα που θα φέρει επανάσταση multitasking εμπειρία σας με το Excel . Οι μακροεντολές παράγουν ένα συγκεκριμένο αποτέλεσμα στα έγγραφα του Excel . Η γλώσσα που χρησιμοποιείται σε μακροεντολές είναι Visual Basic for Applications ( VBA ) . Θα χρησιμοποιήσετε αυτή τη γλώσσα για να δημιουργήσουν ενότητες που συνδέονται με το βιβλίο εργασίας του Excel , όπου θα αποθηκεύσετε μακροεντολές σας . Οι μακροεντολές θα προσθέσει πραγματικά τη λειτουργικότητα και την ευκολία χρήσης στα έγγραφα του Excel . Με τις μακροεντολές , μπορείτε να οργανώσετε πολλαπλά φύλλα δεδομένων σε ένα φύλλο δεδομένων ή να διατυπώσει σε ένα φύλλο για να ικανοποιεί καμία από τις απαιτήσεις των χρηστών σας . Οδηγίες
Γράψτε μια μακροεντολών στο MS Excel Χρήση του Επεξεργαστή VBA
Η

1 Κάντε κλικ στο drop -down μενού Εργαλεία στο Excel . Σημείο στο "Macro " . Κάντε κλικ στο " Επεξεργασία Visual Basic " . 2

Δημιουργήστε μια θέση για να αποθηκεύσετε τη μακροεντολή σας . Στο μενού Εισαγωγή του επιμελητή VBA , κάντε κλικ στο κουμπί " Module" . Η μονάδα θα ανοίξει σε νέο παράθυρο . Αυτή η ενότητα θα στεγάσει τη μακροεντολή που θα έχετε την ευκαιρία να γράψει . Η μονάδα είναι πραγματικά αποθηκεύονται σε ένα φάκελο με την ένδειξη " VBA Project" .
Εικόνων 3

Πληκτρολογήστε τη λέξη " Sub " στο κενό παράθυρο . Μην γράψετε πάνω από το κείμενο που διαβάζει "End Sub" . Μετά την Sub , πληκτρολογήστε ένα όνομα για τη μακροεντολή σας , όπως το " MyLoopMacro " . Ένας βρόχος είναι ο ευκολότερος macro για να γράψει . Ένας βρόχος θα μετρήσει τις γραμμές αυτόματα μέχρι να φτάσει σε ένα συγκεκριμένο σημείο για να σταματήσει . Αυτό μπορεί να είναι χρήσιμο για τα μεγάλα ποσά των δεδομένων σε ένα υπολογιστικό φύλλο .
Η 4

Πείτε το βρόχο για να σταματήσει σε ένα κενό κελί . Στο παράθυρο VBA , πληκτρολογήστε τον ακόλουθο κώδικα : Κάντε Ενώ Cells ( x , 1 ) . Αξία <> " " X = x + 1 Y = y + 1 Loop
5

Πείτε macro σας που θέλετε η λέξη "Όνομα" να εμφανίζεται πιο σκούρο από το υπόλοιπο κείμενο σε όλη βιβλίο εργασίας του Excel . Προσθέστε τον ακόλουθο κώδικα στο πρόγραμμα επεξεργασίας VBA : IfMyCell.Value Like " Name" Τότε MyCell.Font.Bold = True End If
Η 6

Κωδικός macro σας για να κάνουμε περισσότερα με τα κύτταρα σε ένα φύλλο εργασίας . Αυτό είναι μόνο ένα παράδειγμα , αλλά αυτό που μπορείτε να χρησιμοποιήσετε για μια σειρά από πράγματα σε μια μακροεντολή . Θα έχετε την ευκαιρία να γράψει κώδικα που θα συνδυάζουν δύο κελιά σε ένα πρόσθετο κύτταρο . Αυτό θα μπορούσε να είναι πολύτιμη, αν έχετε ένα υπολογιστικό φύλλο που μπορεί να συνδυάσει την πρώτη και την τελευταία ονόματα , στοιχεία για το ζεύγος μαζί ή για οποιονδήποτε άλλο λόγο θα θέλατε να μεταφέρουν δεδομένα σε μία άλλη στήλη στο φύλλο εργασίας . Πληκτρολογήστε τον ακόλουθο κώδικα στο πρόγραμμα επεξεργασίας VBA : Sub LoopRange1 ( ) X = 3 Do Ενώ Cells ( x , 3 ) . Αξία <> " "
Η 7

Προσθέστε επιπλέον κώδικα μακροεντολών σας . Μέχρι τώρα έχετε εκχωρήσει την τιμή "x " για να ξεκινήσει σε σειρά 3 στο φύλλο εργασίας σας . Έχετε δημιουργήσει επίσης μια εντολή για το βρόχο μέχρι μια κενή γραμμή ανακαλύπτεται από τη μακροεντολή . Στη συνέχεια, πληκτρολογήστε τις ακόλουθες τρεις γραμμές κώδικα για να μεταφέρουν τις τιμές των τρίτη και τέταρτη στήλη μαζί με ένα διάστημα μεταξύ τους στην πέμπτη στήλη : Κύτταρα (x, 5 ) . Value = Cells ( x , 3 ) . Τιμή + _ " " + κύτταρα (x, 4 ) . Αξία x = x + 1
8

Κάντε τα κύτταρα αλλάζουν χρώμα για να υποδείξει μια λέξη που ανακαλύφθηκαν σε ένα υπολογιστικό φύλλο . Αυτό θα μπορούσε να είναι πολύ χρήσιμο για την εύρεση συγκεκριμένων δεδομένων που έχουν εισαχθεί από την εμπορία . Τώρα έχετε την ευκαιρία να δημιουργήσετε τη μεταβλητή στον κώδικά σας να ψάξουν για τη λέξη «ανταγωνιστή» στο φύλλο εργασίας . Πληκτρολογήστε τον ακόλουθο κώδικα στο παράθυρο VBA : Sub LoopRange2 ( ) Dim CompetitorCell Όπως Σειρά Αυτός ο κωδικός δηλώνει τη μεταβλητή " CompetitorCell " . Τώρα πατήστε " Enter " για να δημιουργήσετε ένα χώρο ανάμεσα στην τελευταία σειρά του κειμένου στον κώδικά σας . Πληκτρολογήστε τον ακόλουθο κώδικα . Εάν CompetitorCell.Value Like " * Ανταγωνιστής * " Τότε MyCell.Interior.ColorIndex = 3 ElseIf MyCell.Value Like " * Movie * «Τότε Mycell.Interior.ColorIndex = 4 ElseIf MyCell.Value = " " τότε MyCell.Interior.ColorIndex = xINone Else ? MyCell.Interior.ColorIndex = 5 End If Next End Sub
Η 9

Δημιουργήστε μια μακροεντολή που θα διαγράψει διπλότυπα δεδομένα στο φύλλο εργασίας σας . Αυτό μπορεί να είναι θαυμάσια για την παρακολούθηση διπλούς λογαριασμούς στο σύστημα φύλλο σας . Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε και να δοκιμάσουν τη δική σας macro . Sub LoopRange3 ( ) X = Y = ActiveCell.Row x + 1 Do Ενώ Cells ( x , 4 ) . Αξία <> " " Do While Cells ( y , 4 ) . Value <> "" Αν (κύτταρα (x, 4 ) . Value = Κύτταρα ( y , 4 ) . Value) _ Και (κύτταρα (x, 6 ) . Value = _ Cells ( y , 6 ) . Value) Στη συνέχεια, τα κύτταρα ( y , 4 ) . EntireRow.Delete Else y = y + 1 End If Loop & # xD ? x = x +1 y = x +1 Loop End Sub

10

Κλείστε το παράθυρο VBA . Κάντε κλικ στο κουμπί Αποθήκευση . Macro σας έχει δημιουργηθεί . Ο κώδικας γίνεται εύκολα κατανοητό όταν ασκείτε με αυτό . Το μόνο που χρειάζεται να κάνετε είναι να αλλάξετε τα ονόματα των μεταβλητών , τις εντολές βρόχου και τα κελιά στο φύλλο εργασίας που θέλετε μακροεντολές σας για να εκτελέσει μια εργασία με .
Εικόνων Αντιστοίχιση μιας υπάρχουσας μακροεντολής σε ένα αντικείμενο στο Excel

11

κάντε δεξί κλικ σε οποιοδήποτε αντικείμενο κασσίτερο φύλλο εργασίας σας , όπως ένα γράφημα , γράφημα ή το λογότυπο της εταιρείας .
Η 12

αριστερό κλικ " Αντιστοίχιση μακροεντολής " . Ένα μενού side- out εμφανίζεται μετά κάνετε δεξί κλικ , τα οποία στη συνέχεια μπορείτε να επιλέξετε επιλογές από . Σε αυτή την περίπτωση , απλά κάντε κλικ στο κουμπί " Αντιστοίχιση μακροεντολής " .
Η 13

Κάντε κλικ στην μακροεντολή που θέλετε να μεταφέρετε από το πλαίσιο Όνομα μακροεντολής .
Εικόνων Διαγραφή από το Excel Macro

14

Κάντε κλικ στο μενού Αρχείο του Excel . Κάντε κλικ στο " Άνοιγμα βιβλίου εργασίας " . Εάν το βιβλίο εργασίας είναι κρυμμένο στο βιβλίο εργασίας μακροεντολών Personal.xlsb , τότε θα πρέπει να εμφανίσετε το βιβλίο εργασίας .
Η 15

Κάντε κλικ στο "Προβολή" , στη συνέχεια, κάντε κλικ στο κουμπί « Επανεμφάνιση » .
Η 16

Κάντε κλικ στο " PERSONAL" κάτω από την καρτέλα βιβλία εργασίας Επανεμφάνιση και , στη συνέχεια, κάντε κλικ στο " OK" .
εικόνων Δημιουργία Macro από μια υπάρχουσα μακροεντολή
Η 17

Ανοίξτε το βιβλίο εργασίας που περιέχει μια υπάρχουσα μακροεντολή που θέλετε να αντιγράψετε ένα τμήμα της για την νέα μακροεντολή σας .
Η 18

Κάντε κλικ στο " Μακροεντολές " . Αυτό βρίσκεται στην καρτέλα Προγραμματιστής στα Windows Vista ή κάτω από τα εργαλεία για άλλες εκδόσεις των Windows .
Η 19

Κάντε κλικ στο όνομα της μακροεντολής που θέλετε να επεξεργαστείτε .
20

Κάντε κλικ στο κουμπί "Επεξεργασία" .
Η 21

Επιλέξτε τον κωδικό από το παράθυρο κώδικα που ανοίγει με το ποντίκι σας . Πατήστε Ctrl + C για να αντιγράψετε την επιλογή . Κάντε κλικ στην ενότητα στο πλαίσιο διαδικασίας στην οποία θέλετε να τοποθετήσετε τον κώδικα αντιγράφονται . Κάντε κλικ στο κουμπί Ctrl + V για να επικολλήσετε τον κώδικα .
Η
εικόνων