VBA CDEC - Πώς να χρησιμοποιήσετε τη λειτουργία CDEC στο VBA; (Παραδείγματα)

Πίνακας περιεχομένων

Λειτουργία CDEC σε VBA

Το CDEC είναι μια ενσωματωμένη συνάρτηση μετατροπής τύπου δεδομένων διαθέσιμη ως συνάρτηση VBA. Η συνάρτηση VBA CDEC μετατρέπει έναν τύπο δεδομένων από οποιονδήποτε άλλο τύπο δεδομένων σε έναν δεκαδικό τύπο δεδομένων. Σημαίνει «Μετατροπή σε δεκαδικό».

Όταν εργαζόμαστε με δεδομένα και ζητάμε από τους χρήστες να εισάγουν τις τιμές, μπορεί να υπάρχει ένας πολυάριθμος αριθμός μορφών στις οποίες ένας χρήστης μπορεί να μας παρέχει τιμές, όπως ο χρήστης μπορεί να παρέχει μια δεκαδική τιμή και μια μη δεκαδική τιμή, συνάρτηση CDEC στο Το VBA μας βοηθά να μετατρέψουμε οποιαδήποτε τιμή σε δεκαδική τιμή και είναι μια ενσωματωμένη συνάρτηση στο excel.

Παρακάτω είναι η σύνταξη της συνάρτησης CDEC.

Έκφραση: Αυτό δεν είναι παρά η τιμή που προσπαθούμε να μετατρέψουμε στον δεκαδικό τύπο δεδομένων. Αυτό θα μπορούσε να είναι είτε μια άμεση αριθμητική τιμή είτε μια μεταβλητή που κρατά την αριθμητική τιμή.

  • Προτού δούμε πώς να μετατρέψουμε την τιμή σε δεκαδικά είδη δεδομένων, επιτρέψτε μου να σας ενημερώσω λεπτομερώς για τον τύπο δεκαδικών δεδομένων.
  • Οι συνηθισμένοι αριθμητικοί τύποι δεδομένων που χρησιμοποιούμε είναι "Long, Integer και Double". Δεν υπάρχει ειδικός τύπος δεδομένων ως "Δεκαδικό" διαθέσιμο για τη διατήρηση μεγάλων δεκαδικών τιμών. Οι τύποι δεδομένων Long & Integer μετατρέπουν τον αριθμό σε ολόκληρο τον αριθμό, παρόλο που τους αποδίδεται η δεκαδική τιμή.
  • Επομένως, για να αποθηκεύσουμε τις δεκαδικές τιμές στις μεταβλητές, πρέπει να δηλώσουμε τη μεταβλητή ως τύπο δεδομένων «Παραλλαγή». Στη συνέχεια, χρησιμοποιώντας τη συνάρτηση VBA CDEC, μπορούμε να μετατρέψουμε στον δεκαδικό τύπο δεδομένων.
  • Για να αποθηκεύσουμε δεκαδικές τιμές έως και 14 ψηφία, μπορούμε να χρησιμοποιήσουμε τον τύπο δεδομένων "Διπλό", αλλά χρησιμοποιώντας τη λειτουργία μετατροπής VBA CDEC, μπορούμε να αποθηκεύσουμε 28 δεκαδικά ψηφία.
  • Όταν πρόκειται για κατοχή μνήμης, το CDEC θα καταναλώνει 14 byte της μνήμης του συστήματος και αφού δηλώνουμε τον τύπο μεταβλητής δεδομένων ως "Variant" εκ των προτέρων, η τιμή θα είναι πάντα μηδέν.

Παραδείγματα χρήσης της συνάρτησης VBA CDEC

Θα δούμε μερικά παραδείγματα στην παρακάτω ενότητα του άρθρου.

Για παράδειγμα, δείτε τον παρακάτω κώδικα VBA.

Κώδικας:

Υπο CDEC_ Παράδειγμα () Dim k As Integer k = 2.5698979797646 MsgBox k End Sub

