Ιδιότητα τιμής Excel VBA
Η τιμή είναι μια ιδιότητα στο VBA που χρησιμοποιείται ως επί το πλείστον με τη μέθοδο εύρους για να αντιστοιχίσει μια τιμή σε ένα συγκεκριμένο εύρος, είναι μια ενσωματωμένη έκφραση στο VBA, για παράδειγμα, εάν χρησιμοποιούμε εύρος ("B3"). Τιμή = 3 αυτό θα εκχωρήσει κελί B3 με τιμή 3, όχι απαραίτητα ότι η τιμή ιδιότητας πρόκειται να χρησιμοποιηθεί με μόνο μέθοδο εύρους που μπορούμε να την χρησιμοποιήσουμε και με άλλες λειτουργίες.
Νωρίς στη μάθηση μας με το VBA, είμαστε τόσο περίεργοι να μάθουμε πώς να αποθηκεύουμε τα δεδομένα στα κελιά. Εάν είστε τόσο περίεργοι, τότε πρέπει να καταλάβετε την ιδιότητα "Value". Σε αυτό το άρθρο, θα σας εξηγήσουμε για την ιδιότητα "Value", πώς να εισαγάγετε ή να ορίσετε τιμές, πώς να λάβετε αξία από το κελί και πολλά άλλα πράγματα.
Σε ένα από τα προηγούμενα άρθρα, έχουμε συζητήσει "VBA Range Cells". Το αντικείμενο εύρους μπορεί να μας βοηθήσει να αναφερθούμε σε ένα κελί καθώς και σε πολλά κελιά. Για να χρησιμοποιήσουμε πρώτα το αντικείμενο RANGE, πρέπει να αποφασίσουμε για ποιο κελί πρέπει να εισαγάγουμε την τιμή και ποια είναι η τιμή που θα εισαγάγουμε.
Πώς να χρησιμοποιήσετε το Value Properti στο VBA;
Παράδειγμα # 1 - Εύρος αντικειμένου για εκχώρηση τιμών σε κελιά
- Για παράδειγμα, εάν θέλετε να εισαγάγετε μια τιμή στο κελί A1, τότε θα πρέπει να παραπέμψετε το κελί A1 όπως αυτό το εύρος ("A1")
Κώδικας:
Υποτιμητική τιμή () Εύρος ("A1") Τέλος
- Αφού παραπέμψετε το κελί χρησιμοποιώντας το αντικείμενο RANGE, τοποθετήστε τώρα μια τελεία (.) Για να δείτε τη λίστα IntelliSense όλων των ιδιοτήτων και μεθόδων που σχετίζονται με αυτό το αντικείμενο.
Κώδικας:
Υποτιμητική τιμή () Εύρος ("A1"). Τέλος Υποτ
- Διαμορφώστε αυτήν την ποικιλία επιλογών, επιλέξτε την ιδιότητα "VALUE".
Κώδικας:
Υποτιμητική τιμή () Εύρος ("A1"). Υποτιμητική τιμή λήξης
- Μόλις επιλεγεί η ιδιότητα "VALUE", πρέπει να ορίσουμε την τιμή στο κελί A1 τοποθετώντας την τιμή στο ίδιο σύμβολο.
Κώδικας:
Υποτιμητική τιμή () Εύρος ("A1"). Τιμή = "Καλώς ήλθατε στο VBA" End Sub
- Εντάξει, αυτό θα εισαγάγει την τιμή "Καλώς ήλθατε στο VBA" στο κελί A1.
- Εάν θέλετε να εισαγάγετε την ίδια τιμή σε πολλά κελιά, τότε ανατρέξτε στα κελιά όπως στον παρακάτω κώδικα.
Κώδικας:
Υποτιμητική τιμή () Εύρος ("A1: A5"). Τιμή = "Καλώς ορίσατε στο VBA" End Sub
- Αυτό θα εισαγάγει την τιμή από το κελί A1 έως A5 .
- Εάν θέλετε να εισαγάγετε τιμές σε διαφορετικά κελιά αλλά όχι για σειρές του κελιού, τότε πρέπει να χρησιμοποιήσουμε τον κώδικα και τη διεύθυνση κελιού σε ξεχωριστά ορίσματα όπως τα παρακάτω.
Κώδικας:
Υποτιμητική τιμή () Εύρος ("A1, A5, B4, C2"). Τιμή = "Καλώς ορίσατε στο VBA" End Sub
- Αυτό θα εισαγάγει το κείμενο "Καλώς ήλθατε στο VBA" στα κελιά A1, A5, B4 και C2 .
Παράδειγμα # 2 - Εισαγωγή τιμής χρησιμοποιώντας την ιδιότητα CELLS
Όχι μέσω του αντικειμένου RANGE αλλά και χρησιμοποιώντας την ιδιότητα VBA CELLS, μπορούμε να εισάγουμε τιμές. Αλλά ένα από τα προβλήματα με το αντικείμενο CELLS είναι ότι δεν έχουμε πρόσβαση στη λίστα IntelliSense όπως έχουμε για το αντικείμενο RANGE.
Εδώ πρέπει να αναφέρουμε τους αριθμούς σειράς και στήλης, χρειαζόμαστε την εισαγωγή της τιμής. Για παράδειγμα, εάν θέλετε να εισαγάγετε την τιμή στο κελί A1, τότε ο κωδικός είναι CELLS (1,1). Εάν θέλετε να εισαγάγετε την τιμή στο κελί B5, τότε ο κωδικός είναι CELLS (5,2), δηλαδή ίσος με το κελί B5.
Δεν μπορούμε να εισαγάγουμε τιμές σε πολλά κελιά χρησιμοποιώντας την ιδιότητα CELLS. Αυτό δεν είναι σε αντίθεση με το αντικείμενο RANGE.
Παράδειγμα # 3 - Λήψη τιμής κελιού
Έχουμε δει πώς να εισάγουμε τιμές στα κελιά, τώρα θα δούμε πώς να λαμβάνουμε τιμές από κελιά.
Βήμα 1: Ορίστε μια μεταβλητή ως συμβολοσειρά.
Κώδικας:
Υποτιμή () Dim K ως συμβολοσειρά End Sub
Βήμα 2: Για αυτήν τη μεταβλητή "k", θα αντιστοιχίσουμε την τιμή του κελιού A1. Στο κελί A1 έχω εισαγάγει την τιμή "Καλώς ήλθατε στο VBA."
Έτσι ο κωδικός θα είναι k = Range ("A1"). Τιμή
Κώδικας:
Υποτιμή () Dim K As String K = Range ("A1"). Τιμή End Sub
Βήμα 3: Εμφάνιση του αποτελέσματος της μεταβλητής "k" στο πλαίσιο μηνυμάτων VBA.
Κώδικας:
Sub Value () Dim K As String K = Range ("A1"). Τιμή MsgBox K End Sub
Εκτελώντας τον κώδικα, θα πρέπει το αποτέλεσμα της τιμής κελιού Α1 στο πλαίσιο μηνύματος.
Μπορούμε επίσης να χρησιμοποιήσουμε το αντικείμενο RANGE για να λάβουμε τα δεδομένα του κελιού A1. Ο παρακάτω κώδικας θα σας δείξει το ίδιο.
Κώδικας:
Sub Value () Dim K As String Set CellValue = Range ("A1") MsgBox CellValue End Sub
Αυτό θα πρέπει επίσης να πάρει την τιμή του κελιού A1 στο πλαίσιο μηνύματος.
Παράδειγμα 4 - Τιμή σφάλματος εάν απαιτούνται περισσότερες από μία τιμές κελιών
Για παράδειγμα, δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub Value () Dim K As Range Set CellValue = Range ("A1: A5") MsgBox CellValue End Sub
Εάν εκτελέσετε τον παραπάνω κωδικό, θα εμφανιστεί το σφάλμα "Αναντιστοιχία τύπου".
Ο λόγος για τον οποίο λαμβάνουμε αυτό το σφάλμα επειδή όταν η μεταβλητή αντικειμένου έχει οριστεί σε περισσότερες από μία τιμές "τιμή" κελιού, δεν κατανοεί πραγματικά ποια τιμή κελιού πρέπει να δοθεί, οπότε μπορεί να λάβει μία τιμή κελιού κάθε φορά.
