Ja meklējat dažus no vienkāršākajiem veidiem, kā izmantot VBA IsNumeric funkciju, tad esat īstajā vietā. Mēs parasti izmantojam šo funkciju VBA lai pārbaudītu, vai izteiksme ir vai nav skaitlis, un atkarībā no izteiksmes atgrieztu TRUE ja izteiksme ir skaitlis, citādi FALSE .

Lejupielādēt darbgrāmatu

VBA IsNumeric funkcija: Sintakse & amp; Argumenti

⦿ Sintakse

IsNumeric (Izteiksme)

⦿ Argumenti

⦿ Atgrieztā vērtība

⦿ Versija

Portāls ISNUMERIC funkcija tika ieviests Excel 2000 versiju un ir pieejama visās turpmākajās versijās.

9 VBA funkcijas IsNumeric izmantošanas piemēri

Šajā rakstā mēs centīsimies parādīt, kā tiek izmantots VBA IsNumeric ar dažiem nejaušiem piemēriem kopā ar dažiem piemēriem, tostarp šādu tabulu.

Mēs esam izmantojuši Microsoft Excel 365 versiju šeit, varat izmantot jebkuru citu versiju atbilstoši jūsu ērtībām.

1. VBA IsNumeric pārbaude ar dažām nejaušām vērtībām

Šeit mēs pārbaudīsim dažas izlases virknes ar VBA ISNUMERIC , ja vērtības ir skaitliskas vai nav.

Solis-01 :

➤ Iet uz Izstrādātājs Cilne>> Visual Basic Iespēja.

Tad Visual Basic redaktors atvērsies.

➤ Iet uz Ievietot Cilne>> Modulis Iespēja.

Pēc tam Modulis tiks izveidots.

Solis-02 :

➤ Ierakstiet šādu kodu

 Sub checkvalue1() Dim x As Variant x = InputBox("Norādiet jebkuru vērtību") MsgBox IsNumeric(x) End Sub 

Šeit mēs esam deklarējuši x kā Variants un tajā tiks saglabāta ievades vērtība. ISNUMERIC atgriezīs TRUE ja ievades vērtība ir skaitlis, pretējā gadījumā tiks atgriezta FALSE . Mēs atradīsim rezultātu ziņojuma lodziņā ( MsgBox ).

➤ Prese F5 .

Tad parādīsies šāds ievades lodziņš, un, ja ierakstīsiet vērtību 100 un nospiediet LABI ,

tiks parādīts ziņojuma lodziņš ar šādu tekstu "True" .

Virsraksta rakstīšanai Kaķis un nospiežot LABI ievades lodziņā,

Mēs saņemam ziņojuma lodziņu, kurā teikts "False" .

Lasīt vairāk: Kā lietot VBA Randomize funkciju programmā Excel (5 piemēri)

2. VBA IsNumeric izmantošana ar IF-THEN-ELSE paziņojumu

Šajā sadaļā mēs izmantosim ISNUMERIC funkcija ar IF-THEN-ELSE paziņojums VBA kodu, lai definētu skaitliskās un neskaitliskās vērtības.

Soļi :

➤ Sekot Solis-01 sadaļas 1 .

➤ Ierakstiet šādu kodu

 Sub checkvalue2() Dim x As Variant x = InputBox("Norādiet jebkuru vērtību") If IsNumeric(x) = True Then MsgBox "Dotā vērtība ir skaitliska" Else MsgBox "Dotā vērtība nav skaitliska" End If End Sub 

Šeit mēs esam deklarējuši x kā Variants un tas saglabās ievades vērtību. ISNUMERIC atgriezīs TRUE , IF atgriezīs ziņojumu ar šādu tekstu "Dotā vērtība ir skaitliska" un ja ISNUMERIC atgriež FALSE , tad IF atgriež ziņojumu, kurā paskaidrots "Dotā vērtība nav skaitliska" .

➤ Prese F5 .

Tad parādīsies šāds ievades lodziņš, un, ja ierakstīsiet vērtību 200 un nospiediet LABI ,

tiks parādīts ziņojuma lodziņš ar šādu tekstu "Dotā vērtība ir skaitliska" .

Virsraksta rakstīšanai Kaķis un nospiežot LABI ievades lodziņā,

Mēs saņemam ziņojuma lodziņu, kurā teikts "Dotā vērtība nav skaitliska" .

Lasīt vairāk: VBA If - Then - Else paziņojums programmā Excel (4 piemēri)

3. Pretēja rezultāta izveide ar IsNumeric funkciju

Šeit mēs izveidosim VBA kods, kas mums dos pretēju rezultātu no ISNUMERIC funkcija , kas nozīmē, ka skaitliskām vērtībām mēs saņemsim FALSE , un, ja vērtība nav skaitlis, tiek atgriezts TRUE .

Soļi :

➤ Sekot Solis-01 sadaļas 1 .

➤ Ierakstiet šādu kodu

 Sub checkvalue3() Dim x As Variant x = InputBox("Norādiet jebkuru vērtību") If IsNumeric(x) = True Then MsgBox ("FALSE") Else MsgBox ("TRUE") End If End Sub 

