Τύπος διπλής μεταβλητής
Το VBA Διπλό ο τύπος δεδομένων χρησιμοποιείται για την αποθήκευση αριθμών που απαιτούν δεκαδικά ψηφία. Μπορεί να αποθηκεύσει από -1.79769313486231E308 έως -4.94065645841247E -324 για αρνητικές τιμές και 4.94065645841247E -324 έως 1.79769313486232E308 για θετικές τιμές.
Για να δηλώσετε μια διπλή μεταβλητή, χρησιμοποιείτε τη δήλωση Dim (συντομογραφία για Dimension):
1 | Dim dblA ως διπλό |
Στη συνέχεια, για να εκχωρήσετε μια τιμή σε μια μεταβλητή, χρησιμοποιήστε απλά το πρόσημο ίσου:
1 | dlbA = 3658,25 |
Βάζοντας αυτό σε μια διαδικασία μοιάζει με αυτό:
12345678 | Sub dblExample ()«δηλώστε τη διπλή μεταβλητήDim dblA ως διπλόσυμπληρώστε τη διπλή μεταβλητήdblA = 3658,25"εμφάνιση του πλαισίου μηνυμάτωνMsgBox dblAΤέλος υπο |
Εάν εκτελέσετε τον παραπάνω κώδικα, θα εμφανιστεί το ακόλουθο πλαίσιο μηνυμάτων.
Ενιαίος τύπος δεδομένων
Ο τύπος μεμονωμένων δεδομένων είναι απλώς μια πιο σύντομη έκδοση του τύπου διπλών δεδομένων. Λόγω αυτού του γεγονότος, μπορεί να πραγματοποιήσει τη στρογγυλοποίηση όταν χρησιμοποιείται σε μια διαδικασία καθώς ο μοναδικός τύπος δεδομένων θα στρογγυλοποιήσει σε 4 δεκαδικά ψηφία, ενώ ο Τύπος διπλών δεδομένων θα στρογγυλοποιήσει σε 12 δεκαδικά ψηφία. Εάν δεν χρειάζεστε τον διπλό τύπο δεδομένων, μπορείτε να χρησιμοποιήσετε τον τύπο μεμονωμένων δεδομένων
Τύποι Int ή Long Data
Εάν δεν χρειάζεστε δεκαδικό ψηφίο, μπορείτε να χρησιμοποιήσετε είτε τον τύπο δεδομένων Int είτε τον τύπο Long data.
1 | Dim intA ως ακέραιος |
1 | Dim lngB τόσο μακρύ |
Δηλώστε διπλή μεταβλητή σε ενότητα ή καθολικό επίπεδο
Στα προηγούμενα παραδείγματα, δηλώσαμε τη διπλή μεταβλητή μέσα σε μια διαδικασία. Οι μεταβλητές που δηλώνονται με μια διαδικασία μπορούν να χρησιμοποιηθούν μόνο εντός αυτής της διαδικασίας.
Αντ 'αυτού, μπορείτε να δηλώσετε Διπλές μεταβλητές σε ενότητα ή παγκόσμιο επίπεδο.
Επίπεδο ενότητας
Επίπεδο ενότητας οι μεταβλητές δηλώνονται στην κορυφή των ενοτήτων κώδικα με το Αμυδρός δήλωση.
Αυτές οι μεταβλητές μπορούν να χρησιμοποιηθούν με οποιαδήποτε διαδικασία σε αυτήν την ενότητα κώδικα.
Παγκόσμιο Επίπεδο
Παγκόσμιο επίπεδο οι μεταβλητές δηλώνονται επίσης στην κορυφή των ενοτήτων κώδικα. Ωστόσο, αντί να χρησιμοποιήσετε το Αμυδρός δήλωση, χρησιμοποιήστε το Δημόσιο δήλωση για να υποδείξετε ότι η διπλή μεταβλητή είναι διαθέσιμη για χρήση σε όλο το έργο VBA.
1 | Δημόσιο DblA ως διπλό |
Εάν δηλώσετε τη διπλή μεταβλητή σε επίπεδο μονάδας και στη συνέχεια προσπαθήσετε να τη χρησιμοποιήσετε σε διαφορετική ενότητα, θα εμφανιστεί σφάλμα.
Ωστόσο, εάν είχατε χρησιμοποιήσει τη λέξη -κλειδί Δημόσια για να δηλώσετε τη διπλή μεταβλητή, το σφάλμα δεν θα εμφανιζόταν και η διαδικασία θα λειτουργούσε τέλεια.
Μορφοποίηση διπλής αποθήκευσης ως συμβολοσειρά
Μπορεί να υπάρχει κάποια στιγμή που θέλετε να μορφοποιήσετε έναν διπλό τύπο δεδομένων σε μια συμβολοσειρά - για παράδειγμα, μπορεί να θέλετε να εμφανίσετε ένα σύμβολο νομίσματος και να στρογγυλοποιήσετε τον αριθμό σε 2 δεκαδικά ψηφία.
Για να το επιτύχετε αυτό, χρησιμοποιείτε τη λειτουργία Μορφοποίηση.
Η ακόλουθη διαδικασία
1234567891011 | Sub TestDoubleToCurrencyString ()"δηλώστε τη μεταβλητή συμβολοσειράςDim strMoney As String"δηλώστε το διπλό και συμπληρώστε την τιμήDim dblValue As DoubledblValue = 44055.256«μετατρέψτε το διπλό σε συμβολοσειρά με σύμβολο νομίσματος με 2 δεκαδικά ψηφίαstrMoney = Μορφή (dblValue, "$#, ## 0,00")"δείτε το αποτέλεσμαMsgBox strMoneyΤέλος υπο |
θα επέστρεφε αυτό το αποτέλεσμα:
Ομοίως, μπορεί να θέλετε να εμφανίσετε έναν αριθμό ως διαμορφωμένο αριθμό τηλεφώνου.
Αυτή η διαδικασία:
1234567891011 | Sub TestDoubleToPhone ()"δηλώστε τη μεταβλητή συμβολοσειράςDim strPhone As String"δηλώστε το διπλό και συμπληρώστε την τιμήDim dblValue As DoubledblValue = 555968541«μετατρέψτε το διπλό σε συμβολοσειρά με σύμβολο νομίσματοςstrPhone = Μορφή (dblValue, "(000) -000 0000")"δείτε το αποτέλεσμαMsgBox strPhoneΤέλος υπο |
θα επέστρεφε αυτό το αποτέλεσμα: