Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για να τακτοποιήσουμε δεδομένα ανά ημέρα σε πολλά φύλλα.
Τα ακατέργαστα δεδομένα για αυτό το άρθρο περιλαμβάνουν δεδομένα πωλήσεων της ομάδας ανά ημέρα, τα οποία περιλαμβάνουν ημερομηνία, όνομα αντιπροσώπου και αριθμό πωληθέντων.
Θέλουμε να διανείμουμε τα δεδομένα ανά ημέρα σε πολλά φύλλα. Κάνοντας κλικ στο κουμπί "Διανομή δεδομένων ημερησίως", θα κάνετε το ίδιο.
Επεξήγηση κώδικα
Κάντε μέχρι το IsEmpty (Φύλλα εργασίας (1). Κελιά (intRowS, 1))
Βρόχος
Στον παραπάνω κώδικα, ο κύκλος Do Until θα κάνει βρόχο μέχρι να βρεθεί ένα κενό κελί.
strTab = Μορφή (Κελιά (intRowS, 1). Αξία, "ddmmyy")
Ο παραπάνω κώδικας χρησιμοποιείται για την εξαγωγή ονόματος φύλλου από την ημερομηνία.
intRowT = Φύλλα εργασίας (strTab). Κελιά (Rows.Count, 1). End (xlUp). Row + 1
Ο παραπάνω κώδικας χρησιμοποιείται για να λάβει τον αριθμό σειράς του τελευταίου κελιού.
Ακολουθήστε παρακάτω για τον κωδικό
Sub Divide () 'Δήλωση μεταβλητών Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Initializing with start number number intRowS = 10 'Έλεγχος αν το κελί στην πρώτη στήλη είναι άδειο Do Until IsEmpty (Φύλλα εργασίας (1). Κελιά (intRowS, 1)) 'Λήψη ονόματος του φύλλου με βάση την τιμή ημερομηνίας στην πρώτη στήλη strTab = Μορφή (Κελιά (intRowS, 1). Τιμή, "ddmmyy")' Λήψη του αριθμού σειράς του τελευταίου κελιού intRowT = Φύλλα εργασίας (strTab). Κελιά (Rows.Count, 1). End (xlUp). Row + 1 'Αντιγραφή δεδομένων σε αντίστοιχες σειρές φύλλων (intRowS). Αντιγραφή φύλλων εργασίας (strTab). Σειρές (intRowT) intRowS = intRowS + 1 Loop End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email