جدول المحتويات
إذا كنت تبحث عن بعض أسهل الطرق لاستخدام وظيفة VBA IsNumeric ، فأنت في المكان الصحيح. نستخدم هذه الوظيفة بشكل عام في VBA لاختبار ما إذا كان التعبير رقمًا أم لا ، واعتمادًا على التعبير ، فإنه سيعيد TRUE إذا كان التعبير رقمًا بخلاف ذلك FALSE .
تنزيل المصنف
VBA IsNumeric Function.xlsm
VBA IsNumeric Function: بناء الجملة وأمبير. الوسائط
⦿ النحو
IsNumeric (Expression)
⦿ الوسيطات
| الوسيطة | مطلوب / اختياري | الشرح |
|---|---|---|
| التعبير | مطلوب | إنه متغير يجب التحقق منه إذا كان رقمًا أم لا. |
⦿ إرجاع القيمة
| الإدخال | إرجاع القيمة |
|---|---|
| الرقم | صحيح |
| ليس رقم؛ السلسلة | FALSE |
⦿ الإصدار
تم تقديم الدالة ISNUMERIC في إصدار Excel 2000 وهي متاحة لجميع الإصدارات بعد ذلك.
9 أمثلة على استخدام دالة رقمية لـ VBA
في في هذه المقالة ، سنحاول توضيح استخدامات VBA IsNumeric مع بعض الأمثلة العشوائية جنبًا إلى جنب مع بعض الأمثلة بما في ذلك الجدول التالي.
لدينا تستخدم Microsoft Excel 365 إصدار هنا ، يمكنك استخدام أي إصدار آخرإذا كان لديك أي اقتراحات أو أسئلة ، فلا تتردد في مشاركتها في قسم التعليقات.
الإصدارات وفقًا لراحتك.1. التحقق من VBA IsNumeric مع بعض القيم العشوائية
هنا ، سنختبر بعض السلاسل العشوائية باستخدام VBA ISNUMERIC ، إذا كانت القيم رقمية أم لا.
الخطوة -01 :
➤ انتقل إلى المطور Tab & gt؛ & gt؛ Visual Basic Option.
ثم ، محرر Visual Basic سيفتح.
➤ اذهب إلى Insert Tab & gt؛ & gt؛ Module Option.
بعد ذلك ، سيتم إنشاء وحدة .
الخطوة 02 :
➤ اكتب الكود التالي
8792
هنا ، أعلنا عن x كمتغير وسيتم تخزين قيمة الإدخال. ثم ISNUMERIC ستعيد TRUE إذا كانت قيمة الإدخال رقمية وإلا فإنها ستعيد FALSE . سنجد الإخراج داخل مربع رسالة ( MsgBox ).
➤ اضغط F5 .
ثم ستحصل على مربع الإدخال التالي وإذا كتبت القيمة 100 ثم اضغط على موافق ،
ستحصل على مربع رسالة يقول "صحيح" .
لكتابة السلسلة Cat والضغط على موافق في مربع الإدخال ،
نحصل على مربع رسالة يقول "خطأ" .
قراءة المزيد: كيفية استخدام وظيفة VBA العشوائية في Excel (5 أمثلة)
2. استخدام VBA IsNumeric مع عبارة IF-THEN-ELSE
في هذا القسم ، سنستخدم دالة ISNUMERIC مع عبارة IF-THEN-ELSE في كود VBA لتعريف القيم الرقمية وغير الرقمية.
الخطوات :
➤ اتبع الخطوة 01 من القسم 1 .
➤ اكتب الكود التالي
8976
هنا ، أعلنا x كمتغير وسوف يقوم بتخزين قيمة الإدخال. عندما تعيد ISNUMERIC TRUE ، إذا ستعيد رسالة تقول "القيمة المعطاة رقمية" وإذا كانت ISNUMERIC <يعرض 2> FALSE ، ثم إذا كان يعرض رسالة توضح "القيمة المعطاة ليست رقمية" .
➤ اضغط على F5 .
ثم ستحصل على مربع الإدخال التالي وإذا كتبت القيمة 200 ثم اضغط على موافق ،
ستحصل على مربع رسالة يقول "القيمة المعطاة رقمية" .
لكتابة السلسلة Cat والضغط على OK في مربع الإدخال ،
نحصل على مربع رسالة يقول "القيمة المعينة ليست رقمية" .
اقرأ المزيد: VBA If - Then - Else Statement in Excel (4 أمثلة)
3. إنشاء نتيجة معاكسة باستخدام الدالة IsNumeric
هنا ، سننشئ كود VBA والذي سيعطينا النتيجة العكسية من دالة ISNUMERIC ، مما يعني أنه بالنسبة للقيم الرقمية سنحصل على FALSE ، وللقيمة غير الرقمية es ، سيعود TRUE .
الخطوات :
➤ اتبع الخطوة -01 من القسم 1 .
➤اكتب الكود التالي
8236
هنا ، أعلنا عن x باعتباره متغير وسوف يخزن قيمة الإدخال. عندما تعيد ISNUMERIC TRUE ، إذا ستعيد رسالة تقول “FALSE” وإذا كان ISNUMERIC ترجع FALSE ، ثم IF تُرجع رسالة تشرح “TRUE” .
➤ اضغط على F5 .
ثم ستحصل على مربع الإدخال التالي وإذا كتبت القيمة 25 ثم اضغط على موافق ،
ستحصل على مربع رسالة يقول “FALSE” .
لكتابة السلسلة Alaska والضغط على OK في مربع الإدخال ،
نحصل على مربع رسالة يقول "TRUE" .
المحتوى المرتبط: وظيفة تنسيق VBA في Excel (8 استخدامات مع أمثلة)
4. سحب إذا كانت الفراغات هي Numeric or Not
يمكنك التحقق بسهولة باستخدام رمز VBA إذا كانت الفراغات رقمية أم لا.
الخطوات :
➤ اتبع الخطوة -01 من القسم 1 .
➤ اكتب الكود التالي
2390
هنا ، أعلنا x كمتغير وسوف يخزن فارغ . ثم ISNUMERIC سيعود TRUE إذا كان فارغ رقميًا وإلا فإنه سيعود FALSE .
➤ اضغط على F5 .
بعد ذلك ، ستحصل على مربع رسالة يقول "False" مما يعني أن الفراغات ليست رقمية .
اقرأ المزيد: Excelصيغة لتوليد رقم عشوائي (5 أمثلة)
5. التحقق إذا كانت التواريخ رقمية أم لا
في هذا القسم ، سنستخدم تاريخًا عشوائيًا ونتحقق مما إذا كان التاريخ رقمية أم لا.
الخطوات :
➤ اتبع الخطوة -01 من القسم 1 .
➤ اكتب الكود التالي
8485
هنا ، أعلنا عن x باعتباره متغير وسوف يخزن التاريخ. ثم ISNUMERIC سيعود TRUE إذا كان التاريخ رقميًا وإلا فسيعود FALSE .
➤ اضغط على F5 .
بعد ذلك ، ستحصل على مربع رسالة يقول "False" مما يعني أن التواريخ ليست رقمية .
يمكننا أيضًا المحاولة باستخدام وظيفة التاريخ لإنشاء التواريخ والتحقق مما إذا كانت رقمية أم لا.
➤ اكتب الرمز التالي
6955
هنا ، أعلنا أن x متغير وسوف يخزن التاريخ الذي تم إنشاؤه بواسطة دالة DATESERIAL . ثم ISNUMERIC سيعود TRUE إذا كان التاريخ رقميًا وإلا فسيعود FALSE .
➤ اضغط على F5 .
في المقابل ، ستحصل على مربع رسالة يقول "False" هذه المرة أيضًا.
قراءة المزيد: وظيفة تاريخ VBA (12 استخدامات لوحدات الماكرو مع أمثلة)
قراءات مماثلة:
- كيفية استخدام دالة MsgBox في Excel VBA (دليل كامل)
- استخدم وظيفة بيئة VBA (4 أمثلة)
- كيفية استخدام VBAوالوظيفة في Excel (4 أمثلة)
- استخدم بيان حالة VBA (13 مثالًا)
- كيفية استخدام وظيفة السجل في Excel VBA (5 أمثلة مناسبة)
6. التحقق إذا كان الوقت رقميًا أم لا
في هذا القسم ، سوف نتحقق مما إذا كانت الأوقات رقمية أم لا باستخدام دالة ISNUMERIC .
الخطوات :
➤ اتبع الخطوة -01 من القسم 1 .
➤ اكتب الكود التالي
6598
هنا ، أعلنا عن x باعتباره متغيرًا وسيخزن وقتًا. ثم ISNUMERIC سيعود TRUE إذا كان الوقت رقميًا وإلا فسيعود FALSE .
➤ اضغط على F5 .
بعد ذلك ، ستحصل على مربع رسالة يقول "False" مما يعني أن الأوقات ليست رقمية .
يمكنك أيضًا المحاولة باستخدام دالة TIMESERIAL لإنشاء تواريخ ومعرفة ما إذا كانت رقمية أم لا.
➤ اكتب الكود التالي
3767
هنا ، أعلنا أن x هو متغير وسوف يخزن الوقت الذي تم إنشاؤه بواسطة الوظيفة المؤقتة . ثم ISNUMERIC سيعود TRUE إذا كان الوقت رقميًا وإلا فسيعود FALSE .
➤ اضغط على F5 .
ثم ، ستحصل على مربع رسالة يقول "False" هذه المرة أيضًا.
مرة أخرى ، يمكننا تجربة الإشارة إلى قيمة زمنية في خلية من ورقة.
➤ اكتب الرمز التالي
2909
هنا ، لقد أعلنا x كمتغير وسيتم تخزين الوقت في الخلية B2 . ثم ISNUMERIC سيعود TRUE إذا كان الوقت رقميًا وإلا فسيعود FALSE .
➤ اضغط على F5 .
أخيرًا ، ستحصل على مربع رسالة يقول "True" هذه المرة.
قراءة المزيد: كيفية استخدام VBA TimeSerial في Excel (3 أمثلة)
7. استخدام VBA IsNumeric لمجموعة من القيم
هنا ، سوف نتحقق مما إذا كانت قيم العمود العلامات / الدرجات رقمية أم غير رقمية ولديها النتائج في العمود تحقق من .
الخطوات :
➤ اتبع الخطوة -01 من القسم 1 .
➤ اكتب الكود التالي
5929
لقد أعلنا الخلية على أنها نطاق واستخدمنا حلقة FOR لخلايا النطاق “D5: D11” وبالنسبة لهذه الخلايا ، ISNUMERIC ستعيد TRUE إذا كانت القيمة رقمية ، وإلا فإنها ستعيد الخلية FALSE و الإزاحة (0 ، 1) سيعيد قيم الإخراج في عمود واحد لاحقًا إلى عمود الإدخال.
➤ اضغط على F5 .
بعد ر قبعة ، سيكون لدينا TRUE للقيم الرقمية أو العلامات و FALSE للقيم غير الرقمية أو الدرجات .
اقرأ المزيد: كيفية استخدام وظيفة VBA Val في Excel (7 أمثلة)
8. إنشاء دالة لـ اختبار نطاق من القيم
في هذا القسم ، سنقوم بإنشاء ملفتعمل مع VBA ISNUMERIC وتحقق مما إذا كانت قيم العمود العلامات / الدرجات رقمية أم غير رقمية.
الخطوة -01 :
➤ اتبع الخطوة -01 من القسم 1 .
اكتب واحفظ ما يلي الكود
7163
سينشئ هذا الرمز دالة تسمى IsNumericTest .
الخطوة -02 :
➤ ارجع إلى الورقة الرئيسية واكتب الصيغة التالية في الخلية E5
=IsNumericTest(D5) D5 هي العلامات / الدرجات للطالب و IsNumericTest ستعيد TRUE / FALSE اعتمادًا على القيمة.
➤ اضغط على ENTER واسحب أداة Fill Handle .
أخيرًا ، سيكون لدينا TRUE للقيم الرقمية أو للعلامات و FALSE للقيم غير الرقمية أو للدرجات .
المحتوى المرتبط: كيفية استخدام وظيفة VBA DIR في Excel (7 أمثلة)
9. حساب القيم غير الرقمية باستخدام وظيفة VBA IsNumeric
نريد حساب عدد غير العدد قيم أو درجات ic للعمود العلامات / الدرجات وللقيام بذلك هنا سنستخدم VBA ISNUMERIC ولدينا العدد الإجمالي للقيم غير الرقمية التي لدينا في العد العمود.
الخطوة -01 :
➤ اتبع الخطوة -01 من المقطع 1 .
اكتب واحفظ الكود التالي
7941
هذا الرمز سينشئ دالة باسم countnonnumeric .
متىلن تكون قيمة الخلية قيمة رقمية ، ثم يزيد عدد بمقدار 1 .
الخطوة- 02 :
➤ ارجع إلى الورقة الرئيسية واكتب الصيغة التالية
=countnonnumeric(D5:D11) D5: D11 هو نطاق العلامات / الدرجات للطلاب و العد غير الرقمي سيعيد العدد الإجمالي للدرجات غير الرقمية.
➤ اضغط على ENTER
أخيرًا ، ستحصل على القيمة 3 مما يعني أن لديك 3 من الدرجات في العلامات / الدرجات العمود.
قراءة المزيد: كيفية إرجاع قيمة في وظيفة VBA (كل من المصفوفة و قيم بدون صفيف)
IsNumeric vs ISNUMBER
- ISNUMERIC يتحقق مما إذا كان يمكن تحويل قيمة إلى رقم و ISNUMBER يتحقق مما إذا كانت القيمة مخزنة كرقم.
- هناك بعض الاختلافات بين دالة VBA ISNUMERIC و Excel ISNUMBER function وقد حاولنا إظهار الاختلافات أدناه باستخدام متعة اختبار IsNumericTest التي تم إنشاؤها مسبقًا ction ووظيفة Excel ISNUMBER المضمنة .
قسم الممارسة
للقيام بالممارسة بنفسك لدينا قدم قسم ممارسة كما هو موضح أدناه في ورقة باسم ممارسة . يرجى القيام بذلك بنفسك.
الاستنتاج
في هذه المقالة ، حاولنا تغطية بعض الطرق لاستخدام VBA ISNUMERIC وظيفة. اتمنى انك ستجده مفيدا.
