Ενιαίος τύπος μεταβλητής
Το VBA Μονόκλινο ο τύπος δεδομένων χρησιμοποιείται για την αποθήκευση αριθμών που απαιτούν δεκαδικά ψηφία. Μπορεί να αποθηκεύσει από -3.4028235E+38 έως -1.401298E -45 για αρνητικές τιμές και από 1.401298E -45 έως 3.4028235E+38 για θετικές τιμές.
Για να δηλώσετε μια μεμονωμένη μεταβλητή, χρησιμοποιείτε τη δήλωση Dim (συντομογραφία για Dimension):
| 1 | Dim sngA ως Single |
Στη συνέχεια, για να εκχωρήσετε μια τιμή σε μια μεταβλητή, χρησιμοποιήστε απλά το πρόσημο ίσου:
| 1 | sngA = 3658,25 |
Βάζοντας αυτό σε μια διαδικασία μοιάζει με αυτό:
| 12345678 | Sub sngΠαράδειγμα ()«δηλώστε τη διπλή μεταβλητήDim sngA ως Singleσυμπληρώστε τη διπλή μεταβλητήsngA = 3658,25"εμφάνιση του πλαισίου μηνυμάτωνMsgBox sngAΤέλος υπο |
Εάν εκτελέσετε τον παραπάνω κώδικα, θα εμφανιστεί το ακόλουθο πλαίσιο μηνυμάτων.
Διπλός τύπος δεδομένων
Ο διπλός τύπος δεδομένων είναι απλώς μια μεγαλύτερη έκδοση του Μονόκλινο Τύπος δεδομένων. Λόγω αυτού του γεγονότος, μπορεί να επηρεάσει τη στρογγυλοποίηση όταν χρησιμοποιείται σε μια διαδικασία όπως η Μονόκλινο ο τύπος δεδομένων θα στρογγυλοποιηθεί σε 4 δεκαδικά ψηφία, ενώ το Διπλό ο τύπος δεδομένων θα στρογγυλοποιήσει σε 12 δεκαδικά ψηφία. Εάν χρειάζεστε περισσότερα από 4 δεκαδικά ψηφία, μπορείτε να χρησιμοποιήσετε τον τύπο διπλών δεδομένων.
Τύποι Int ή Long Data
Εάν δεν χρειάζεστε δεκαδικό ψηφίο, μπορείτε να χρησιμοποιήσετε είτε τον τύπο δεδομένων Int είτε τον τύπο Long data.
| 1 | Dim intA ως ακέραιος |
| 1 | Dim lngB τόσο μακρύ |
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Δηλώστε μεμονωμένη μεταβλητή σε ενότητα ή παγκόσμιο επίπεδο
Στα προηγούμενα παραδείγματα, έχουμε δηλώσει το Μονόκλινο μεταβλητή εντός μιας διαδικασίας. Οι μεταβλητές που δηλώνονται με μια διαδικασία μπορούν να χρησιμοποιηθούν μόνο εντός αυτής της διαδικασίας.
Αντ 'αυτού, μπορείτε να δηλώσετε μεμονωμένες μεταβλητές σε ενότητα ή παγκόσμιο επίπεδο.
Επίπεδο ενότητας
Επίπεδο ενότητας οι μεταβλητές δηλώνονται στην κορυφή των ενοτήτων κώδικα με το Αμυδρός δήλωση.
Αυτές οι μεταβλητές μπορούν να χρησιμοποιηθούν με οποιαδήποτε διαδικασία σε αυτήν την ενότητα κώδικα.
Παγκόσμιο Επίπεδο
Παγκόσμιο επίπεδο οι μεταβλητές δηλώνονται επίσης στην κορυφή των ενοτήτων κώδικα. Ωστόσο, αντί να χρησιμοποιήσετε το Αμυδρός δήλωση, χρησιμοποιήστε το Δημόσιο δήλωση για να υποδείξει ότι το Μονόκλινο η μεταβλητή είναι διαθέσιμη για χρήση σε όλο το έργο VBA.
| 1 | Public SngA ως Single |
Αν επρόκειτο να δηλώσετε το Μονόκλινο μεταβλητή σε επίπεδο μονάδας και στη συνέχεια προσπαθήστε να τη χρησιμοποιήσετε σε διαφορετική ενότητα, θα εμφανιστεί σφάλμα.
Ωστόσο, εάν είχατε χρησιμοποιήσει τη λέξη -κλειδί Public για να δηλώσετε το Μονόκλινο μεταβλητό, το σφάλμα δεν θα εμφανιστεί και η διαδικασία θα εκτελεστεί τέλεια.
Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!
Μορφοποίηση Single Stored as String
Μπορεί να υπάρχει κάποια στιγμή που θέλετε να μορφοποιήσετε έναν τύπο δεδομένων σε μια συμβολοσειρά - για παράδειγμα, ίσως θέλετε να εμφανίσετε ένα σύμβολο νομίσματος και να στρογγυλοποιήσετε τον αριθμό σε 2 δεκαδικά ψηφία.
Για να το επιτύχετε αυτό, χρησιμοποιείτε τη λειτουργία Μορφοποίηση.
Η ακόλουθη διαδικασία
| 1234567891011 | Sub TestSingleToCurrencyString ()"δηλώστε τη μεταβλητή συμβολοσειράςDim strMoney As String"δηλώστε το single και συμπληρώστε την τιμήDim sngValue As SinglesngValue = 44055.256«μετατρέψτε το single σε συμβολοσειρά με σύμβολο νομίσματος με 2 δεκαδικά ψηφίαstrMoney = Μορφή (sngValue, "$#, ## 0,00")«δείτε το αποτέλεσμαMsgBox strMoneyΤέλος υπο |
θα επέστρεφε αυτό το αποτέλεσμα:
Ομοίως, μπορεί να θέλετε να εμφανίσετε έναν αριθμό ως διαμορφωμένο αριθμό τηλεφώνου.
Αυτή η διαδικασία:
| 1234567891011 | Sub TestSingleToPhone ()"δηλώστε τη μεταβλητή συμβολοσειράςDim strPhone As String"δηλώστε το single και συμπληρώστε την τιμήDim sglValue Ως singlesglValue = 555968541«μετατρέψτε το single σε συμβολοσειρά με σύμβολο νομίσματοςstrPhone = Μορφή (sglValue, "(000) -000 0000")"δείτε το αποτέλεσμαMsgBox strPhoneΤέλος υπο |
θα επέστρεφε αυτό το αποτέλεσμα:
