Če iščete nekaj najlažjih načinov uporabe VBA IsNumeric funkcijo, potem ste na pravem mestu. To funkcijo običajno uporabljamo v VBA za preverjanje, ali je izraz število ali ne, in glede na izraz vrne TRUE če je izraz število, v nasprotnem primeru FALSE .

Prenos delovnega zvezka

Funkcija VBA IsNumeric: sintaksa in primerjava; argumenti

⦿ Sintaksa

IsNumeric (Izraz)

⦿ Argumenti

⦿ Vrnjena vrednost

⦿ Različica

Spletna stran Funkcija ISNUMERIC je bila uvedena v Excel 2000 in je na voljo za vse naslednje različice.

9 primerov uporabe funkcije VBA IsNumeric

V tem članku bomo poskušali prikazati uporabo VBA IsNumeric z nekaterimi naključnimi primeri skupaj z nekaterimi primeri, vključno z naslednjo tabelo.

Uporabili smo Microsoft Excel 365 različica tukaj, lahko pa uporabite katero koli drugo različico glede na vaše udobje.

1. Preverjanje VBA IsNumeric z nekaj naključnimi vrednostmi

Tu bomo preizkusili nekaj naključnih nizov s funkcijo VBA ISNUMERIC , če so vrednosti številčne ali ne.

Korak-01 :

➤ Pojdi na Razvijalec zavihek>> Visual Basic Možnost.

Nato se Urejevalnik Visual Basic se bo odprlo.

➤ Pojdi na Vstavite zavihek>> Modul Možnost.

Po tem je treba Modul bo ustvarjen.

Korak-02 :

➤ Napišite naslednjo kodo

 Sub checkvalue1() Dim x As Variant x = InputBox("Give any Value") MsgBox IsNumeric(x) End Sub 

Tukaj smo razglasili x kot Varianta in shrani vhodno vrednost. ISNUMERIC vrne TRUE če je vhodna vrednost številčna, sicer vrne FALSE . Rezultat bomo našli v polju za sporočila ( MsgBox ).

➤ Tisk F5 .

Nato boste dobili naslednje vnosno polje in če zapišete vrednost 100 in pritisnite V REDU ,

v oknu s sporočilom se izpiše "True" .

Za pisanje niza Mačka in pritisnite V REDU v vnosnem polju,

V oknu s sporočilom je navedeno "Napačno" .

Preberite več: Kako uporabiti funkcijo VBA Randomize v Excelu (5 primerov)

2. Uporaba VBA IsNumeric z izjavo IF-THEN-ELSE

V tem razdelku bomo uporabili Funkcija ISNUMERIC z IF-THEN-ELSE izjavo v VBA kodo za opredelitev številčnih in neštevilčnih vrednosti.

Koraki :

➤ Sledite Korak-01 oddelka 1 .

➤ Zapišite naslednjo kodo

 Sub checkvalue2() Dim x As Variant x = InputBox("Podaj poljubno vrednost") If IsNumeric(x) = True Then MsgBox "Podana vrednost je številčna" Else MsgBox "Podana vrednost ni številčna" End If End Sub 

Tukaj smo razglasili x kot Varianta in shrani vhodno vrednost. ISNUMERIC vrne TRUE , IF bo vrnil sporočilo z besedami "Podana vrednost je številčna" in če ISNUMERIC vrne FALSE , potem IF vrne sporočilo z razlago "Podana vrednost ni številčna" .

➤ Tisk F5 .

Nato boste dobili naslednje vnosno polje in če zapišete vrednost 200 in pritisnite V REDU ,

v oknu s sporočilom se izpiše "Podana vrednost je številčna" .

Za pisanje niza Mačka in pritisnite V REDU v vnosnem polju,

V oknu s sporočilom je navedeno "Podana vrednost ni številčna" .

Preberite več: Izjava VBA If - Then - Else v Excelu (4 primeri)

3. Ustvarjanje nasprotnega rezultata s funkcijo IsNumeric

Tukaj bomo ustvarili VBA kodo, ki nam bo dala obraten rezultat kot Funkcija ISNUMERIC , kar pomeni, da bomo za numerične vrednosti dobili FALSE , za neštevilske vrednosti pa vrne TRUE .

Koraki :

➤ Sledite Korak-01 oddelka 1 .

➤ Zapišite naslednjo kodo

 Sub checkvalue3() Dim x As Variant x = InputBox("Give any Value") If IsNumeric(x) = True Then MsgBox ("FALSE") Else MsgBox ("TRUE") End If End Sub 

Tukaj smo razglasili x kot Varianta in shrani vhodno vrednost. ISNUMERIC vrne TRUE , IF bo vrnil sporočilo z besedami "FALSE" in če ISNUMERIC vrne FALSE , potem IF vrne sporočilo z razlago "TRUE" .

