VBA με | Πώς να το χρησιμοποιήσετε με ... Τέλος με δήλωση στο Excel VBA;

Με δήλωση στο Excel VBA

Με δήλωση χρησιμοποιείται στο VBA για πρόσβαση σε όλες τις ιδιότητες και μεθόδους ενός αναφερόμενου αντικειμένου. Πρέπει να παρέχουμε σε ποιο αντικείμενο VBA αναφερόμαστε πρώτα και μετά να κλείνουμε τη δήλωση With με End With , και στη συνέχεια μέσα σε αυτήν τη δήλωση, μπορούμε να εκτελέσουμε όλες τις αλλαγές ιδιοτήτων και τις μεθόδους του αναφερόμενου αντικειμένου.

Ακολουθεί η σύνταξη του With Statement στο VBA.

 Με [ΑΝΤΙΚΕΙΜΕΝΟ] [Κωδικός… Τι πρέπει να γίνει;] Τερματισμός με 

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

Πώς να χρησιμοποιήσετε με τη δήλωση στο Excel VBA;

Ακολουθούν ορισμένα παραδείγματα για χρήση με το Statement στο Excel VBA.

Μπορείτε να πραγματοποιήσετε λήψη αυτού του προτύπου VBA With Excel εδώ - Πρότυπο VBA With Excel

Παράδειγμα # 1

Ας υποθέσουμε ότι έχετε συγκεκριμένη τιμή στο κελί A1, έχω εισαγάγει το κείμενο ως "Excel VBA" στο κελί A1.

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

Θέλω να αλλάξω το μέγεθος της γραμματοσειράς, το όνομα της γραμματοσειράς και το εσωτερικό χρώμα, να εισαγάγω ένα περίγραμμα, κλπ ... Χαρακτηριστικό που κάνουμε είναι να αναφέρουμε πρώτα το κελί χρησιμοποιώντας το αντικείμενο VBA RANGE.

Κώδικας:

 Sub With_Example1 () Range ("A1") End Sub 

Τώρα για να αλλάξετε το μέγεθος της γραμματοσειράς έχουμε πρόσβαση στην ιδιότητα "font" αυτού του κελιού.

Στην ιδιότητα FONT έχουμε πρόσβαση στην ιδιότητα Size και εισάγουμε το μέγεθος βάζοντας ίσο σύμβολο.

Κώδικας:

 Sub With_Example1 () Range ("A1"). Font.Size = 15 End Sub 

Τώρα ομοίως κάνουμε άλλες εργασίες μορφοποίησης όπως φαίνεται παρακάτω.

Κώδικας:

 Sub With_Example1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbYellow Range ("A1"). Σύνορα .LineStyle = xl Συνεχής τελικό υποτμήμα 

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

Τώρα θα χρησιμοποιήσουμε τη δήλωση VBA With για να μειώσουμε την είσοδο της διεύθυνσης κυψέλης κάθε φορά. Ανοίξτε τη δήλωση WITH στο Excel VBA και δώστε τη διεύθυνση κελιού.

Κώδικας:

 Sub With_Example1 () With Range ("A1") End Sub 

Μέσα στη δήλωση With βάλτε μια κουκκίδα για να δείτε όλες τις ιδιότητες και τις μεθόδους του κελιού A1.

Τώρα η πρώτη δραστηριότητα μορφοποίησης αλλάζει το μέγεθος της γραμματοσειράς, οπότε αποκτήστε πρόσβαση στο FONT και σε αυτήν την ιδιότητα SIZE πρόσβασης.

Κώδικας:

 Sub With_Example1 () With Range ("A1"). Γραμματοσειρά = 15 End Sub 

Παρομοίως, παρέχετε άλλους κωδικούς μορφοποίησης και κλείστε το VBA With Statement.

Κώδικας:

 Sub With_Example1 () With Range ("A1"). Font.Size = 15 .Font.Name = "Verdana". Interior.Color = vbYellow .Borders.LineStyle = xl Συνεχής λήξη με τελική υποβρύχια 

Εκτελέστε τον κώδικα για να δείτε όλη τη μορφοποίηση στο αναφερόμενο αντικείμενο, δηλαδή το κελί A1.

Έτσι, όλη η μορφοποίηση που εφαρμόζεται στο κελί. Κοιτάξτε πόσο δροσερή είναι αυτή η τεχνική.

Παράδειγμα # 2

Για παράδειγμα, εάν θέλετε να αλλάξετε όλες τις ιδιότητες που σχετίζονται με τη γραμματοσειρά, μπορείτε να αναφέρετε το κελί και την ιδιότητα FONT.

Κώδικας:

 Sub With_Example2 () With Range ("A1"). Font End With End Sub 

Μέσα στο vba Με τη δήλωση, μπορούμε να δούμε τη λίστα IntelliSense που θα εμφανίζει ιδιότητες και μεθόδους που σχετίζονται μόνο με την ιδιότητα FONT.

Μπορούμε να εκτελέσουμε οποιοδήποτε σύνολο δραστηριοτήτων με αυτό τώρα.

Κώδικας:

 Sub With_Example2 () With Range ("A1"). Font .Bold = True 'Font θα είναι Bold. Color = vbAlias' Το χρώμα της γραμματοσειράς θα είναι ψευδώνυμο. Italic = True 'Γραμματοσειρά θα είναι πλάγια στυλ. Μέγεθος = 20' Το μέγεθος της γραμματοσειράς θα είναι 20 .Underline = True 'Γραμματοσειρά θα υπογραμμιστεί End With End Sub 

Το αποτέλεσμα αυτού θα είναι όπως φαίνεται παρακάτω.

Παράδειγμα # 3

Ο παρακάτω κώδικας θα έχει πρόσβαση μόνο σε ιδιότητες που σχετίζονται με περίγραμμα κυττάρων.

Κώδικας:

 Sub With_Example3 () With Range ("B2"). Borders .Color = vbRed 'Το χρώμα περιγράμματος θα είναι κόκκινο .LineStyle = xlContinuous' Full border .Weight = xlTick 'Thick περίγραμμα τέλος με End Sub 

Το αποτέλεσμα αυτού του κώδικα έχει ως εξής.

Πράγματα που πρέπει να θυμάστε

  • Με δήλωση χρησιμοποιείται για την ελαχιστοποίηση του κώδικα.
  • Πρέπει να προμηθεύσουμε πρώτα το αντικείμενο με δήλωση.
  • Μόλις παρέχεται το συγκεκριμένο αντικείμενο μπορούμε να έχουμε πρόσβαση μόνο στις ιδιότητες και τις μεθόδους αυτού του αντικειμένου.