Πώς να ελέγξει για αριθμούς σε VBA

Είναι κοινό να ανακτήσετε μικτά στοιχεία από το χρήστη, όπως γράμματα και αριθμούς σε μια μεταβλητή . Ένας προγραμματιστής θα πρέπει στη συνέχεια να εξαγάγετε τους αριθμούς από αυτή τη μεταβλητή και να τα χρησιμοποιούν , όπως απαιτείται . Στη Visual Basic for Applications ( VBA ) , μπορείτε να χρησιμοποιήσετε τη λειτουργία " IsNumberic " για να ελέγξετε αν μια έκφραση μπορεί να υπολογιστεί σαν αριθμός . Εάν η έκφραση περιέχει μόνο αριθμούς , η συνάρτηση θα επιστρέψει " αλήθεια ". Αλλά εάν περιέχει γράμματα και αριθμούς , η έκφραση θα επιστρέψει "false ". Οδηγίες
Η 1

Δημιουργήστε μια νέα διαδικασία ρουτίνας για τον έλεγχο ενός αριθμού σε μια σειρά πληκτρολογώντας τον ακόλουθο κώδικα :

Private Sub checkForNumber ( ) 2

να αναγνωρίσει δύο μεταβλητές , μία για να κρατήσει τη σειρά με αριθμούς και γράμματα και το άλλο ένα για απλούς χαρακτήρες , όπως οι εξής:

Dim strVar όπως String Dim

oneChar όπως String

strVar = " 12 sdf 3456 "
εικόνων 3

Προσθέστε τον ακόλουθο κώδικα για να βρόχο μέσα από κάθε χαρακτήρα της συμβολοσειράς . Ελέγξτε για τους αριθμούς και να εμφανίσει τους μέσα από το παράθυρο άμεσης παρακολούθησης :

Do While strVar <> " "

oneChar = Left ( strVar , 1 )

strVar = Δεξιά ( strVar , Len ( strVar ) - 1 )

Εάν IsNumeric ( oneChar ) Στη συνέχεια

Debug.Print ( oneChar )

End If

Loop
Φτηνές 4

Ολοκληρώστε τη διαδικασία με την προσθήκη " End Sub " και πατήστε το πλήκτρο "Ctrl " και " G " για να εμφανίσετε την άμεση παράθυρο . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τον κώδικα .
Η
εικόνων