➤ Tisk F5 .

Nato boste dobili naslednje vnosno polje in če zapišete vrednost 25 in pritisnite V REDU ,

v oknu s sporočilom se izpiše "FALSE" .

Za pisanje niza Aljaska in pritisnite V REDU v vnosnem polju,

V oknu s sporočilom je navedeno "TRUE" .

Sorodna vsebina: Funkcija VBA Format v Excelu (8 uporab s primeri)

4. Preverjanje, ali so prazna mesta številčna ali ne

To lahko preprosto preverite z VBA koda, ali so prazna mesta številčna ali ne.

Koraki :

➤ Sledite Korak-01 oddelka 1 .

➤ Zapišite naslednjo kodo

 Sub checkvalue4() Dim x As Variant x = " " MsgBox IsNumeric(x) End Sub 

Tukaj smo razglasili x kot Varianta in bo shranil Prazna stran . potem ISNUMERIC vrne TRUE če je Prazna stran je številčna, sicer vrne FALSE .

➤ Tisk F5 .

Nato se bo prikazalo okno s sporočilom, v katerem bo pisalo. "Napačno" kar pomeni. prazna mesta niso številčna. .

Preberite več: Excelova formula za generiranje naključnega števila (5 primerov)

5. Preverjanje, ali so datumi številčni ali ne

V tem razdelku bomo uporabili naključni datum in preverili, ali je datum številčen ali ne.

Koraki :

➤ Sledite Korak-01 oddelka 1 .

➤ Zapišite naslednjo kodo

 Sub checkvalue5() Dim x As Variant x = "02/02/2022 " MsgBox IsNumeric(x) End Sub 

Tukaj smo razglasili x kot Varianta in shranil bo datum. ISNUMERIC vrne TRUE če je datum številski, sicer vrne FALSE .

➤ Tisk F5 .

Nato se bo prikazalo okno s sporočilom, v katerem bo pisalo. "Napačno" kar pomeni. datumi niso številčni. .

Poskusimo lahko tudi z Funkcija DATESERIAL za ustvarjanje datumov in preverjanje, ali so številčni ali ne.

➤ Vnesite naslednjo kodo

 Sub checkvalue5a() Dim x As Variant x = DateSerial(2022, 2, 2) MsgBox IsNumeric(x) End Sub 

Tukaj smo razglasili x kot Varianta in bo shranil datum, ki ga je ustvaril Funkcija DATESERIAL . potem ISNUMERIC vrne TRUE če je datum številski, sicer vrne FALSE .

➤ Tisk F5 .

V zameno boste prejeli okno s sporočilom, v katerem bo pisalo. "Napačno" tudi tokrat.

Preberite več: Funkcija VBA Date (12 uporab makrov s primeri)

Podobna branja:

• Kako uporabljati funkcijo MsgBox v programu Excel VBA (popolna navodila)
• Uporaba funkcije VBA Environ (4 primeri)
• Kako uporabljati VBA in funkcijo v Excelu (4 primeri)
• Uporaba izjave o primeru VBA (13 primerov)
• Kako uporabiti funkcijo Log v programu Excel VBA (5 primernih primerov)

6. Preverjanje, ali je čas številčen ali ne

V tem razdelku bomo preverili, ali so časi številski ali ne, in sicer z uporabo Funkcija ISNUMERIC .

Koraki :

➤ Sledite Korak-01 oddelka 1 .

➤ Zapišite naslednjo kodo

 Sub checkvalue6() Dim x As Variant x = "09:30:00 AM" MsgBox IsNumeric(x) End Sub 

Tukaj smo razglasili x kot Varianta in shranil bo čas. Nato ISNUMERIC vrne TRUE če je čas številski, sicer vrne FALSE .

➤ Tisk F5 .

Po tem se prikaže okno s sporočilom, v katerem piše "Napačno" kar pomeni. časi niso številčni. .

Poskusite tudi z Funkcija TIMESERIAL za ustvarjanje datumov in preverjanje, ali so številčni ali ne.

➤ Vnesite naslednjo kodo

 Sub checkvalue6a() Dim x As Variant x = TimeSerial(9, 30, 0) MsgBox IsNumeric(x) End Sub 

Tukaj smo razglasili x kot Varianta in shranil bo čas, ki ga je ustvaril Funkcija TIMESERIAL . potem ISNUMERIC vrne TRUE če je čas številski, sicer vrne FALSE .

➤ Tisk F5 .

Nato se prikaže okno s sporočilom, v katerem piše "Napačno" tudi tokrat.

Ponovno lahko preizkusimo sklicevanje na časovno vrednost v celici lista.

➤ Vnesite naslednjo kodo

 Sub checkvalue6b() Dim x As Variant x = range("B2").value MsgBox IsNumeric(x) End Sub 

