1 Ανοίξτε το φύλλο εργασίας του Microsoft Excel 2010 . Πατήστε το πλήκτρο " Alt + F11 " για να ανοίξετε την κονσόλα VBA . 2
Επιλέξτε μια μονάδα από τη λίστα στην αριστερή πλευρά . Αν δεν υπάρχει ενότητα , κάντε δεξί κλικ σε ένα φύλλο εργασίας σε λίστα , μετακινήστε το δείκτη του ποντικιού πάνω "Εισαγωγή" και επιλέξτε " Ενότητα ". Επιλέξτε τη μονάδα που εμφανίζεται
εικόνων 3
Πληκτρολογήστε " υπο δοκιμή ( ) " στην πρώτη γραμμή της μονάδας και πιέστε . " Enter". Αλλαγή « δοκιμή» σε ό, τι λέξη που θέλετε , όπως είναι απλά το όνομα της υπορουτίνας . Excel VBA προσθέτει αυτόματα την εντολή " End Sub" στην τελευταία γραμμή της ενότητας .
Η 4
Τύπος "Dim x ως φάσμα " στην επόμενη γραμμή . Αυτό θα δημιουργήσει "x " ως μεταβλητή , η οποία θα πρέπει στην επόμενη δήλωση
5
Τύπος " Για κάθε x σε σειρά ( " XX : YY " ) " . Στην επόμενη γραμμή . Αλλαγή " XX " στην κορυφή, αριστερά κελί της περιοχής που θέλετε να εργαστείτε με και " YY " στο κελί κάτω δεξιά . Αυτό θα δημιουργήσει μια θηλιά που θα περάσουν από κάθε κελί της περιοχής ένα προς ένα .
Η 6
Τύπος "Αν IsEmpty ( x ) Στη συνέχεια, τα υπόλοιπα XXX YYY " στην επόμενη γραμμή . Αλλαγή "XXX " και " YYY " σε ό, τι κώδικα που θέλετε να εκτελέσετε . Η εντολή IsEmpty θα ελέγχει κάθε κύτταρο και να εκτελέσει την ενέργεια μετά το " τότε " εάν το κελί είναι άδειο . "Διαφορετικά ", και ο κώδικας μετά από αυτό, είναι προαιρετική.
Η 7
Τύπος " Next" για την επόμενη γραμμή . Αυτό λέει το Excel για να βρόχο πίσω στο " Για " δήλωση και να προχωρήσουμε στο επόμενο κελί .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα