Επιλογή VBA | Τι είναι η Επιλογή ιδιότητας στο Excel VBA; (με παραδείγματα)

Στο VBA μπορούμε να επιλέξουμε οποιοδήποτε εύρος κελιών ή μια ομάδα κελιών και να εκτελέσουμε διαφορετικά σετ λειτουργιών σε αυτά, η επιλογή είναι ένα αντικείμενο εύρους, επομένως χρησιμοποιούμε μέθοδο εύρους για να επιλέξουμε τα κελιά καθώς προσδιορίζει τα κελιά και ο κωδικός για την επιλογή των κελιών είναι «Επιλογή» εντολή, η σύνταξη που θα χρησιμοποιηθεί για την επιλογή είναι εύρος (A1: B2). Επιλέξτε.

Τι είναι η ιδιότητα επιλογής Excel VBA;

Η επιλογή είναι η ιδιοκτησία που διατίθεται με το VBA. Μόλις επιλεγεί το εύρος των κελιών, πρέπει να αποφασίσουμε τι πρέπει να κάνουμε. Έτσι, χρησιμοποιώντας αυτήν την ιδιότητα "Επιλογή" VBA μπορούμε να κάνουμε όλα όσα μπορούμε να κάνουμε με επιλεγμένα κελιά. Ένα από τα προβλήματα με την επιλογή Selection είναι ότι δεν βλέπουμε τη λίστα IntelliSense. Έτσι, όταν γράφουμε τον κώδικα, πρέπει να είμαστε απολύτως σίγουροι για το τι κάνουμε χωρίς τη λίστα IntelliSense.

Παραδείγματα ιδιοκτησίας επιλογής στο VBA

Εδώ θα δούμε τα παραδείγματα επιλογής στο Excel VBA.

Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA Selection Excel εδώ - Πρότυπο VBA Selection Excel

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

Επιτρέψτε μου να σας δείξω ένα απλό παράδειγμα ιδιότητας "επιλογής" με το VBA. Τώρα θέλω πρώτα να επιλέξω τα κελιά από A1 έως B5, για αυτό μπορούμε να γράψουμε τον κώδικα VBA έτσι.

Εύρος ( "A1: B5" ). Επιλέξτε

Κώδικας:

 Sub Selection_Example1 () Range ("A1: B5"). Επιλέξτε End Sub 

Αυτός ο κωδικός θα επιλέξει την περιοχή κελιών VBA από A1 έως B5.

Αν θέλω να εισαγάγω την τιμή του "γεια" σε αυτά τα κελιά, μπορώ να γράψω τον κωδικό έτσι.

Κώδικας:

 Sub Selection_Example1 () Range ("A1: B5"). Value = "hello" End Sub 

Ομοίως, μόλις επιλεγούν τα κελιά γίνεται «Επιλογή».

Κώδικας:

 Sub Selection_Example1 () Range ("A1: B5"). Επιλέξτε Selection.Value = "Hello" End Sub 

Στο παραπάνω πρώτο, έχω επιλέξει το εύρος κελιών από Α1 έως Β5. Έτσι, αυτή η γραμμή θα επιλέξει τα κελιά.

Μόλις επιλεγούν αυτά τα κελιά, μπορούμε να αναφερθούμε σε αυτά τα κελιά χρησιμοποιώντας την ιδιότητα "Επιλογή" στο excel VBA. Έτσι, χρησιμοποιώντας την ιδιότητα Selection μπορούμε να εισαγάγουμε την τιμή "Hello" σε αυτά τα κελιά.

Αυτή είναι η γενική επισκόπηση της ιδιότητας "Επιλογή" στο VBA.

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

Τώρα θα δούμε την ιδιότητα "Επιλογή" VBA με μεταβλητές. Ορίστε τη μεταβλητή VBA ως Range.

Κώδικας:

 Sub Selection_Example2 () Dim Rng ως Range End Sub 

Το εύρος είναι μια μεταβλητή αντικειμένου, δεδομένου ότι είναι μια μεταβλητή αντικειμένου, πρέπει να ορίσουμε το εύρος των κελιών χρησιμοποιώντας τη λέξη-κλειδί "Set"

Θα ορίσω το εύρος ως "Range (" A1: A6 ").

Κώδικας:

 Sub Selection_Example2 () Dim Rng As Range Set Rng = Range ("A1: A6") End Sub 

