Πώς να ξεκινήσετε με το Excel VBA

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

Αν έχετε ποτέ καταγραφεί μια μακροεντολή , μπορείτε ήδη χρήση της VBA . Η Visual Basic επεξεργαστής μεταφράζει τις πληκτρολογήσεις σας σε εντολές VBA . Ο κώδικας που προκύπτει είναι αναποτελεσματική , αλλά μπορεί να σας βοηθήσει να εξοικειωθείτε με τη σύνταξη VBA και εντολές . 2

Στο Excel , καταγράφει μια απλή μακροεντολή. Στο Office XP , επιλέξτε Macro , Record New Macro από το μενού Εργαλεία . ( Στο Excel 2007 , εντολές στην καρτέλα Προγραμματιστής . ) Αλλάξτε το όνομα της μακροεντολής ή αφήστε την προεπιλογή , και πατήστε ΟΚ .
Εικόνων 3

Με το πρόγραμμα καταγραφής μακροεντολών λειτουργίας , τύπου " Hello World " στο κελί A1 . Εφαρμόστε Bold , Italic και υπογράμμισης , και να αλλάξετε το χρώμα της γραμματοσειράς στο κόκκινο . Κάντε διπλό κλικ στο διαχωριστικό των στηλών στη γραμμή κεφαλίδας , μεταξύ των στηλών Α και Β , να αλλάξετε το μέγεθος πλάτος του κυττάρου με το περιεχόμενό της .
Η 4

Απενεργοποιήστε το πρόγραμμα καταγραφής μακροεντολών επιλέγοντας Tools , Macro , Διακοπή εγγραφής .
5

Δοκιμάστε τη μακροεντολή για να βεβαιωθείτε ότι εμφανίζεται το μήνυμα .
εικόνων Εξετάστε καταχωρηθεί Κωδικός
Η

6 κάντε δεξί κλικ στην καρτέλα Φύλλο1 και επιλέξτε Προβολή κώδικα , ή πατήστε Alt - F11 , για να ανοίξετε το πρόγραμμα επεξεργασίας VB , και κάντε διπλό κλικ στην Ενότητα 1 . Μακρο κωδικό σας θα μοιάζει κάπως έτσι : .

Sub Macro1 ( )

ActiveCell.FormulaR1C1 = " Hello World " Range ( " A1" ) SelectSelection.Font.Bold = TrueSelection.Font . Πλάγια = TrueSelection.Font.Underline = xlUnderlineStyleSingleColumns . ( "A: A " ) EntireColumn.AutoFitSelection.Font.ColorIndex = 3

End Sub
Η 7

Σημειώστε ότι η μακροεντολή ξεκινά με " Sub" και τελειώνει με " End Sub ". Κάθε υπορουτίνα VBA αρχίζει και τελειώνει με αυτόν τον τρόπο .
8

Βρείτε εξοικειωμένοι λέξεις-κλειδιά . Από τη στιγμή που ξέρετε τι κάνει αυτή η μακροοικονομική , μπορείτε να υπολογίσετε ότι « Selection.Font.Bold = True " αλλάζει την επιλογή σε έντονη γραμματοσειρά . Μπορείτε επίσης να αναγνωρίσει τις εντολές για να αλλάξετε το μέγεθος της στήλης και να αλλάξετε το χρώμα .
Η 9

Πηγαίνετε πίσω στο Excel και να δοκιμάσετε την καταγραφή μερικές πιο απλές μακροεντολές , κάθε χρόνο προκειμένου να εξετάσει τον κώδικα στο πρόγραμμα επεξεργασίας VB .

Η Ρύθμιση της VB Επιμέλεια
Η 10

ξεκινήσει το πρόγραμμα επεξεργασίας VB πιέζοντας Alt - F11 .
Η 11

Κάντε κλικ σε κάθε στοιχείο μενού στην κορυφή να εξοικειωθείτε με τις διαθέσιμες επιλογές .
Τετάρτη 12

Ρυθμίστε το περιβάλλον σας με επιλογές από το μενού Προβολή . Τουλάχιστον, προσθέστε το παράθυρο Ιδιότητες και την Εξερεύνηση έργου .
Μπορείτε να δέσει στην αριστερή πλευρά της οθόνης , κάνοντας δεξί κλικ και επιλέγοντας " συνδεόμενη ».
Η 13

Δοκιμάστε το πλαίσιο ευαίσθητο χαρακτηριστικό Βοήθεια ανά πάσα στιγμή πατώντας το πλήκτρο F1 .

σχεδιάσετε μια φόρμα
Η 14

Από το μενού Εισαγωγή , επιλέξτε Εισαγωγή UserForm . Το UserForm είναι ο καμβάς σχεδίασης σας .
Η 15

Αν το UserForm δεν εμφανιστεί , πώληση πηγαίνετε στο συντάκτη του έργου και κάντε διπλό κλικ στο " Μορφές ", στη συνέχεια, κάντε διπλό κλικ UserForm1 .
16