Šeit mēs esam deklarējuši x kā Variants un tas saglabās ievades vērtību. ISNUMERIC atgriezīs TRUE , IF atgriezīs ziņojumu ar šādu tekstu "FALSE" un ja ISNUMERIC atgriež FALSE , tad IF atgriež ziņojumu, kurā paskaidrots "TRUE" .

➤ Prese F5 .

Tad parādīsies šāds ievades lodziņš, un, ja ierakstīsiet vērtību 25 un nospiediet LABI ,

tiks parādīts ziņojuma lodziņš ar šādu tekstu "FALSE" .

Virsraksta rakstīšanai Alaska un nospiežot LABI ievades lodziņā,

Mēs saņemam ziņojuma lodziņu, kurā teikts "TRUE" .

Saistīts saturs: VBA formāta funkcija programmā Excel (8 izmantošanas veidi ar piemēriem)

4. Pārbaude, vai tukšie laukumi ir skaitliski vai nav.

Varat viegli pārbaudīt, izmantojot VBA kods, vai tukšie lauki ir ciparu kods vai nav.

Soļi :

➤ Sekot Solis-01 sadaļas 1 .

➤ Ierakstiet šādu kodu

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

Šeit mēs esam deklarējuši x kā Variants un tajā tiks saglabāts Tukšs ... ISNUMERIC atgriezīs TRUE ja Tukšs ir skaitlisks, pretējā gadījumā tiks atgriezts FALSE .

➤ Prese F5 .

Pēc tam tiks parādīts ziņojuma lodziņš, kurā būs rakstīts. "False" kas nozīmē. tukšie lauki nav skaitļi .

Lasīt vairāk: Excel formula nejauša skaitļa ģenerēšanai (5 piemēri)

5. Pārbaude, vai datumi ir vai nav ciparu kods

Šajā sadaļā mēs izmantosim izlases datumu un pārbaudīsim, vai datums ir skaitlisks vai nav.

Soļi :

➤ Sekot Solis-01 sadaļas 1 .

➤ Ierakstiet šādu kodu

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

Šeit mēs esam deklarējuši x kā Variants un tajā tiks saglabāts datums. Tad ISNUMERIC atgriezīs TRUE ja datums ir skaitlisks, pretējā gadījumā tiks atgriezts FALSE .

➤ Prese F5 .

Pēc tam tiks parādīts ziņojuma lodziņš, kurā būs rakstīts. "False" kas nozīmē. datumi nav skaitliskie. .

Mēs varam arī izmēģināt ar DATESERIAL funkcija lai izveidotu datumus un pārbaudītu, vai tie ir skaitliskie vai nav.

➤ Ierakstiet šādu kodu

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

Šeit mēs esam deklarējuši x kā Variants un tajā tiks saglabāts datums, kas izveidots ar DATESERIAL funkcija ... ISNUMERIC atgriezīs TRUE ja datums ir skaitlisks, pretējā gadījumā tiks atgriezts FALSE .

➤ Prese F5 .

Pēc tam tiks parādīts ziņojuma lodziņš, kurā būs rakstīts. "False" arī šoreiz.

Lasīt vairāk: VBA datuma funkcija (12 makroekrānu izmantošanas veidi ar piemēriem)

Līdzīgi lasījumi:

• Kā lietot MsgBox funkciju programmā Excel VBA (pilnīga vadlīnija)
• VBA funkcijas Environ izmantošana (4 piemēri)
• Kā lietot VBA un funkciju programmā Excel (4 piemēri)
• VBA gadījuma paziņojuma lietošana (13 piemēri)
• Kā lietot logaritma funkciju programmā Excel VBA (5 piemēroti piemēri)

6. Pārbaude, vai laiks ir skaitlisks vai nav

Šajā sadaļā mēs pārbaudīsim, vai laiki ir vai nav skaitliskie, izmantojot ISNUMERIC funkcija .

Soļi :

➤ Sekot Solis-01 sadaļas 1 .

➤ Ierakstiet šādu kodu

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

Šeit mēs esam deklarējuši x kā Variants un tas saglabās laiku. Tad ISNUMERIC atgriezīs TRUE ja laiks ir skaitlisks, pretējā gadījumā tiks atgriezts FALSE .

➤ Prese F5 .

Pēc tam tiks parādīts ziņojuma lodziņš, kurā būs rakstīts. "False" kas nozīmē. laiki nav skaitliskie .

Varat arī izmēģināt ar TIMESERIAL funkcija lai izveidotu datumus un pārbaudītu, vai tie ir skaitliskie vai nav.

➤ Ierakstiet šādu kodu

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

Šeit mēs esam deklarējuši x kā Variants un tajā tiks saglabāts laiks, kas izveidots ar TIMESERIAL funkcija ... ISNUMERIC atgriezīs TRUE ja laiks ir skaitlisks, pretējā gadījumā tiks atgriezts FALSE .

➤ Prese F5 .

Pēc tam tiks parādīts ziņojuma lodziņš ar šādu tekstu "False" arī šoreiz.