Τώρα η μεταβλητή " Rng " αναφέρεται στο εύρος των κελιών A1 έως A6 .

Τώρα θα γράψω τον κωδικό για να εισαγάγω την τιμή του " Γεια ".

Κώδικας:

 Sub Selection_Example2 () Dim Rng As Range Set Rng = Range ("A1: A6") Rng.Value = "Hello" End Sub 

Αυτό θα εισαγάγει την τιμή "Γεια" στα κελιά A1 έως A6.

Δεν έχει σημασία από πού εκτελείτε τον κωδικό, στο ενεργό φύλλο εργασίας θα εισαγάγει την τιμή "Γεια" στο κελί A1 έως A6.

Αλλά φανταστείτε την κατάσταση όπου πρέπει να εισαγάγετε τη λέξη «Γεια» όπου κι αν επιλέξετε τα κελιά με ένα μόνο κλικ του κουμπιού.

Για αυτό δεν μπορούμε να ορίσουμε το συγκεκριμένο εύρος κελιών, αλλά πρέπει να ορίσουμε το εύρος ως " Επιλογή ".

Κώδικας:

 Sub Selection_Example2 () Dim Rng As Range Set Rng = Selection End Sub 

Τώρα η μεταβλητή "Rng" αναφέρεται στο ενεργό κελί ή όπου κι αν επιλέξουμε τα κελιά. Τώρα χρησιμοποιώντας αυτήν την ιδιότητα (Επιλογή) στο excel VBA μπορούμε να εισάγουμε την τιμή "Γεια".

Κώδικας:

 Sub Selection_Example2 () Dim Rng As Range Set Rng = Selection Selection.Value = "Hello" End Sub 

Αυτό θα εισαγάγει τη λέξη «Γεια» στα κελιά της επιλογής μας. Τώρα θα επιλέξω τα κελιά από B2 έως C6 και θα τρέξω τον κωδικό, θα εισαγάγει την τιμή «Γεια».

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

Τώρα θα δούμε πώς μπορούμε να αλλάξουμε το εσωτερικό χρώμα των επιλεγμένων κελιών. Τώρα θέλω να αλλάξω το εσωτερικό χρώμα των κελιών που θα επιλέξω. Για αυτό το πρώτο, έχω δηλώσει τη μεταβλητή ως Range και έχω ορίσει την περιοχή αναφοράς ως "Επιλογή".

Κώδικας:

 Sub Selection_Example3 () Dim Rng ως Range Set Rng = Selection End Sub 

Τώρα Χρησιμοποιώντας VBA Selection πρόσβαση στην ιδιότητα "Interior" .

Κώδικας:

 Sub Selection_Example3 () Dim Rng As Range Set Rng = Selection Selection.Interior End Sub 

Μόλις επιλεγεί η ιδιότητα "Interior", πρέπει να αποφασίσουμε τι πρέπει να κάνουμε με αυτήν την ιδιότητα. Εφόσον πρέπει να αλλάξουμε το χρώμα του εσωτερικού του επιλεγμένου κελιού επιλέξτε την ιδιότητα "Color".

Κώδικας:

 Sub Selection_Example3 () Dim Rng As Range Set Rng = Selection Selection.Interior.Color End Sub 

Ορίστε την ιδιότητα χρώματος ως " vbGreen ".

Κώδικας:

 Sub Selection_Example3 () Dim Rng As Range Set Rng = Selection Selection.Interior.Color = vbGreen End Sub 

Έτσι, αυτό θα αλλάξει το εσωτερικό χρώμα των επιλεγμένων κελιών σε "vbGreen".

Έτσι, μπορούμε να χρησιμοποιήσουμε την ιδιότητα "Επιλογή" του Excel VBA στην κωδικοποίηση και να κάνουμε πολλά περισσότερα πράγματα εύκολα.

Σημείωση: Μία από τις μεγαλύτερες απειλές με την ιδιότητα "Επιλογή" είναι ότι δεν έχουμε πρόσβαση στη λίστα IntelliSense κατά την κωδικοποίηση. Ως νέος μαθητής είναι σχεδόν αδύνατο να θυμάστε όλες τις ιδιότητες και τις μεθόδους της ιδιότητας Selection, οπότε πρέπει να είστε απολύτως επαγγελματικοί στο VBA για να ξεκινήσετε να χρησιμοποιείτε την ιδιότητα "Επιλογή".