Πώς να χρησιμοποιήσετε Εκδηλώσεις Με Αντικείμενο Εφαρμογής στο Excel

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

Open του Excel VBA προγραμματιστικό περιβάλλον κάνοντας δεξί κλικ καρτέλα κάθε φύλλου εργασίας σε ένα ανοιχτό βιβλίο , στη συνέχεια, επιλέγοντας το στοιχείο " Προβολή κώδικα " . 2

διπλό κλικ " Αυτό το βιβλίο εργασίας " σειρά του " έργου " παράθυρο για να ανοίξει ένα νέο παράθυρο κώδικα .
εικόνων 3

Επικολλήστε τον ακόλουθο κώδικα στην πρώτη κενή γραμμή του νέου παραθύρου . Αυτή η υπορουτίνα , η οποία θα διαρκέσει όταν ανοίξετε ξανά το τρέχον βιβλίο εργασίας , δημιουργεί ένα νέο στιγμιότυπο του αντικειμένου Application του Excel . Με αυτόν τον τρόπο , η υπορουτίνα κάνει περιπτώσει, οι λειτουργίες του αντικειμένου Application διαθέσιμες για να γράψετε προγράμματα .

Private WithEvents objApp Όπως Εφαρμογή

Private Sub Workbook_Open ( )

Σετ objApp = Εφαρμογή

End Sub
Η

4 Κάντε κλικ στο αριστερότερο αναπτυσσόμενη λίστα στο επάνω μέρος του παραθύρου κώδικα . VBA θα εμφανίσει μια λίστα με αντικείμενα που μπορείτε να γράψετε εκδήλωση κώδικα λειτουργίας για . Ένα από τα αντικείμενα της λίστας είναι το « objApp " μεταβλητή που δηλώνεται και ορίζεται στο προηγούμενο βήμα . Επιλέξτε αυτό το αντικείμενο .
5

Κάντε κλικ στην αναπτυσσόμενη λίστα δεξιά του παραθύρου κώδικα , και επιλέξτε το " NewWorkbook " Λειτουργία εκδήλωση . VBA θα δημιουργήσει ένα κενό λειτουργία περίπτωση που θα γράψετε κώδικα .
Η 6

Κολλήστε ή πληκτρολογήστε τον ακόλουθο κώδικα πρόγραμμα πάνω από το " objApp_NewWorkbook " υπορουτίνα του " End Sub " δήλωση.

MsgBox " Έχετε δημιουργήσει ένα νέο βιβλίο εργασίας . "
Η

7 Πιέστε το πλήκτρο " Alt - F4 " για να κλείσετε το περιβάλλον VBA , και πατήστε το ίδιο πλήκτρο ακολουθία για να κλείσει το Excel . Αποθηκεύστε το βιβλίο εργασίας με οποιοδήποτε έγκυρο όνομα αρχείου , και με επέκταση αρχείου " * . Xlsm . " Αποθήκευση και επαναλειτουργία του βιβλίου εργασίας τρέχει την λειτουργία εκδήλωση Workbook_Open γράψατε στο βήμα 3 . Αυτή η λειτουργία πρέπει να τρέξει για να ενεργοποιήσετε τις λειτουργίες εκδήλωση objApp να τρέξει .
8

Ανοίξτε ξανά το βιβλίο εργασίας που μόλις έκλεισε , στη συνέχεια, πατήστε το πλήκτρο "Control - N " για να δημιουργήσετε ένα νέο βιβλίο εργασίας . Ο κωδικός που έγραψε για την υπορουτίνα objApp_NewWorkbook στο βήμα 6 θα εκτελέσει , και θα εμφανίσει το μήνυμα " Έχετε δημιουργήσει ένα νέο βιβλίο εργασίας . "
Η

9 Πατήστε το πλήκτρο " Alt - F11 " για να εισέλθει εκ νέου η VBA περιβάλλον , στη συνέχεια, επικολλήστε τον παρακάτω νέα λειτουργία συμβάν σε οποιοδήποτε κενό χώρο στο παράθυρο κώδικα . Η λειτουργία αυτή εκδήλωση , η οποία θα διαρκέσει όταν αλλάζετε κάθε κύτταρο στιγμή ανοιχτό βιβλίο εργασίας , αντικαθιστά το κείμενο " JS " με το κείμενο " John Smith ".

Private Sub objApp_SheetChange ( ByVal Sh As Object , ByVal Target As Range)

Dim x

x = Target.Value

Αν ( x = " JS ") Στη συνέχεια

x = " John Smith "

Target.Value = x

End If End

υπο
Η 10

Επιστροφή στο Excel πατώντας το πλήκτρο " Alt - F11 , " και στη συνέχεια πληκτρολογήστε το κείμενο " JS " σε κάθε κύτταρο. Όταν πατήσετε το κουμπί " Enter ", η λειτουργία εκδήλωση objApp_SheetChange γράψατε στο προηγούμενο βήμα θα εκτελέσει , και την αλλαγή " JS " σε " John Smith ".
Η
εικόνων