Atkal varam izmēģināt atsauci uz laika vērtību lapas šūnā.

➤ Ierakstiet šādu kodu

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

Šeit mēs esam deklarējuši x kā Variants un tajā tiks saglabāts laiks, kas atrodas B2 šūna. Tad ISNUMERIC atgriezīs TRUE ja laiks ir skaitlisks, pretējā gadījumā tiks atgriezts FALSE .

➤ Prese F5 .

Visbeidzot, tiks parādīts ziņojuma lodziņš, kurā būs rakstīts "True" šoreiz.

Lasīt vairāk: Kā lietot VBA TimeSerial programmā Excel (3 piemēri)

7. VBA IsNumeric izmantošana vērtību diapazonam

Šeit mēs pārbaudīsim, vai vērtības Atzīmes/pakāpes slejā ir skaitliski vai neskaitliski, un to rezultāti ir ierakstīti Pārbaudiet sleja.

Soļi :

➤ Sekot Solis-01 sadaļas 1 .

➤ Ierakstiet šādu kodu

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

Mēs esam deklarējuši šūnas kā Range un izmantojām a PAR cilpa diapazona šūnām "D5:D11" un šīm šūnām ISNUMERIC atgriezīs TRUE ja vērtība ir skaitlisks lielums, pretējā gadījumā tiks atgriezta FALSE un šūna.Offset(0, 1) atgriezīs izejas vērtības vienā slejā vēlāk ievades slejā.

➤ Prese F5 .

Pēc tam mums būs TRUE ciparu vērtībām vai Marks un FALSE neskaitliskām vērtībām vai Klases .

Lasīt vairāk: Kā lietot VBA Val funkciju programmā Excel (7 piemēri)

8. Funkcijas izveide, lai pārbaudītu vērtību diapazonu

Šajā sadaļā mēs izveidosim funkciju ar VBA ISNUMERIC un pārbaudiet, vai vērtības Atzīmes/pakāpes ailē ir ciparu vai neskaitļu kods.

Solis-01 :

➤ Sekot Solis-01 sadaļas 1 .

➤ Ierakstiet un saglabājiet šādu kodu

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

Šis kods izveidos funkciju ar nosaukumu IsNumericTest .

Solis-02 :

➤ Atgriezieties galvenajā lapā un šūnā ievadiet šādu formulu E5

D5 ir Atzīmes/pakāpes skolēna un IsNumericTest atgriezīs TRUE/FALSE atkarībā no vērtības.

➤ Prese IEVADIET un velciet uz leju Uzpildes rokturis instruments.

Visbeidzot, mums būs TRUE ciparu vērtībām vai Marks un FALSE neskaitliskām vērtībām vai Klases .

Saistīts saturs: Kā lietot VBA DIR funkciju programmā Excel (7 piemēri)

9. Neskaitlisko vērtību skaitīšana ar VBA IsNumeric funkciju

Mēs vēlamies saskaitīt neskaitliskās vērtības vai pakāpes no Atzīmes/pakāpes slejā, un, lai to izdarītu, mēs izmantosim VBA ISNUMERIC un kopējais neskaitlisko vērtību skaits, kas mums ir Count sleja.

Solis-01 :

➤ Sekot Solis-01 sadaļas 1 .

➤ Ierakstiet un saglabājiet šādu kodu

 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 

Šis kods izveidos funkciju ar nosaukumu skaitliski skaitliski .

Ja šūnas vērtība nebūs skaitliska vērtība, tad skaits tiks palielināts par 1 .

Solis-02 :

➤ Atgriezieties galvenajā lapā un ievadiet šādu formulu

D5:D11 ir diapazons Atzīmes/pakāpes skolēnu un skaitliski skaitliski tiks atgriezts kopējais neskaitlisko pakāpju skaits.

➤ Prese IEVADIET

Visbeidzot iegūsiet vērtību 3 kas nozīmē, ka jums ir 3 Atzīmes Atzīmes/pakāpes sleja.

Lasīt vairāk: Kā atgriezt vērtību VBA funkcijā (gan masīva, gan ne-masīva vērtības)

IsNumeric vs ISNUMBER

• ISNUMERIC pārbauda, vai vērtību var pārvērst skaitlī, un ISNUMBER pārbauda, vai vērtība ir saglabāta kā skaitlis.
• Ir dažas atšķirības starp VBA ISNUMERIC funkcija un Excel ISNUMBER funkcija un mēs esam mēģinājuši parādīt atšķirības, izmantojot mūsu iepriekš izveidoto IsNumericTest funkcija un iebūvēto Excel ISNUMBER funkcija .

Prakses sadaļa

Prakses veikšanai mēs esam nodrošinājuši Prakse sadaļu, piemēram, zemāk lapā ar nosaukumu Prakse . Lūdzu, dariet to pats.

Secinājums

Šajā rakstā mēs centāmies aplūkot dažus no veidiem, kā izmantot VBA ISNUMERIC Ja jums ir kādi ieteikumi vai jautājumi, nekautrējieties ar tiem dalīties komentāru sadaļā.