Kullanmanın en kolay yollarından bazılarını arıyorsanız VBA IsNumeric fonksiyonunu kullanıyorsanız, doğru yerdesiniz. Bu fonksiyonu genellikle VBA bir ifadenin sayı olup olmadığını test etmek için kullanılır ve ifadeye bağlı olarak DOĞRU ifade bir sayı ise aksi takdirde YANLIŞ .

Çalışma Kitabını İndirin

VBA IsNumeric İşlevi: Sözdizimi & Bağımsız Değişkenler

⦿ Sözdizimi

IsNumeric (İfade)

⦿ Argümanlar

⦿ Dönüş Değeri

⦿ Versiyon

Bu ISNUMERIC işlevi 'de tanıtıldı. Excel 2000 sürümü ve bundan sonraki tüm sürümler için kullanılabilir.

9 VBA IsNumeric Fonksiyonunun Kullanımına İlişkin Örnekler

Bu makalede, aşağıdaki araçların kullanımını göstermeye çalışacağız VBA IsNumeric Aşağıdaki tabloyu da içeren bazı rastgele örneklerle birlikte.

Biz kullandık Microsoft Excel 365 sürümünü burada bulabilirsiniz, uygunluğunuza göre diğer sürümleri kullanabilirsiniz.

1. VBA IsNumeric'i Bazı Rastgele Değerlerle Kontrol Etme

Burada, bazı rastgele dizeleri VBA ISNUMERIC değerlerin sayısal olup olmadığını belirler.

Adım-01 :

➤ Şuraya git Geliştirici Tab>> Visual Basic Opsiyonel.

O zaman Visual Basic Düzenleyicisi açılacak.

➤ Şuraya git Ekleme Tab>> Modül Opsiyonel.

Bundan sonra, bir Modül oluşturulacaktır.

Adım-02 :

➤ Aşağıdaki kodu yazın

 Sub checkvalue1() Dim x As Variant x = InputBox("Herhangi Bir Değer Ver") MsgBox IsNumeric(x) End Sub 

Burada şunu beyan ettik x olarak Varyant ve giriş değerini depolayacaktır. Sonra ISNUMERIC geri dönecek DOĞRU giriş değeri sayısal ise, aksi takdirde döndürür YANLIŞ . Çıktıyı bir mesaj kutusu içinde bulacağız ( MsgBox ).

➤ Basın F5 .

Ardından aşağıdaki giriş kutusunu alacaksınız ve değeri yazarsanız 100 ve basın TAMAM. ,

yazan bir mesaj kutusu alacaksınız "Doğru" .

Dizeyi yazmak için Kedi ve basarak TAMAM. giriş kutusunda,

Şöyle bir mesaj kutusu alıyoruz "Yanlış" .

Daha Fazla Oku: Excel'de VBA Randomize Fonksiyonu Nasıl Kullanılır (5 Örnek)

2. IF-THEN-ELSE Deyimi ile VBA IsNumeric Kullanımı

Bu bölümde, aşağıdaki komutları kullanacağız ISNUMERIC işlevi ile IF-THEN-ELSE ifadesinde VBA sayısal ve sayısal olmayan değerleri tanımlamak için kod.

Adımlar :

Takip et Adım-01 Bölümün 1 .

➤ Aşağıdaki kodu yazın

 Sub checkvalue2() Dim x As Variant x = InputBox("Herhangi Bir Değer Ver") If IsNumeric(x) = True Then MsgBox "Verilen Değer Sayısaldır" Else MsgBox "Verilen Değer Sayısal Değildir" End If End Sub 

Burada şunu beyan ettik x olarak Varyant ve giriş değerini depolayacaktır. ISNUMERIC geri dönecek DOĞRU , EĞER şöyle bir mesaj döndürecektir "Verilen Değer sayısaldır" ve eğer ISNUMERIC geri döner YANLIŞ , sonra EĞER açıklayan bir mesaj döndürür "Verilen Değer sayısal değil" .

