Λήψη τιμής κυψέλης στο Excel VBA (Παραδείγματα βήμα προς βήμα)

Αποκτήστε τιμή κυψέλης με το Excel VBA

Ένα κελί είναι ένα μεμονωμένο κελί και είναι επίσης μέρος ενός εύρους, τεχνικά υπάρχουν δύο μέθοδοι αλληλεπίδρασης με ένα κελί στο VBA και είναι η μέθοδος εύρους και η μέθοδος κελιού, η μέθοδος εύρους χρησιμοποιείται όπως το εύρος ("A2") . Τιμή που θα μας δώσει την τιμή του κελιού A2 ή μπορούμε να χρησιμοποιήσουμε τη μέθοδο κελιού ως κελιά (2,1). Τιμή που θα μας δώσει επίσης την τιμή των κελιών A2.

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

Πρώτα απ 'όλα, μπορούμε να αναφέρουμε ή να εργαστούμε με κελιά σε VBA με δύο τρόπους, δηλαδή, χρησιμοποιώντας την ιδιότητα CELLS και RANGE αντικείμενο Γιατί το CELLS είναι ιδιοκτησία και γιατί το RANGE είναι αντικείμενο είναι μια διαφορετική αναλογία και αργότερα στο άρθρο θα φτάσουμε σε αυτό το σημείο.

Παραδείγματα απόκτησης τιμής κυψέλης στο Excel VBA

Ακολουθούν τα παραδείγματα λήψης της τιμής κυττάρων στο Excel VBA.

Παράδειγμα # 1 - Χρήση ιδιοκτησίας RANGE ή CELLS

Για παράδειγμα, στο κελί A1 έχουμε μια τιμή "Ινδία".

Για να αναφέρουμε αυτό το κελί, μπορούμε να χρησιμοποιήσουμε μια ιδιότητα CELLS ή ένα αντικείμενο RANGE. Ας δούμε και τους δύο λεπτομερώς.

Χρήση ιδιοτήτων εύρους

Αρχικά, ξεκινήστε τη διαδικασία μακροεντολών.

Κώδικας:

Υπο Get_Cell_Value () End Sub

Τώρα ανοίξτε το αντικείμενο RANGE.

Κώδικας:

