Πίνακας περιεχομένων
Σε αυτό το άρθρο, θα σας δείξω πώς μπορείτε να ορίσετε μια μεταβλητή σε μια τιμή κελιού χρησιμοποιώντας VBA στο Excel. Θα μάθετε να ορίζετε μια μεταβλητή στην τιμή ενός μεμονωμένου κελιού και μιας περιοχής κελιών.
Κατεβάστε το βιβλίο ασκήσεων
Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.
Ορισμός μεταβλητής σε Cell.xlsm3 Γρήγορα παραδείγματα για τον ορισμό μεταβλητής σε τιμή κελιού στο Excel
Εδώ έχουμε ένα σύνολο δεδομένων που περιέχει το ονόματα ορισμένων πελατών , τους αριθμοί επικοινωνίας , και διευθύνσεις ηλεκτρονικού ταχυδρομείου σε εύρος B3:D13 ενός φύλλου εργασίας.
Στόχος μας είναι να ορίσουμε τις μεταβλητές σε τιμές κελιών από αυτό το σύνολο δεδομένων χρησιμοποιώντας VBA .
1. Ορισμός μεταβλητής σε τιμή ενός κελιού χρησιμοποιώντας το Excel VBA
Πρώτον, θα μάθουμε να ορίζουμε μια μεταβλητή σε μια τιμή ενός κελιού χρησιμοποιώντας VBA .
Για παράδειγμα, ας ορίσουμε την τιμή του κελιού B4 σε μια μεταβλητή που ονομάζεται Όνομα_πελάτη .
Είναι καλύτερα να γνωρίζετε τον τύπο δεδομένων της τιμής και να τον δηλώσετε προηγουμένως. Και στη συνέχεια να ορίσετε την τιμή σε αυτή τη μεταβλητή.
Για παράδειγμα, εδώ το κύτταρο B4 περιέχει το όνομα, Boris Pasternak . Είναι ένα string-type Επομένως, μπορείτε να χρησιμοποιήσετε την ακόλουθη 2 γραμμές κώδικα:
Dim Value As String Value = Range("B4") 
Αλλά δεν πειράζει αν δεν είστε σίγουροι για τον τύπο δεδομένων. Σε αυτή την περίπτωση, γράψτε μόνο τη 2η γραμμή, και VBA θα διαβάσει την τιμή σωστά για εσάς.
Value = Range("B4") 
Τώρα, για να ελέγξετε αν VBA έχει διαβάσει σωστά την τιμή ή όχι, εισάγετε τη γραμμή MsgBox Αξία με ένα από τα δύο σύνολα κωδικών και στη συνέχεια εκτελέστε τον κώδικα.
Θα εμφανιστεί ένα πλαίσιο μηνύματος που θα σας δείξει την τιμή του κελιού B4 , Boris Pasternak .
2. Ορισμός τιμών μιας γειτονικής περιοχής κελιών σε μια μεταβλητή με χρήση του Excel VBA
Τώρα, θα ορίσουμε τις τιμές μιας γειτονικής περιοχής κελιών σε μια μεταβλητή. Για παράδειγμα, ας διαβάσουμε την περιοχή B3:D13 στη μεταβλητή Rng .
Εδώ ο τύπος δεδομένων της μεταβλητής θα είναι a Εύρος Μπορείτε είτε να το δηλώσετε προηγουμένως όπως εδώ:
Dim Rng As Range Set Rng = Range("B3:D13") 
Ή μπορείτε να εκχωρήσετε απευθείας τις τιμές με αυτό.
Set Rng = Range("B3:D13") 
Τώρα, για να αποκτήσετε πρόσβαση στις τιμές των Αντικείμενο Range , θα πρέπει να τους προσπελάσετε με τους αριθμούς γραμμής και στήλης τους με ένα Αντικείμενο Κελιά .
Για παράδειγμα, για πρόσβαση στο κύτταρο B4 , πρέπει να χρησιμοποιήσετε Rng.Cells(2,1) [ Κύτταρο B4 είναι στο 2η σειρά και 1η στήλη του εύρους B3:D13 .]
Εισάγετε τη γραμμή MsgBox Rng.Cells(2,1) μέσα στον κώδικά σας και εκτελέστε το. Θα εμφανιστεί Boris Pasternak , η τιμή στο κελί B4 .
3. Ορισμός τιμών μιας μη γειτονικής περιοχής κελιών σε μια μεταβλητή με χρήση του Excel VBA
Τέλος, θα ορίσουμε τις τιμές μιας μη γειτονικής περιοχής κελιών σε μια μεταβλητή.
Για παράδειγμα, ας προσπαθήσουμε να διαβάσουμε την περιοχή B3:B13 και D3:D13 σε μια μεταβλητή που ονομάζεται Rng .
Είναι και πάλι ένας τύπος δεδομένων της Εύρος Μπορείτε είτε να το δηλώσετε εκ των προτέρων είτε όχι.
Θα χρησιμοποιήσουμε το Μέθοδος Ένωσης του VBA να ενταχθείτε 2 ή περισσότερες μη γειτονικές σειρές κελιών σε μια ενιαία σειρά.
Dim Rng As Range Set Range = Union(Range("B3:B13"), Range("D3:D13")) 
Τώρα για να αποκτήσετε πρόσβαση στο κύτταρο B4 , θα πρέπει και πάλι να εισαγάγετε τη γραμμή MsgBox Rng.Cells(1,1). Στη συνέχεια, αν εκτελέσουμε τον κώδικα, θα εμφανιστεί το περιεχόμενο στο κελί B4 , Boris Pasternak .
Πράγματα που πρέπει να θυμάστε
Όλες οι μέθοδοι που περιγράφονται παραπάνω λειτουργούν μόνο για το ενεργό φύλλο εργασίας. Εάν θέλετε να αποκτήσετε πρόσβαση σε ένα φύλλο εργασίας που δεν είναι ενεργό, πρέπει να αναφέρετε το όνομα του φύλλου εργασίας πριν από την περιοχή.
Για παράδειγμα, για να αποκτήσετε πρόσβαση στην περιοχή B4 του Φύλλο1 , πρέπει να χρησιμοποιήσετε:
Value = Φύλλα εργασίας("Sheet1").Range("B4") 