➤ Basın F5 .

Ardından aşağıdaki giriş kutusunu alacaksınız ve değeri yazarsanız 200 ve basın TAMAM. ,

yazan bir mesaj kutusu alacaksınız "Verilen Değer sayısaldır" .

Dizeyi yazmak için Kedi ve basarak TAMAM. giriş kutusunda,

Şöyle bir mesaj kutusu alıyoruz "Verilen Değer sayısal değil" .

Daha fazlasını okuyun: Excel'de VBA If - Then - Else Deyimi (4 Örnek)

3. IsNumeric Fonksiyonu ile Ters Sonuç Oluşturma

Burada, bir VBA kodunun ters sonucunu bize verecek olan ISNUMERIC işlevi bu da sayısal değerler için şunları elde edeceğimiz anlamına gelir YANLIŞ 'yi döndürür ve sayısal olmayan değerler için DOĞRU .

Adımlar :

Takip et Adım-01 Bölümün 1 .

➤ Aşağıdaki kodu yazın

 Sub checkvalue3() Dim x As Variant x = InputBox("Herhangi Bir Değer Ver") If IsNumeric(x) = True Then MsgBox ("FALSE") Else MsgBox ("TRUE") End If End Sub 

Burada şunu beyan ettik x olarak Varyant ve giriş değerini depolayacaktır. ISNUMERIC geri dönecek DOĞRU , EĞER şöyle bir mesaj döndürecektir "YANLIŞ" ve eğer ISNUMERIC geri döner YANLIŞ , sonra EĞER açıklayan bir mesaj döndürür "DOĞRU" .

➤ Basın F5 .

Ardından aşağıdaki giriş kutusunu alacaksınız ve değeri yazarsanız 25 ve basın TAMAM. ,

yazan bir mesaj kutusu alacaksınız "YANLIŞ" .

Dizeyi yazmak için Alaska ve basarak TAMAM. giriş kutusunda,

Şöyle bir mesaj kutusu alıyoruz "DOĞRU" .

İlgili İçerik: Excel'de VBA Format Fonksiyonu (Örneklerle 8 Kullanım)

4. Boşlukların Sayısal Olup Olmadığının Kontrol Edilmesi

ile kolayca kontrol edebilirsiniz. VBA boşlukların sayısal olup olmadığını kodlar.

Adımlar :

Takip et Adım-01 Bölümün 1 .

➤ Aşağıdaki kodu yazın

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

Burada şunu beyan ettik x olarak Varyant ve saklayacaktır Boş . Sonra ISNUMERIC geri dönecek DOĞRU eğer Boş sayısaldır, aksi takdirde YANLIŞ .

➤ Basın F5 .

Daha sonra, şöyle bir mesaj kutusu alacaksınız "Yanlış" Bu da demek oluyor ki boşluklar sayısal değildir .

Daha fazlasını okuyun: Rastgele Sayı Oluşturmak için Excel Formülü (5 örnek)

5. Tarihlerin Sayısal Olup Olmadığını Kontrol Etme

Bu bölümde rastgele bir tarih kullanacağız ve tarihin sayısal olup olmadığını kontrol edeceğiz.

Adımlar :

Takip et Adım-01 Bölümün 1 .

➤ Aşağıdaki kodu yazın

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

Burada şunu beyan ettik x olarak Varyant ve bir tarih kaydedecektir. Sonra ISNUMERIC geri dönecek DOĞRU tarih sayısal ise, aksi takdirde dönecektir YANLIŞ .

➤ Basın F5 .

Daha sonra, şöyle bir mesaj kutusu alacaksınız "Yanlış" Bu da demek oluyor ki tarihler sayısal değildir .

ile de deneyebiliriz. DATESERIAL işlevi tarihleri oluşturmak ve sayısal olup olmadığını kontrol etmek için.

