Inhaltsverzeichnis
Wenn Sie nach einigen der einfachsten Möglichkeiten suchen, die VBA IsNumeric Funktion, dann sind Sie hier richtig. Wir verwenden diese Funktion im Allgemeinen in VBA um zu prüfen, ob ein Ausdruck eine Zahl ist oder nicht, und je nach Ausdruck wird Folgendes zurückgegeben WAHR wenn der Ausdruck eine Zahl ist, sonst FALSCH .
Arbeitsbuch herunterladen
VBA-Funktion IsNumeric.xlsmVBA IsNumeric-Funktion: Syntax & Argumente
⦿ Syntax
IsNumeric (Ausdruck)
⦿ Argumente
| Argument | Erforderlich/Optional | Erläuterung |
|---|---|---|
| Ausdruck | Erforderlich | Es handelt sich um eine Variante, bei der geprüft werden soll, ob es sich um eine Zahl handelt oder nicht. |
⦿ Rückgabewert
| Eingabe | Rückgabewert |
|---|---|
| Nummer | WAHR |
| Nicht eine Zahl; String | FALSCH |
⦿ Version
Die ISNUMERIC-Funktion wurde in der Excel 2000 Version und ist für alle weiteren Versionen verfügbar.
9 Beispiele für die Verwendung der VBA-Funktion IsNumeric
In diesem Artikel werden wir versuchen, die Verwendung der VBA IsNumeric mit einigen zufälligen Beispielen sowie einigen Beispielen, darunter die folgende Tabelle.
Wir haben verwendet Microsoft Excel 365 Version, Sie können aber auch jede andere Version verwenden, die Ihnen zusagt.
1. die Überprüfung von VBA IsNumeric mit einigen zufälligen Werten
Hier werden wir einige zufällige Zeichenketten mit der VBA ISNUMERIC ob die Werte numerisch sind oder nicht.
Stufe-01 :
➤ Weiter zu Entwickler Tab>> Visual Basic Option.
Dann wird die Visual Basic-Editor wird sich öffnen.
➤ Weiter zu einfügen. Tab>> Modul Option.
Danach wird eine Modul erstellt werden.
Schritt-02 :
➤ Schreiben Sie den folgenden Code
Sub checkvalue1() Dim x As Variant x = InputBox("Geben Sie einen beliebigen Wert ein") MsgBox IsNumeric(x) End Sub Hier haben wir erklärt x als Variante und speichert den Eingabewert. Dann ISNUMERIC wird zurückgegeben WAHR wenn der Eingabewert numerisch ist, andernfalls wird zurückgegeben FALSCH Wir finden die Ausgabe in einem Nachrichtenfeld ( MsgBox ).
➤ Presse F5 .
Dann erhalten Sie das folgende Eingabefeld, und wenn Sie den Wert 100 und drücken Sie OK ,
erhalten Sie eine Meldung, die besagt "Wahr" .
Zum Schreiben der Zeichenkette Katze und drücken OK in das Eingabefeld ein,
Wir erhalten eine Meldung, die besagt "Falsch" .
Lesen Sie mehr: Wie man die VBA Randomize-Funktion in Excel verwendet (5 Beispiele)
2. die Verwendung von VBA IsNumeric mit der IF-THEN-ELSE-Anweisung
In diesem Abschnitt werden wir die ISNUMERIC-Funktion mit dem IF-THEN-ELSE Anweisung in einer VBA Code, um die numerischen und nicht-numerischen Werte zu definieren.
Schritte :
➤ Folgen Stufe-01 der Sektion 1 .
➤ Schreiben Sie den folgenden Code auf
Sub checkvalue2() Dim x As Variant x = InputBox("Geben Sie einen beliebigen Wert an") If IsNumeric(x) = True Then MsgBox "Der angegebene Wert ist numerisch" Else MsgBox "Der angegebene Wert ist nicht numerisch" End If End Sub Hier haben wir erklärt x als Variante und speichert den Eingabewert. Wenn ISNUMERIC wird zurückgegeben WAHR , IF wird eine Meldung zurückgeben, die besagt "Der angegebene Wert ist numerisch" und wenn ISNUMERIC gibt zurück. FALSCH dann IF gibt eine Meldung zurück, die erklärt "Der angegebene Wert ist nicht numerisch" .
➤ Presse F5 .
Dann erhalten Sie das folgende Eingabefeld, und wenn Sie den Wert 200 und drücken Sie OK ,
erhalten Sie eine Meldung, die besagt "Der angegebene Wert ist numerisch" .
Zum Schreiben der Zeichenkette Katze und drücken OK in das Eingabefeld ein,
Wir erhalten eine Meldung, die besagt "Der angegebene Wert ist nicht numerisch" .
Lesen Sie mehr: VBA If - Then - Else-Anweisung in Excel (4 Beispiele)
3. ein entgegengesetztes Ergebnis mit der Funktion IsNumeric erzeugen
Hier werden wir eine VBA Code, der uns das umgekehrte Ergebnis der ISNUMERIC-Funktion das heißt, für numerische Werte erhalten wir FALSCH und für nicht-numerische Werte wird WAHR .
Schritte :
➤ Folgen Stufe-01 der Sektion 1 .
➤ Schreiben Sie den folgenden Code auf
Sub checkvalue3() Dim x As Variant x = InputBox("Geben Sie einen beliebigen Wert ein") If IsNumeric(x) = True Then MsgBox ("FALSE") Else MsgBox ("TRUE") End If End Sub Hier haben wir erklärt x als Variante und speichert den Eingabewert. Wenn ISNUMERIC wird zurückgegeben WAHR , IF wird eine Meldung zurückgeben, die besagt "FALSCH" und wenn ISNUMERIC gibt zurück. FALSCH dann IF gibt eine Meldung zurück, die erklärt "WAHR" .
➤ Presse F5 .
Dann erhalten Sie das folgende Eingabefeld, und wenn Sie den Wert 25 und drücken Sie OK ,
erhalten Sie eine Meldung, die besagt "FALSCH" .
Zum Schreiben der Zeichenkette Alaska und drücken OK in das Eingabefeld ein,
Wir erhalten eine Meldung, die besagt "WAHR" .
Verwandte Inhalte: VBA Format-Funktion in Excel (8 Verwendungen mit Beispielen)
4 Prüfen, ob Leerzeichen numerisch sind oder nicht
Sie können dies leicht mit einem VBA Code, ob Leerzeichen numerisch sind oder nicht.
Schritte :
➤ Folgen Stufe-01 der Sektion 1 .
➤ Schreiben Sie den folgenden Code auf
Sub checkvalue4() Dim x As Variant x = " " MsgBox IsNumeric(x) End Sub Hier haben wir erklärt x als Variante und es speichert die Leere . dann ISNUMERIC wird zurückgegeben WAHR wenn die Leere numerisch ist, sonst wird zurückgegeben FALSCH .
➤ Presse F5 .
Danach erhalten Sie eine Meldung, die besagt "Falsch" was bedeutet Leerzeichen sind nicht numerisch .
Lesen Sie mehr: Excel-Formel zur Erzeugung von Zufallszahlen (5 Beispiele)
5. die Überprüfung, ob Daten numerisch sind oder nicht
In diesem Abschnitt werden wir ein zufälliges Datum verwenden und prüfen, ob das Datum numerisch ist oder nicht.
Schritte :
➤ Folgen Stufe-01 der Sektion 1 .
➤ Schreiben Sie den folgenden Code auf
Sub checkvalue5() Dim x As Variant x = "02/02/2022 " MsgBox IsNumeric(x) End Sub Hier haben wir erklärt x als Variante und es wird ein Datum gespeichert. ISNUMERIC wird zurückgegeben WAHR wenn das Datum numerisch ist, andernfalls wird es zurückgegeben FALSCH .
➤ Presse F5 .
Danach erhalten Sie eine Meldung, die besagt "Falsch" was bedeutet Daten sind nicht numerisch .
Wir können auch versuchen, mit dem DATESERIAL-Funktion um Daten zu erstellen und zu überprüfen, ob sie numerisch sind oder nicht.
➤ Geben Sie den folgenden Code ein
Sub checkvalue5a() Dim x As Variant x = DateSerial(2022, 2, 2) MsgBox IsNumeric(x) End Sub Hier haben wir erklärt x als Variante und speichert ein Datum, das von der DATESERIAL-Funktion . dann ISNUMERIC wird zurückgegeben WAHR wenn das Datum numerisch ist, andernfalls wird es zurückgegeben FALSCH .
➤ Presse F5 .
Im Gegenzug erhalten Sie eine Nachricht mit folgendem Inhalt "Falsch" auch dieses Mal.
Lesen Sie mehr: VBA Date Function (12 Verwendungen von Makros mit Beispielen)
Ähnliche Lektüre:
- Wie man die Funktion MsgBox in Excel VBA verwendet (eine vollständige Anleitung)
- Verwenden Sie die VBA-Funktion Environ (4 Beispiele)
- Verwendung von VBA und Funktionen in Excel (4 Beispiele)
- VBA-Fallanweisung verwenden (13 Beispiele)
- Wie man die Log-Funktion in Excel VBA verwendet (5 geeignete Beispiele)
6. überprüfen, ob die Zeit numerisch ist oder nicht
In diesem Abschnitt werden wir prüfen, ob die Zeiten numerisch sind oder nicht, indem wir die ISNUMERIC-Funktion .
Schritte :
➤ Folgen Stufe-01 der Sektion 1 .
➤ Schreiben Sie den folgenden Code auf
Sub checkvalue6() Dim x As Variant x = "09:30:00 AM" MsgBox IsNumeric(x) End Sub Hier haben wir erklärt x als Variante und es wird eine Zeit gespeichert. ISNUMERIC wird zurückgegeben WAHR wenn die Zeit numerisch ist, andernfalls wird zurückgegeben FALSCH .
➤ Presse F5 .
Danach erhalten Sie eine Meldung, die besagt "Falsch" was bedeutet Zeiten sind nicht numerisch .
Sie können es auch mit dem TIMESERIAL-Funktion um Daten zu erstellen und zu überprüfen, ob sie numerisch sind oder nicht.
➤ Geben Sie den folgenden Code ein
Sub checkvalue6a() Dim x As Variant x = TimeSerial(9, 30, 0) MsgBox IsNumeric(x) End Sub Hier haben wir erklärt x als Variante und speichert eine Zeit, die von der TIMESERIAL-Funktion . dann ISNUMERIC wird zurückgegeben WAHR wenn die Zeit numerisch ist, andernfalls wird zurückgegeben FALSCH .
➤ Presse F5 .
Sie erhalten dann eine Meldung, die besagt "Falsch" auch dieses Mal.
Auch hier können wir versuchen, auf einen Zeitwert in einer Zelle eines Blattes zu verweisen.
➤ Geben Sie den folgenden Code ein
Sub checkvalue6b() Dim x As Variant x = range("B2").value MsgBox IsNumeric(x) End Sub Hier haben wir erklärt x als Variante und speichert eine Zeit, die in der B2 Zelle, dann ISNUMERIC wird zurückgegeben WAHR wenn die Zeit numerisch ist, andernfalls wird zurückgegeben FALSCH .
➤ Presse F5 .
Schließlich erhalten Sie eine Meldung, die besagt "Wahr" dieses Mal.
Lesen Sie mehr: Wie man VBA TimeSerial in Excel verwendet (3 Beispiele)
7 VBA IsNumeric für einen Wertebereich verwenden
Hier wird geprüft, ob die Werte der Noten/Grade Spalte numerisch oder nicht-numerisch sind und die Ergebnisse in der Siehe Spalte.
Schritte :
➤ Folgen Stufe-01 der Sektion 1 .
➤ Schreiben Sie den folgenden Code auf
Sub checkvalue7() Dim cell As Range For Each cell In Range("D5:D11") cell.Offset(0, 1) = IsNumeric(cell) Next cell End Sub Wir haben die Zelle als Range deklariert und eine FÜR Schleife für die Zellen des Bereichs "D5:D11" und für diese Zellen die ISNUMERIC wird zurückgegeben WAHR wenn der Wert numerisch ist, andernfalls wird FALSCH und Zelle.Offset(0, 1) gibt die Ausgabewerte in einer Spalte später an die Eingabespalte zurück.
➤ Presse F5 .
Danach werden wir WAHR für die numerischen Werte oder Marks und FALSCH für nicht-numerische Werte oder Klassen .
Lesen Sie mehr: Verwendung der VBA Val-Funktion in Excel (7 Beispiele)
8. eine Funktion zum Testen eines Wertebereichs erstellen
In diesem Abschnitt werden wir eine Funktion mit der VBA ISNUMERIC und prüfen, ob die Werte der Noten/Grade Spalte numerisch oder nicht-numerisch sind.
Stufe-01 :
➤ Folgen Stufe-01 der Sektion 1 .
➤ Schreiben Sie den folgenden Code auf und speichern Sie ihn
Function IsNumericTest(value As Variant) As Boolean If IsNumeric(value) Then IsNumericTest = True Else IsNumericTest = False End If End Function Dieser Code erzeugt eine Funktion namens IsNumericTest .
Schritt-02 :
➤ Kehren Sie zum Hauptblatt zurück und geben Sie die folgende Formel in die Zelle ein E5
=IsNumericTest(D5) D5 ist die Noten/Grade eines Studenten und IsNumericTest wird zurückgegeben WAHR/FALSCH abhängig von dem Wert.
➤ Presse EINGEBEN und ziehen Sie die Füllen Griff Werkzeug.
Schließlich werden wir WAHR für die numerischen Werte oder Marks und FALSCH für nicht-numerische Werte oder Klassen .
Verwandte Inhalte: Verwendung der VBA DIR-Funktion in Excel (7 Beispiele)
9. nicht-numerische Werte mit der VBA-Funktion IsNumeric zählen
Wir wollen die nichtnumerischen Werte oder Noten der Noten/Grade Spalte und dazu verwenden wir hier die VBA ISNUMERIC und die Gesamtzahl der nicht-numerischen Werte, die wir in der Zählen Sie Spalte.
Stufe-01 :
➤ Folgen Stufe-01 der Sektion 1 .
➤ Schreiben Sie den folgenden Code auf und speichern Sie ihn
Function countnonnumeric(value As range) As Long Dim cell As range Dim count As Long For Each cell In value.Cells If Not IsNumeric(cell.value) Then count = count + 1 End If Next countnonnumeric = count End Function Dieser Code erzeugt eine Funktion namens countnonnumerisch .
Wenn der Zellenwert kein numerischer Wert ist, wird die zählen wird erhöht um 1 .
Schritt-02 :
➤ Kehren Sie zum Hauptblatt zurück und geben Sie die folgende Formel ein
=Zahlnichtnumerisch(D5:D11) D5:D11 ist der Bereich der Noten/Grade der Studenten und countnonnumerisch gibt die Gesamtzahl der nicht-numerischen Noten zurück.
➤ Presse EINGEBEN
Schließlich erhalten Sie den Wert 3 das heißt, Sie haben 3 Die Noten im Markierungen/Grade Spalte.
Lesen Sie mehr: Wie man einen Wert in einer VBA-Funktion zurückgibt (sowohl Array- als auch Nicht-Array-Werte)
IsNumeric vs ISNUMBER
- ISNUMERIC prüft, ob ein Wert in eine Zahl umgewandelt werden kann und ISNUMMER prüft, ob ein Wert als Zahl gespeichert ist.
- Es gibt einige Unterschiede zwischen den VBA ISNUMERIC-Funktion und die Excel ISNUMBER-Funktion und wir haben versucht, die Unterschiede unten zu zeigen, indem wir unsere zuvor erstellte IsNumericTest-Funktion und das eingebaute Excel ISNUMBER-Funktion .
Praxisteil
Damit Sie selbst üben können, haben wir für Sie eine Praxis Abschnitt wie unten in einem Blatt namens Praxis Bitte tun Sie es selbst.
Schlussfolgerung
In diesem Artikel haben wir versucht, einige der Möglichkeiten zur Verwendung der VBA ISNUMERIC Ich hoffe, Sie finden sie nützlich. Wenn Sie Anregungen oder Fragen haben, können Sie sie gerne im Kommentarbereich stellen.
