Το έργο αθροίζει τους αριθμούς σε μια σειρά πάνω από το ενεργό κελί , εισάγοντας το άθροισμα στο ενεργό κελί . Για να ξεκινήσει αυτό το έργο , δημιουργούν τα στοιχεία για αυτό - τους αριθμούς που πρέπει να αθροίζονται . Σε ένα φύλλο εργασίας του Excel , πληκτρολογήστε οποιαδήποτε πέντε αριθμούς σε μια στήλη . Επιλέξτε το πρώτο κενό κελί κάτω από τη στήλη των αριθμών .
Τώρα , δημιουργούν το πρόγραμμα της Visual Basic που θα άθροισμα αυτών των αριθμών .
Εικόνων Εισάγετε τον κωδικό στο Περιβάλλον Ανάπτυξης
Εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) πιέζοντας Alt - F11 . Στο παράθυρο κώδικα , πληκτρολογήστε αυτή τη λειτουργία :
Sub Macro1 ( )
Dim s Όπως StringDim o Όπως RangeDim p Όπως Σειρά
Set o = ActiveCell.Offset ( -1 ) Σετ p = o.End ( xlUp ) Ορισμός q = Range ( o , p)
s = " = μέση ( " & q.Address & " ) "
ActiveCell.Formula = s
End Sub
Αυτός ο κώδικας του προγράμματος είναι ισοδύναμο με το χέρι εισάγοντας τις παρακάτω κείμενο στο κελί που επιλέξατε νωρίτερα : " = άθροισμα (
) ", όπου αναφέρεται στη στήλη των αριθμών που έχετε εισάγει . Εκτελέστε τη μακροεντολή με την επιστροφή στο φύλλο εργασίας του Excel , επιλέγοντας Developer > μακροεντολές , επιλέγοντας Macro1 , και πατώντας το κουμπί Run . Macro σας συνοψίζει τη στήλη των αριθμών , εισέρχεται το αποτέλεσμα στο τρέχον ενεργοποιημένο κύτταρο . ( Εάν δεν βλέπετε την καρτέλα Προγραμματιστής , την εκθέτετε επιλέγοντας το κουμπί Office στην επάνω αριστερή γωνία του Excel , η επιλογή Επιλογές του Excel , και το " Εμφάνιση καρτέλας Προγραμματιστής στην κορδέλα . " )
Εικόνων
έργο Two : . Χρησιμοποιήστε ένα Φόρμα
Η
το δεύτερο έργο βασίζεται στο πρώτο , επιτρέποντας στο χρήστη του προγράμματός σας μια επιλογή από λειτουργίες
πληκτρολογήστε ξανά το Visual Basic IDE και επιλέξτε Εισαγωγή > UserForm . Σύρετε τα ακόλουθα στοιχεία ελέγχου στη φόρμα από την Εργαλειοθήκη : ένα πλαίσιο λίστας και ένα κουμπί . Πατήστε F7 για να επιστρέψετε στην προβολή κώδικα , και επιλέξτε UserForm από το αριστερό drop-down box στο άνω τμήμα του παραθύρου κώδικα , και να προετοιμαστεί από τη δεξιά αναπτυσσόμενο πλαίσιο . Ο IDE δημιουργεί την UserForm_Initialize υπο-λειτουργία ( ) . Σε αυτή τη λειτουργία , πληκτρολογήστε το κωδικό , ο οποίος προσθέτει στον κατάλογο των τιμών τα ονόματα των λειτουργιών , ο χρήστης θα επιλέξει από :
ListBox1.AddItem " άθροισμα " ListBox1.AddItem " μέσο όρο "
Χρησιμοποιήστε το αριστερά και δεξιά κιβώτια drop-down παράθυρο κώδικα για άλλη μια φορά , επιλέγοντας CommandButton1 από την αριστερή drop-down , και κάντε κλικ από τη δεξιά αναπτυσσόμενο πλαίσιο . Ο IDE δημιουργεί το άδειο CommandButton1_Click λειτουργία ( ) . Εισάγετε τον παρακάτω κωδικό σε αυτή τη λειτουργία , η οποία θα καλέσει την αρχική macro1 που έγραψε με τη λειτουργία που επιλέγει ο χρήστης από το πλαίσιο λίστας :
Macro1 ( ListBox1.Value )
Τροποποίηση Macro1 να δεχθεί μια επιχείρημα : Κάντε δεξί κλικ στο " Macro1 " κείμενο και επιλέξτε ορισμός για να περιηγηθείτε στον ορισμό Macro1 . Αλλάξτε τη γραμμή " Sub Macro1 ( ) " να γραφεί " Sub Macro1 ( λειτουργία Όπως String ) "
Τώρα που έχετε προσθέσει το επιχείρημα , να τροποποιήσει Macro1 να το χρησιμοποιήσετε : αλλάξτε = δήλωση του s " = μέση ( " & q.Address & " ) " ως εξής :
s = " = " & λειτουργία & " ( " & q.Address & " ) "
εικόνων Γράψτε το λειτουργία που Φορτώνει το Έντυπο
Η
Εισάγετε τη νέα αυτή λειτουργία κάτω macro1 :
Sub Macro2 ( ) UserForm1.ShowEnd Sub
Επιστροφή στο Excel ( alt - F11 ) και τοποθετήσετε το δρομέα κάτω από τη στήλη των αριθμών . Εμφανίστε το userform επιλέγοντας Developer > μακροεντολές και επιλέγοντας Macro2 και Run . Όταν εμφανιστεί η φόρμα , να επιλέξουν είτε το ποσό ή τη μέση λειτουργία και πατήστε το κουμπί . Το πρόγραμμά σας θα εισαγάγετε τον τύπο στο φύλλο εργασίας . Ο τύπος συνοψίζει τα δεδομένα από τη στήλη πάνω από το ενεργό κελί .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα