Για να προετοιμάσετε μια αναφορά παρακολούθησης με φύλλο Excel
Για να προετοιμάσετε μια αναφορά παρακολούθησης με φύλλο Excel
- Θέμα
- Λύση
- Σημείωση
Θέμα
Έχω 60 κατοίκους που εργάζονται στο τμήμα μας. Παρακολουθούν πρωινή έκθεση κάθε μέρα. Έτσι έχω ετοιμάσει ένα φύλλο Excel (Πίνακας ονομαζόμενης παρουσίας) το οποίο έχει στήλες A1: A60 με τα ονόματα των κατοίκων B1: B60 με το ποσοστό συμμετοχής για ένα μήνα. Η δουλειά μου είναι να προετοιμάσω μια αναφορά συμμετοχής για κάθε κάτοικο. Έχω ετοιμάσει ένα πρότυπο για την έκθεση παρουσίας. Τώρα θέλω να τρέξω μια μακροεντολή η οποία θα κάνει τα εξής:1. Ανοίξτε ένα νέο φύλλο εργασίας από το πρότυπο στο βιβλίο εργασίας το οποίο έχει "φύλλο εργασίας του πίνακα παρουσίας"
2. Πρέπει να φέρει τα δεδομένα από το φύλλο εργασίας "Πίνακας Συμμετοχής"
ένα. Από την πρώτη στήλη A1 και βάλτε το πεδίο Όνομα στο πρότυπο (νέο φύλλο εργασίας άνοιξε στο πρώτο στάδιο) (πάντα D6)
σι. Φέρτε δεδομένα από το B1 και τοποθετήστε το ποσοστό του πεδίου του προτύπου (F10)
ντο. Θα πρέπει να μετονομάσετε την καρτέλα φύλλου εργασίας με δεδομένα από το A1 (δηλαδή το όνομα του κατοίκου)
3. Θα επαναλάβει το βήμα 2 μέχρι να φτάσει στο κενό κελί
Μπορεί κάποιος να με βοηθήσει να γράψω τη μακροεντολή.;
Λύση
Msgstr "Παρακολούθηση Υποτροφία Συμμετοχής σε'Άνοιγμα νέου φύλλου εργασίας που ονομάζεται φύλλο εργασίας συμμετοχής
«Με τα δεδομένα από τον Πίνακα Συμμετοχής
"Όνομα κατοίκου στο D6
«Ποσοστό παρακολούθησης για ένα μήνα στο F10
'Μετονομάστε το όνομα του κατοίκου και αρχίστε ξανά
"Για όλους τους κατοίκους στο τραπέζι
Αναφορά Συμμετοχής ()
Dim cCell As Object, i As Integer 'Δύο μεταβλητές αντικείμενο cCell (τρέχον κύτταρο) και i (κανονικός αριθμός μέτρησης)
(1, "A") Επιλέξτε "Βεβαιωθείτε ότι ξεκινάμε κάθε φορά στο επάνω μέρος του φύλλου εργασίας
Application.ScreenUpdating = False 'Περιστροφή ενημερώσεων οθόνης κατά τη διάρκεια της λειτουργίας της μακροεντολής
Για κάθε cCell στην περιοχή (Κύτταρα (1, "Α"), Κύτταρα (1, "Α") End (xlDown)) '
Ορίστε NewSheet = Sheets.Add (Type: = xlWorksheet) 'Προσθήκη νέου φύλλου εργασίας
NewSheet.Name = "Φύλλο εργασίας του πίνακα παρουσίας" "μετονομασία φύλλου εργασίας
Φύλλα ("Φύλλο εργασίας του πίνακα παρουσίας") Κύτταρα (6, "D") Τιμή = cCell.Value '
Τα φύλλα ("Φύλλο εργασίας του πίνακα παρουσίας") Τα κελιά (10, "F") Τιμή = cCell.Offset (0, 1) .Value '
Φύλλα ("Φύλλο εργασίας συμμετοχής") Name = cCell.Value
Επόμενο cCell
End Sub