Microsoft Excel Visual Basic μακροεντολές Made Easy

Microsoft Excel περιλαμβάνει ένα ενσωματωμένο στη γλώσσα προγραμματισμού Visual Basic , το οποίο σας επιτρέπει να δημιουργήσετε σενάρια που εκτελεί εργασίες που δεν είναι ενσωματωμένη στο Microsoft Excel . Αυτά τα σενάρια που ονομάζονται μακροεντολές . Ένας τρόπος που μπορείτε να γράψετε μακροεντολές είναι να καταγράψει ( Developer > Record Macro ) , και ένας άλλος τρόπος είναι να ανοίξετε το Basic ολοκληρωμένο περιβάλλον προγραμματισμού Visual Basic και να γράψει το σενάριο με το χέρι . Γράφει σενάρια με αυτόν τον τρόπο σας επιτρέπει να προσαρμόσετε το σενάριο για τις συγκεκριμένες ανάγκες σας . Αλλά , θα πρέπει είτε μια λειτουργική γνώση της γλώσσας Visual Basic για να γράψει σενάρια , ή ένα υπάρχον σενάριο, μπορείτε να μπείτε στο IDE . Επικύρωση διευθύνσεις ηλεκτρονικού ταχυδρομείου
Η

Το ακόλουθο script επικυρώνει τις διευθύνσεις ηλεκτρονικού ταχυδρομείου αποθηκεύονται στο πρώτο φύλλο του εγγράφου βιβλίου εργασίας του Excel . Εισάγετε κάποιες διευθύνσεις ηλεκτρονικού ταχυδρομείου στα κελιά A1 έως A5 του φύλλου εργασίας . Κάντε σκόπιμα λάθη σε κάποιες από τις διευθύνσεις αφήνοντας έξω το χαρακτήρα εμπορικό και ( "@ " ) . Μετά την είσοδό του το σενάριο σε αυτό το άρθρο , εκτελέστε το σενάριο ( alt - F8 , " Validate_Emails " ) για να δείτε τις λανθασμένες διευθύνσεις τόνισε .
Εικόνων Πληκτρολογήστε το Script
Η

Για να ξεκινήσετε πληκτρολογώντας το σενάριο , αφού έχετε ανοίξει το Excel , πληκτρολογήστε το Visual Basic IDE ( alt - F11 ) . ( Μπορείτε επίσης να αντιγράψετε και να επικολλήσετε το σενάριο αντί να το πληκτρολογήσετε ανά γραμμή . ) Στο παράθυρο του έργου στα αριστερά , κάντε κλικ στο όνομα του βιβλίου εργασίας του Excel και, στη συνέχεια , επιλέξτε Εισαγωγή Module . Αυτό σας δίνει μια νέα μονάδα στην οποία να εισάγετε τον κωδικό .

Κατά την άποψη κώδικα της λειτουργικής μονάδας που μόλις δημιουργήσατε , πληκτρολογήστε αυτές τις λειτουργίες , προσέχοντας να ταιριάζει με την περίπτωση του κάθε γράμματος .

Sub Validate_Emails ( ) Dim arrEmail Όπως VariantDim rc Όπως BooleanarrEmail = Range. ( " a1 : a5 " ) Αξία

« Ελέγξτε τη διεύθυνση ηλεκτρονικού ταχυδρομείου κάθε κυττάρου , τώρα σε μια arrayFor i = 1 Για να UBound ( arrEmail ) rc = blnEmailIsOkay ( arrEmail ( i , 1 ) ) Αν ( rc = False ) Then'Highlight το κύτταρο με ένα άκυρο email addressHilightCell ( i ) End Sub IfNextEnd

Public Function blnEmailIsOkay ( CellContents Όπως Variant ) Όπως Boolean
< p > p = InStr ( 1 , CellContents , " @" )

Αν ( p = 0 ) = ThenblnEmailIsOkay FalseElseblnEmailIsOkay = TrueEnd Αν

Function End

Public Sub HilightCell ( i ) r = " a " & i & " : ένα" . & i

Με Range ( r ) = Interior.Pattern xlSolid.PatternColorIndex = xlAutomatic.Color = 65535.TintAndShade = 0.PatternTintAndShade = 0End WithEnd Sub

-----------------------------------
Η
Η Πώς λειτουργεί
Η

Η " arrEmail = " δήλωση κατά την έναρξη της Validate_Emails αντιγράφει τις διευθύνσεις ηλεκτρονικού ταχυδρομείου από τα κελιά A1 έως A5 στο φύλλο εργασίας 1 , σε έναν εσωτερικό πίνακα ( arrEmail ) .

Η για την μέθοδο loop που ακολουθεί επαναλαμβάνεται μέσω αυτού του πίνακα , και καλεί μια άλλη λειτουργία , blnEmailsIsOkay , για να αναζητήσετε το χαρακτήρα "@" που είναι αναγκαία για τις διευθύνσεις ηλεκτρονικού ταχυδρομείου . Αν blnEmailsIsOkay δεν βρείτε το εμπορικό και ( επιστρέφει false ) , μία άλλη λειτουργία , HilightCell , καλείται να ζωγραφίσει την παραβατική κυττάρων κίτρινο . Η λειτουργία HilightCell είναι ένα καλό μέρος για να ξεκινήσετε πειραματίζονται με την εξερεύνηση και τον κωδικό , επειδή μπορείτε να αλλάξετε τα στοιχεία όπως το χρώμα και άλλες επιλογές μορφοποίησης , αφήνοντας άθικτη τη συνολική λειτουργικότητα του προγράμματος . Για παράδειγμα , προσπαθήστε να αλλάξετε το χρώμα επισήμανσης από κίτρινο σε μπλε , ή το μοτίβο σε κάτι πέρα από " xlSolid . " Πιέστε το πλήκτρο F1 , ενώ ο δρομέας βρίσκεται πάνω από το " . Μοτίβο " και " . Color" ιδιότητες για να πάρετε μια ιδέα για άλλες επιλογές για αυτές τις ιδιότητες .
Η
εικόνων