Tukaj smo razglasili x kot Varianta in shrani čas, ki je v B2 celica. Nato ISNUMERIC vrne TRUE če je čas številski, sicer vrne FALSE .

➤ Tisk F5 .

Na koncu se prikaže okno s sporočilom, v katerem piše "True" tokrat.

Preberite več: Kako uporabiti VBA TimeSerial v Excelu (3 primeri)

7. Uporaba VBA IsNumeric za območje vrednosti

Tu bomo preverili, ali so vrednosti Oznake/razredi so številčni ali neštevilčni in imajo rezultate v stolpcu Preverite stolpec.

Koraki :

➤ Sledite Korak-01 oddelka 1 .

➤ Zapišite naslednjo kodo

 Sub checkvalue7() Dim cell As Range For Each cell In Range("D5:D11") cell.Offset(0, 1) = IsNumeric(cell) Next cell End Sub 

Celico smo deklarirali kot območje in uporabili ZA zanka za celice območja "D5:D11" in za te celice je ISNUMERIC vrne TRUE če je vrednost številčna, v nasprotnem primeru vrne FALSE in . celica.Offset (0, 1) bo izhodne vrednosti v enem stolpcu vrnil kasneje v vhodni stolpec.

➤ Tisk F5 .

Po tem bomo imeli TRUE za numerične vrednosti ali Marks in . FALSE za neštevilske vrednosti ali Razredi .

Preberite več: Kako uporabiti funkcijo VBA Val v programu Excel (7 primerov)

8. Ustvarjanje funkcije za testiranje razpona vrednosti

V tem razdelku bomo ustvarili funkcijo z VBA ISNUMERIC in preverite, ali so vrednosti Oznake/razredi so številčni ali neštevilčni.

Korak-01 :

➤ Sledite Korak-01 oddelka 1 .

➤ Zapišite in shranite naslednjo kodo

 Funkcija IsNumericTest(value As Variant) As Boolean If IsNumeric(value) Then IsNumericTest = True Else IsNumericTest = False End If End Function 

Ta koda bo ustvarila funkcijo z imenom IsNumericTest .

Korak-02 :

➤ Vrnite se na glavni list in v celico vnesite naslednjo formulo E5

D5 je Oznake/razredi učenca in IsNumericTest vrne RESNIČNO/NERESNIČNO odvisno od vrednosti.

➤ Tisk VSTOP in povlecite navzdol Ročaj za polnjenje orodje.

Končno bomo imeli TRUE za numerične vrednosti ali Marks in . FALSE za neštevilske vrednosti ali Razredi .

Sorodna vsebina: Kako uporabiti funkcijo VBA DIR v Excelu (7 primerov)

9. Štetje neštevilnih vrednosti s funkcijo VBA IsNumeric

Želimo prešteti neštevilske vrednosti ali ocene Oznake/razredi in za to bomo uporabili stolpec VBA ISNUMERIC in imajo skupno število neštevilskih vrednosti, ki jih imamo v Count stolpec.

Korak-01 :

➤ Sledite Korak-01 oddelka 1 .

➤ Zapišite in shranite naslednjo kodo

 Funkcija 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 

Ta koda bo ustvarila funkcijo z imenom štetještevilčno .

Kadar vrednost celice ni številčna vrednost, se štetje se poveča za 1 .

Korak-02 :

➤ Vrnite se na glavni list in vnesite naslednjo formulo

D5:D11 je območje Oznake/razredi študentov in štetještevilčno vrne skupno število neštevilčnih ocen.

➤ Tisk VSTOP

Na koncu boste dobili vrednost 3 kar pomeni, da imate 3 Ocene v Oznake/razredi stolpec.

Preberite več: Kako vrniti vrednost v funkciji VBA (vrednosti v polju in vrednosti, ki niso v polju)

IsNumeric vs ISNUMBER

• ISNUMERIC preveri, ali je vrednost mogoče pretvoriti v število, in ISNUMBER preveri, ali je vrednost shranjena kot število.
• Obstajajo nekatere razlike med Funkcija VBA ISNUMERIC in Excel Funkcija ISNUMBER in v nadaljevanju smo poskušali prikazati razlike z uporabo našega predhodno ustvarjenega Funkcija IsNumericTest in vgrajenega programa Excel Funkcija ISNUMBER .

Oddelek za prakso

Za samostojno izvajanje prakse smo pripravili Praksa kot spodaj v listu z imenom Praksa . Prosimo, da to storite sami.

Zaključek

V tem članku smo poskušali zajeti nekaj načinov uporabe VBA ISNUMERIC Upam, da vam bo koristilo. Če imate kakršne koli predloge ali vprašanja, jih lahko delite v razdelku s komentarji.