Sub Get_Cell_Value () Εύρος (End Sub

Το πρώτο επιχείρημα αυτού του αντικειμένου είναι "Cell1", δηλαδή σε ποιο κελί αναφερόμαστε. Σε αυτήν την περίπτωση, είναι το κελί A1, οπότε πρέπει να παρέχουμε τη διεύθυνση κελιού σε διπλά εισαγωγικά για το αντικείμενο RANGE.

Κώδικας:

Υπο Get_Cell_Value () Εύρος ("A1") End Sub

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

Όπως μπορείτε να δείτε παραπάνω, τη στιγμή που βάζουμε μια τελεία, μπορούμε να δούμε όλη τη διαθέσιμη λίστα ιδιοτήτων και μεθόδων αντικειμένου εύρους IntelliSense.

Εφόσον επιλέγουμε το κελί, πρέπει να επιλέξουμε τη μέθοδο «SELECT» από τη λίστα IntelliSense.

Κώδικας:

Sub Get_Cell_Value () Εύρος ("A1"). Επιλέξτε End Sub

Τώρα επιλέξτε το κελί εκτός του A1 και εκτελέστε τον κωδικό.

Δεν έχει σημασία ποιο κελί έχετε επιλέξει τη στιγμή που εκτελείτε τον κώδικα. Έχει επιλέξει το αναφερόμενο κελί, δηλαδή το κελί Α1.

Χρήση ιδιοτήτων κελιών

Ομοίως, χρησιμοποιούμε την ιδιοκτησία CELLS τώρα.

Κώδικας:

Sub Get_Cell_Value () Εύρος ("A1"). Επιλέξτε κελιά (End Sub

Αυτό δεν είναι σε αντίθεση με το αντικείμενο RANGE όπου θα μπορούσαμε να παρέχουμε απευθείας τη διεύθυνση κελιού, αλλά χρησιμοποιώντας αυτήν την ιδιότητα CELLS, δεν μπορούμε να το κάνουμε αυτό.

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

Το επόμενο επιχείρημα είναι το "Column Index", δηλαδή σε ποια στήλη αναφερόμαστε. Η στήλη κελιού A1 είναι η πρώτη στήλη, οπότε εισαγάγετε 1.

Ο κωδικός μας διαβάζει CELLS (1, 1) δηλαδή πρώτη στήλη πρώτη στήλη = A1.

Τώρα βάλτε μια κουκκίδα και δείτε αν θα δείτε τη λίστα IntelliSense ή όχι.

Με τις ιδιότητες CELLS, δεν μπορούμε να δούμε καμία λίστα IntelliSense, επομένως πρέπει να είμαστε απολύτως σίγουροι για αυτό που γράφουμε. Εισαγάγετε «Επιλογή» ως μέθοδο.

Κώδικας:

Sub Get_Cell_Value () Εύρος ("A1"). Επιλέξτε κελιά (1, 1). Επιλέξτε End Sub

Αυτό θα επιλέξει επίσης το κελί A1.

Παράδειγμα # 2 - Λήψη τιμής από το κελί στο Excel VBA

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

Κώδικας:

Υπο Get_Cell_Value1 () Dim CellValue ως συμβολοσειρά End Sub

Τώρα αναφέρετε τη διεύθυνση κελιού είτε χρησιμοποιώντας το αντικείμενο RANGE είτε την ιδιότητα CELLS Επειδή είστε αρχάριος, χρησιμοποιήστε το αντικείμενο RANGE μόνο επειδή με το αντικείμενο RANGE, βλέπουμε τη λίστα IntelliSense.

Για την καθορισμένη μεταβλητή, τοποθετήστε ένα ίσο σύμβολο και αναφέρετε τη διεύθυνση κελιού

Κώδικας:

Υπο Get_Cell_Value1 () Dim CellValue As String CellValue = Range ("A1") End Sub

Για άλλη μια φορά, βάλτε μια τελεία για να δείτε τη λίστα IntelliSense.

Από τη λίστα VBA IntelliSense, επιλέξτε την ιδιότητα "Value" για να λάβετε την τιμή από το αναφερόμενο κελί.

Κώδικας:

Υπο Get_Cell_Value1 () Dim CellValue As String CellValue = Range ("A1"). Value End Sub

Τώρα η μεταβλητή "CellValue" κρατά την τιμή από το κελί A1. Εμφάνιση αυτής της μεταβλητής τιμής στο πλαίσιο μηνύματος στο VBA.

Κώδικας:

Υπο Get_Cell_Value1 () Dim CellValue As String CellValue = Range ("A1"). Value MsgBox CellValue End Sub

Εντάξει, εκτελέστε τον κωδικό και δείτε το αποτέλεσμα σε ένα πλαίσιο μηνυμάτων.

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

Παράδειγμα # 3 - Λάβετε τιμή από ένα κελί σε άλλο κελί

Ξέρουμε πώς να κερδίσουμε αξία από το κελί χρησιμοποιώντας το VBA. Τώρα το ερώτημα είναι πώς να εισαγάγετε τιμή στο κελί. Ας πάρουμε μόνο το ίδιο παράδειγμα. Για το κελί A1 πρέπει να εισαγάγουμε την τιμή "INDIA" και αυτό μπορεί να γίνει από τον παρακάτω κώδικα.

Κώδικας:

Sub Get_Cell_Value2 () Range ("A1"). Value = "INDIA" End Sub

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

Κώδικας:

Υπο Get_Cell_Value2 () Εύρος ("A5"). Value = Range ("A1"). Value End Sub

Επιτρέψτε μου να σας εξηγήσω τον κωδικό.

«Για το κελί A5, χρειαζόμαστε την τιμή που είναι από την τιμή κελιού A1», αυτό λέει ο κωδικός. Αυτό θα πάρει την τιμή από το κελί A1 έως A5 χρησιμοποιώντας τον κώδικα VBA.

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

  • Η εισαγωγή τιμής στα κελιά και η λήψη τιμής από το κελί απαιτεί τη χρήση της ιδιότητας VBA "VALUE".
  • Χρησιμοποιώντας την ιδιότητα CELLS, μπορούμε να επιλέξουμε μόνο ένα κελί αλλά χρησιμοποιώντας το αντικείμενο RANGE. Μπορούμε να επιλέξουμε πολλά κελιά.

ενδιαφέροντα άρθρα...