Όταν εμφανιστεί το UserForm , θα δείτε επίσης την εργαλειοθήκη , η οποία περιέχει στοιχεία ελέγχου που θα χρησιμοποιήσετε για τη δημιουργία φόρμες σας . Για παράδειγμα , μπορείτε να συμπεριλάβετε κουμπιά , πλαίσια κειμένου , drop- down και ετικέτες . Τοποθετήστε τον κέρσορα πάνω στο καθένα για να δείτε τα ονόματα .
Τετάρτη 17

Προσθέστε μερικές ελέγχου στη φόρμα σας . Για να προσθέσετε ένα πλαίσιο κειμένου , βρείτε στο εργαλείο ασφαλείας, κάντε κλικ σε αυτό , στη συνέχεια, μετακινήστε τον κέρσορα στη Φόρμα χρήστη και σχεδιάστε ένα ορθογώνιο στη φόρμα . Θα δείτε ένα σχήμα που μοιάζει κάτι σαν ένα παράθυρο . Αυτό είναι όπου ο χρήστης θα τεθεί είσοδο του.
Η 18

Τόπος περισσότερα στοιχεία ελέγχου στη φόρμα . Πειραματιστείτε με την αλλαγή μεγέθους και την αναδιάταξη . Για ορισμένα στοιχεία ελέγχου για να λειτουργήσει , θα πρέπει να προγραμματιστεί . Για παράδειγμα , ένα κουμπί " OK" χρειάζεται μια σχετική ακολουθία ενεργειών . Άλλοι έλεγχοι , όπως οι ετικέτες , πρέπει συνήθως ελάχιστα, ενδεχομένως , τον προγραμματισμό
εικόνων Προγράμματος ένα μήνυμα πλαίσιο
19

Η " MsgBox" είναι προκαθορισμένο ? . Δεν θα πρέπει να σχεδιάσετε μια φόρμα . Αλλά θα χρειαστεί κάποιο κώδικα . Μπορείτε να προγραμματίσετε " Ναι", " Όχι ", " OK " και " Cancel" , να ρυθμίσετε την άμεση , και πολλά άλλα.
20

αυτό το πλαίσιο μηνύματος θα προειδοποιεί τον χρήστη ότι το αρχείο θα κλείσει χωρίς εξοικονόμηση όταν κάνει κλικ στο " Ναι". Αν κάνει κλικ " Όχι , " το αρχείο θα σώσει πριν από το κλείσιμο . Αν επιλέγει « Ακύρωση », το αρχείο δεν θα κλείσει .
Η 21

ξεκινήσει το πρόγραμμα επεξεργασίας VB . Από το μενού Εισαγωγή , τοποθετήστε μια μονάδα ? Στη συνέχεια , στο Project Explorer , κάντε διπλό κλικ στο νέο module . Ένα παράθυρο κώδικα θα ανοίξει .
Η 22

Πληκτρολογήστε την ακόλουθη ρουτίνα . ( Μην γράψετε το κείμενο σε παρένθεση που ακολουθούν . ) Sub MsgBoxTest ( ) [ Υποεντολές ξεκινούν πάντα με Sub και τελειώνει με End Sub ] myTitle = " Προειδοποίηση " [ Εκχωρεί μια τιμή " myTitle . " Όταν χρησιμοποιείτε το " myTitle " αργότερα , είναι το ίδιο με την πληκτρολόγηση "Προσοχή ". ] MyMsg = " Κλείσιμο χωρίς αποθήκευση ; Όλες οι αλλαγές θα χαθούν . " [ Εκχωρεί μια τιμή " MyMsg . " ] Απάντηση = MsgBox ( myMsg , vbExclamation + vbYesNoCancel , myTitle ) [ Καθορίζει το πλαίσιο μηνύματος . Θα περιέχει " myMsg , " ένα σημείο προειδοποίησης θαυμαστικό , και Ναι, Όχι και Άκυρο , και η γραμμή τίτλου θα διαβάσει " Προειδοποίηση ", γιατί αυτή είναι η αξία της « myTitle . " ] Select Case απόκρισης [ Select Case αναθέτει δράσεις σε διάφορα . επιλογές ] Υπόθεση Είναι = vbYes [ Εάν ο χρήστης κάνει κλικ Yes] ActiveWorkbook.Close SaveChanges : . = False [Κλείσιμο χωρίς αποθήκευση ] υπόθεση Είναι = vbNo [ Εάν ο χρήστης κάνει κλικ Όχι] ActiveWorkbook.Close SaveChanges : = True [ Αποθήκευση και κλείσιμο . ] Υπόθεση Είναι = vbCancel [ Εάν ο χρήστης κάνει κλικ στο Cancel] Exit Sub [ Έξοδος από την υπορουτίνα . Μην κάνετε τίποτα . ] End Select [ Αυτό τελειώνει την πρόταση Select Case . ] End Sub [ Τερματίζει την υπορουτίνα ]
Η 23

Επιλέξτε Run , Run Φόρμα Sub /χρήστη από το μενού . Πλαίσιο μηνύματος σας θα εμφανιστεί ? Τώρα έχετε γράψει με επιτυχία ένα λειτουργικό ρουτίνα VBA
Η
εικόνων .