➤ Aşağıdaki kodu yazın

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

Burada şunu beyan ettik x olarak Varyant tarafından oluşturulan bir tarihi saklayacaktır. DATESERIAL işlevi . Sonra ISNUMERIC geri dönecek DOĞRU tarih sayısal ise, aksi takdirde dönecektir YANLIŞ .

➤ Basın F5 .

Karşılığında, şöyle bir mesaj kutusu alacaksınız "Yanlış" Bu sefer de.

Daha fazlasını okuyun: VBA Tarih Fonksiyonu (Örneklerle Makroların 12 Kullanımı)

Benzer Okumalar:

• Excel VBA'da MsgBox Fonksiyonu Nasıl Kullanılır (Tam Bir Kılavuz)
• VBA Environ İşlevini Kullanma (4 Örnek)
• Excel'de VBA ve Fonksiyon Nasıl Kullanılır (4 Örnek)
• VBA Durum Bildirimi Kullanın (13 Örnek)
• Excel VBA'da Log Fonksiyonu Nasıl Kullanılır (5 Uygun Örnek)

6. Zamanın Sayısal Olup Olmadığını Kontrol Etme

Bu bölümde, zamanların sayısal olup olmadığını kontrol etmek için ISNUMERIC işlevi .

Adımlar :

Takip et Adım-01 Bölümün 1 .

➤ Aşağıdaki kodu yazın

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

Burada şunu beyan ettik x olarak Varyant ve bir zaman kaydedecek. Sonra ISNUMERIC geri dönecek DOĞRU zaman sayısal ise, aksi takdirde dönecektir YANLIŞ .

➤ Basın F5 .

Bundan sonra, şöyle bir mesaj kutusu alacaksınız "Yanlış" Bu da demek oluyor ki zamanlar sayısal değildir .

ile de deneyebilirsiniz. TIMESERIAL işlevi tarihleri oluşturmak ve sayısal olup olmadığını kontrol etmek için.

➤ Aşağıdaki kodu yazın

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

Burada şunu beyan ettik x olarak Varyant tarafından oluşturulan bir zamanı saklayacaktır. TIMESERIAL işlevi . Sonra ISNUMERIC geri dönecek DOĞRU zaman sayısal ise, aksi takdirde dönecektir YANLIŞ .

➤ Basın F5 .

Ardından, şöyle bir mesaj kutusu alacaksınız "Yanlış" Bu sefer de.

Yine, bir sayfanın bir hücresindeki bir zaman değerine referans vermeyi deneyebiliriz.

➤ Aşağıdaki kodu yazın

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

Burada şunu beyan ettik x olarak Varyant içinde olan bir zamanı depolayacaktır. B2 hücre. Sonra ISNUMERIC geri dönecek DOĞRU zaman sayısal ise, aksi takdirde dönecektir YANLIŞ .

➤ Basın F5 .

Son olarak, şöyle bir mesaj kutusu alacaksınız "Doğru" Bu sefer.

Daha fazlasını okuyun: Excel'de VBA TimeSerial Nasıl Kullanılır (3 Örnek)

7. Bir Değer Aralığı için VBA IsNumeric Kullanımı

Burada, değerlerin aşağıdaki gibi olup olmadığını kontrol edeceğiz İşaretler / Notlar sütunu sayısal veya sayısal olmayan ve sonuçları Kontrol et sütun.

Adımlar :

Takip et Adım-01 Bölümün 1 .

➤ Aşağıdaki kodu yazın

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

Hücreyi Range olarak bildirdik ve bir İÇİN aralığın hücreleri için döngü "D5:D11" ve bu hücreler için ISNUMERIC geri dönecek DOĞRU eğer değer sayısal ise, aksi takdirde YANLIŞ ve hücre.Ofset(0, 1) bir sütundaki çıktı değerlerini daha sonra girdi sütununa döndürecektir.

➤ Basın F5 .

Bundan sonra DOĞRU sayısal değerler için veya Marks ve YANLIŞ sayısal olmayan değerler için veya Notlar .

Daha fazlasını okuyun: Excel'de VBA Val Fonksiyonu Nasıl Kullanılır (7 Örnek)

8. Bir Değer Aralığını Test Etmek için Fonksiyon Oluşturma

Bu bölümde, aşağıdaki özelliklere sahip bir fonksiyon oluşturacağız VBA ISNUMERIC ve değerlerinin aşağıdaki gibi olup olmadığını kontrol edin İşaretler / Notlar sütunu sayısaldır veya sayısal değildir.

Adım-01 :

Takip et Adım-01 Bölümün 1 .

➤ Aşağıdaki kodu yazın ve kaydedin

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

Bu kod, şu adda bir fonksiyon oluşturacaktır IsNumericTest .

Adım-02 :

➤ Ana sayfaya dönün ve aşağıdaki formülü hücreye yazın E5

D5 bu İşaretler / Notlar bir öğrencinin ve IsNumericTest geri dönecek DOĞRU/YANLIŞ değere bağlı olarak.

➤ Basın GİRİŞ ve aşağı sürükleyin Doldurma Kolu Alet.

Son olarak, sahip olacağız DOĞRU sayısal değerler için veya Marks ve YANLIŞ sayısal olmayan değerler için veya Notlar .

İlgili İçerik: Excel'de VBA DIR Fonksiyonu Nasıl Kullanılır (7 Örnek)

9. VBA IsNumeric Fonksiyonu ile Sayısal Olmayan Değerleri Sayma

Sayısal olmayan değerleri veya notları saymak istiyoruz. İşaretler / Notlar sütununu kullanacağız ve burada bunu yapmak için VBA ISNUMERIC ve elimizdeki sayısal olmayan değerlerin toplam sayısını Saymak sütun.

Adım-01 :

Takip et Adım-01 Bölümün 1 .

➤ Aşağıdaki kodu yazın ve kaydedin

 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 

Bu kod, şu adda bir fonksiyon oluşturacaktır countnonnumeric .

Hücre değeri sayısal bir değer olmadığında saymak tarafından artırılacaktır 1 .

Adım-02 :

➤ Ana sayfaya dönün ve aşağıdaki formülü yazın

D5:D11 aralığıdır. İşaretler / Notlar öğrencilerin ve countnonnumeric sayısal olmayan notların toplam sayısını döndürür.

➤ Basın GİRİŞ

Son olarak, şu değeri alacaksınız 3 Bu da demek oluyor ki 3 Notlar İşaretler / Notlar sütun.

Daha fazlasını okuyun: VBA İşlevinde Değer Nasıl Döndürülür (Hem Dizi Hem de Dizi Olmayan Değerler)

IsNumeric vs ISNUMBER

• ISNUMERIC bir değerin sayıya dönüştürülüp dönüştürülemeyeceğini kontrol eder ve ISNUMBER bir değerin sayı olarak saklanıp saklanmadığını kontrol eder.
• arasında bazı farklılıklar vardır. VBA ISNUMERIC işlevi ve Excel ISNUMBER işlevi ve aşağıda daha önce oluşturduğumuz farkları göstermeye çalıştık IsNumericTest fonksiyonu ve dahili Excel ISNUMBER işlevi .

Uygulama Bölümü

Kendi kendinize pratik yapmanız için bir Uygulama adlı bir sayfada aşağıdaki gibi bir bölüm Uygulama Lütfen bunu kendiniz yapın.

Sonuç

Bu makalede, aşağıdaki araçları kullanmanın bazı yollarını ele almaya çalıştık VBA ISNUMERIC Umarım faydalı bulursunuz. Herhangi bir öneriniz veya sorunuz varsa, bunları yorum bölümünde paylaşmaktan çekinmeyin.