Στα παραπάνω, έχουμε δηλώσει τη μεταβλητή VBA ως "Integer" όταν εκτελούμε τον κώδικα και θα λάβουμε την τιμή στο πλαίσιο μηνυμάτων στο VBA όπως παρακάτω.

Όταν έχουμε αντιστοιχίσει την τιμή των 2.5698979797646 αποτελεσμάτων είναι 3, αυτό συμβαίνει επειδή ο τύπος δεδομένων που έχουμε εκχωρήσει στη μεταβλητή είναι "Integer", οπότε θα μετατρέψει τον αριθμό στην πλησιέστερη ακέραια τιμή.

Σημείωση: Εάν η δεκαδική τιμή είναι> 0,5, τότε θα στρογγυλοποιηθεί προς την επόμενη ακέραια τιμή και εάν η δεκαδική τιμή είναι <0,51, θα στρογγυλοποιηθεί προς τα κάτω στην ακέραια τιμή.
  • Εντάξει, τώρα επιτρέψτε μου να εκχωρήσω τη συνάρτηση CDEC για να μετατρέψω την τιμή τύπου δεδομένων σε δεκαδικά.
  • Όπως μπορείτε να δείτε παραπάνω, έχω εκχωρήσει την τιμή στη μεταβλητή "k" χρησιμοποιώντας τη λειτουργία μετατροπής VBA CDEC.
  • Εκτελέστε τον κωδικό και δείτε τι παίρνουμε.
  • Ακόμα και τώρα, πήραμε το αποτέλεσμα ως τρία λόγω της στιγμής που ορίστηκε ο τύπος δεδομένων Integer και πάντα στρογγυλοποιεί τον αριθμό στην επόμενη ακέραια τιμή.

Έτσι, για να αντιστοιχίσουμε πρώτα τον τύπο δεδομένων "Δεκαδικό", πρέπει να αντιστοιχίσουμε τον τύπο δεδομένων ως "Παραλλαγή" και μετά να μετατρέψουμε σε Δεκαδικό χρησιμοποιώντας τη συνάρτηση CDEC.

Κώδικας:

Υπο CDEC_ Παράδειγμα () Dim k As Variant k = CDec (2.5698979797646) MsgBox k End Sub

Τώρα εκτελέστε τον κώδικα και δείτε τι παίρνουμε.

Μια ακόμη ειδικότητα αυτού του τύπου δεκαδικών δεδομένων είναι ότι μπορούμε να αποθηκεύσουμε περισσότερες από 14 ψηφίες δεκαδικών τιμών, σε αντίθεση με τον τύπο διπλού δεδομένων, ο οποίος μπορεί να χωρέσει μόνο 14 δεκαδικά ψηφία.

Τώρα θα εισαγάγω περισσότερα από 14 ψηφία στη μεταβλητή σε διπλά εισαγωγικά.

Κώδικας:

Υπο CDEC_ Παράδειγμα () Dim k As Variant k = CDec ("2.56989797976466769416958") MsgBox k End Sub
Σημείωση: Εισαγάγετε τον αριθμό με διπλά εισαγωγικά επειδή χωρίς διπλά εισαγωγικά μετά τα 14 ψηφία, θα συνεχίσει να στρογγυλοποιείται. Για να εισαγάγετε αριθμούς σε διπλά εισαγωγικά.

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

Έχουμε όλους τους δεκαδικούς αριθμούς που έχουμε εισαγάγει μέσα στα διπλά εισαγωγικά.

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

  • Το CDEC σημαίνει "Μετατροπή σε δεκαδικό".
  • Δέχεται μόνο τον τύπο δεδομένων "Παραλλαγή".
  • Δεν υπάρχει τύπος δεδομένων "Δεκαδικό", αλλά χρησιμοποιώντας τη συνάρτηση CDEC, μπορούμε εύκολα να μετατρέψουμε σε δεκαδικό τύπο δεδομένων.
  • Ειδικότητα είναι ότι μπορεί να κρατήσει "28" ψηφία δεκαδικά ψηφία.

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