Πώς να μετατρέψετε ένα String σε int σε VBA και το Excel

Συχνά , κατά την εισαγωγή δεδομένων σε ένα υπολογιστικό φύλλο του Microsoft Excel , μπορείτε να συναντήσετε αριθμούς που έχουν μορφοποιηθεί ως κείμενο . Εξαιτίας αυτού , οι υπολογισμοί και τους τύπους που δεν μπορούν να επιστρέψουν ακριβή αποτελέσματα . Υπάρχει μια διαφορά μεταξύ του χαρακτήρα " 9 " και τον ακέραιο 9 . Όταν μετατραπεί σε ASCII , το χαρακτήρα ή το σύμβολο " 9 " παίρνει την ακέραια τιμή 57 . Στο Excel , οι αριθμητικές πράξεις συνήθως « αγνοούν » τα κελιά που περιέχουν τις τιμές συμβολοσειράς , και αυτό θα μπορούσε να οδηγήσει σε διαφορές που είναι συχνά δύσκολο να ανιχνευθούν . Μετατρέποντας τις τιμές συμβολοσειράς σε ακέραιους αριθμούς και δεκαδικοί πριν κάνει υπολογισμούς μπορεί να αποτρέψει αυτό . Οδηγίες
Χρησιμοποιώντας το Excel Operators και Λειτουργίες

1

Προσθέστε το μηδέν έως το string για να το μετατρέψετε σε δεκαδικό . Για παράδειγμα , εάν το κελί " A1 " περιέχει την τιμή συμβολοσειράς " 123400 ", το παρακάτω τύπο θα το μετατρέψει σε αριθμό 123.400 .

= A1 +0 2

Χρησιμοποιήστε το VALUE λειτουργία . Αυτό λειτουργεί με την αριθμητική , την ημερομηνία και την ώρα χορδές , αλλά όχι με τις ημέρες , όπως η "Sunday " ή " τη Δευτέρα. " Για παράδειγμα , εάν το κελί " A1 " περιέχει "December 26, 2011, " το παρακάτω τύπο θα το μετατρέψει σε 40903 , το οποίο είναι ισοδύναμο με 12/26/2011 σε " ηη /μμ /εεεε " μορφή .

= VALUE ( A1 )
εικόνων 3

Κατάργηση οδηγεί αποστρόφους . Επισημάνετε την περιοχή κελιών που περιέχει strings αριθμό και στη συνέχεια πιέστε το πλήκτρο " CTRL + H. " Πληκτρολογήστε μια απόστροφος στο "Εύρεση " παράθυρο και στη συνέχεια κάντε κλικ στο κουμπί " Αντικατάσταση όλων ".
Η 4

Re - πληκτρολογήστε τιμές στα κελιά με το χέρι . Κάντε διπλό κλικ σε ένα κελί που έχει μια τιμή συμβολοσειράς και , στη συνέχεια, πατήστε το πλήκτρο " Enter".
Εικόνων Χρησιμοποιώντας ένα Macro
5

Πατήστε το πλήκτρο " ALT + F8 " για να ανοίξει το " Μακροεντολές "παράθυρο διαλόγου . Πληκτρολογήστε " StringToInt " στο πεδίο " Όνομα μακροεντολής " και στη συνέχεια κάντε κλικ στο " Δημιουργία ".
Η 6

Εισάγετε τον παρακάτω κωδικό στον επεξεργαστή VBA .

Sub StringToInt ( )

Dim Rng Όπως Σειρά

Dim str

For Each Rng Στην επιλογή

On Error Resume Next

str = Rng.Value

Rng.NumberFormat = " 0 "

Rng.FormulaR1C1 = str

Επόμενο Rng

End Sub
Η 7

τύπου " ALT + Q "για να κλείσετε το πρόγραμμα επεξεργασίας VBA και να επιστρέψετε στο φύλλο εργασίας σας . Επισημάνετε τα κελιά που θέλετε να μετατρέψετε .
8

Πατήστε το πλήκτρο " ALT + F8 " για να ανοίξετε ξανά το παράθυρο διαλόγου " Μακροεντολές " . Επιλέξτε " StringToInt " από τη λίστα και στη συνέχεια κάντε κλικ στο " Run".
Η
εικόνων